Satırın otomatik daralıp genişlemesi

[Mahmut Bayram]

kusura bakmayın başka bir sayfada sordum ama esas yeri burası herhalde çok özür diliyorum. arkadaşlar bu programda yapamadığım bir şey var oda evrağın özü kısmında satır yüksekliği cümlenin uzunluğuna göre genişleyip daralabilir mi? bunu fonksiyon olarak yapamadım herhalde. makro gerekecek.yani gereğini arz ederim bölümü ile özünün yazıldığı hücre arasında herzaman belli bir mesafe olacak . ayrıca bu işlem sonucunda a4 kağıdını aşmayacak yani sayfa yapısı değişmeyecek. http://karaagil.sitemynet.com/ryp4.rar

 

[bedersu]

Merhaba,

Ã?ncelikle şunu belirteyim;şu kodlarınız eksik:

Sub auto_close()
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.CommandBars("Control Toolbox").Visible = True
Application.CommandBars("External Data").Visible = True
Application.CommandBars("Forms").Visible = True
Application.CommandBars("Formula Auditing").Visible = True
Application.CommandBars("Watch Window").Visible = True
Application.CommandBars("Chart").Visible = True
Application.CommandBars("Reviewing").Visible = True
Application.CommandBars("Stop Recording").Visible = True
Application.CommandBars("Borders").Visible = True
Application.CommandBars("Protection").Visible = True
Application.CommandBars("Text To Speech").Visible = True
Application.CommandBars("PivotTable").Visible = True
Application.CommandBars("Picture").Visible = True
Application.CommandBars("Visual Basic").Visible = True
Application.CommandBars("Web").Visible = True
Application.CommandBars("WordArt").Visible = True
Application.DisplayFullScreen = True
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With

End Sub


Satır yüksekliği için de;

Rows("1:1").RowHeight = 27(Bu sizin istediğiniz sayı ile değişecek)

 

[Mahmut Bayram]

Sub auto_close()
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.CommandBars("Control Toolbox").Visible = True
Application.CommandBars("External Data").Visible = True
Application.CommandBars("Forms").Visible = True
Application.CommandBars("Formula Auditing").Visible = True
Application.CommandBars("Watch Window").Visible = True
Application.CommandBars("Chart").Visible = True
Application.CommandBars("Reviewing").Visible = True
Application.CommandBars("Stop Recording").Visible = True
Application.CommandBars("Borders").Visible = True
Application.CommandBars("Protection").Visible = True
Application.CommandBars("Text To Speech").Visible = True
Application.CommandBars("PivotTable").Visible = True
Application.CommandBars("Picture").Visible = True
Application.CommandBars("Visual Basic").Visible = True
Application.CommandBars("Web").Visible = True
Application.CommandBars("WordArt").Visible = True
Application.DisplayFullScreen = True
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With

End Sub

syn bedersu
Sub auto_close()
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
bu kadarı yetdi. biliyordum ama unutmuşum yazmayı. gene de sağolasın.
peki

Rows("1:1").RowHeight = 27(Bu sizin istediğiniz sayı ile değişecek)

bu dediğinizin karakter uzunluğu ile mi yoksa satır yüksekliği ile mi olacak. bir örnek yapabilir misiniz. teşekkürler
Tama anlayamadım

 

[bedersu]

sayın mahmut_bayram,

öncelikle auto_close için benim verdiklerim abartı olmuş ama sizinki de eksik.

Application.CommandBars("Drawing").Visible = True
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With


bunlar olmazsa olmaz bence.

İkincisi,sorunuzda satır yüksekliğinden bahsettiğiniz için bunu yazdım ben.Herhalde satır uzunluğundan bahsediyorsunuz,karakter uzunluğu dediğinize göre...

Bunun için;

Columns("A:A").EntireColumn.AutoFit yazmanız yeterli.A kolonuna uzun bir cümle yazın ve makroyu çalıştırın,sonucu göreceksiniz.

 

[Mahmut Bayram]

Syn bedersu

Columns("A:A").EntireColumn.AutoFit yazmanız yeterli.A kolonuna uzun bir cümle yazın ve makroyu çalıştırın,sonucu göreceksiniz.

yaptım fakat 23:27 satırlardaki metnim gene olduğu gibi duruyor. yani alttaki gereğini arz ederim bölümü ile arasındaki mesafe aynı lütfen örnekle anlatırsanız daha iyi anlayacağım. tşk.

 

[Mahmut Bayram]

syn bedersu galiba kod şöyle olacak
Application.Run "kayit"
Rows("23:23").Select
Selection.Rows.AutoFit

 

[bedersu]

MERHABA,
Sorununuzu hallettiyseniz sevindim;ama buradaki kayit'i anlamadım.