Otomatik satır yüksekliği

[Usyk]

Merhabalar

Rows.Autofit
ile satır yüksekliği içeriğe göre ayarlanıyor.

Rows.Autofit +5
şeklinde yapılabilir mi?

 

[Haluk]

Belki şöyle olabilir;

Sub Test()
    x = Rows(2).RowHeight
    MsgBox "2.satırın mevcut yüksekliği = " & x
    Rows(2).RowHeight = x + 5
    MsgBox "2.satırın yeni yüksekliği = " & Rows(2).RowHeight
End Sub

 

[Usyk]

Benim burada yapmak istediğim

Sayfamda değişiklik olduğunda
A sütunu içeriğine göre otomatik satır yüksekliğini bulup + sabit bir miktar kadar fazla ayarlaması.

 

[Haluk]

Kodu, bu isteğinize göre modifiye edebilirsiniz.

Yani; ilk başta satırın "Autofit" özelliğini çalıştırıp, yukarıdaki kodla bir satırın yüksekliğini öğrendikten sonra, "X" kadar arttırabilirsiniz.

Bu kodları da, Worksheet nesnesinin size göre uygun bir yordamında yazarsanız istediğinizi gerçekleştirebilirsiniz.

.

 

[Usyk]

Haluk bey ilgi ve yardımlarınıza teşekkür ederim.
Tüm satırları tek seferde yapmak mümkün değilmi.

1. satır yüksekliği (A1 içeriğine göre) 12 ise + 2 = 14
2. satır yüksekliği (A2 içeriğine göre) 9 ise + 2 = 11
....

şeklinde mesela hepsine + 2 eklese.

 

[askm]

Sayfanın kod bölümüne aşağıdaki kodları yapıştırın.A sütununa göre yapılmıştır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    Target.Rows.AutoFit
    yukseklik = Rows(Target.Row).RowHeight
    Rows(Target.Row).RowHeight = yukseklik + 2
End If
End Sub

 

[Usyk]

Sayın askm
Yazdığınız kodda her hücrenin içine tek tek girmek gerekiyor.

Tek seferde A sütununun tamamı için olabilir mi?içerisinde veri olan.

 

[askm]

Örnek dosya eklerseniz yardımcı olalım.

 

[Haluk]

Private Sub Worksheet_Change(ByVal Target As Range)
    Rows.AutoFit
    Rows.RowHeight = Rows.RowHeight + 2
End Sub

 

[Usyk]

Ornek dosya ektedir.
Saygılarımla.

http://www.dosya.tc/server11/zkpa6c/Ornek.rar.html

 

[askm]

Dosyanızı indirme imkanım yok malesef.

Sub askm()
For i = 1 To Range("A65536").End(xlUp).Row
    Cells(i, 1).Rows.AutoFit
    yukseklik = Rows(i).RowHeight
    Rows(i).RowHeight = yukseklik + 2
Next i
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[Usyk]

Sayın askm

İlgi ve yardımınız için çok teşekkür ederim. İstediğim tam da buydu.

 

[askm]

Rica ederim. Kolay gelsin.

 

[Mikdad]

Selamun Aleykum Dostlarım,
----------------------------------------------
Sub Satır_Yukselt()
For i = 1 To Range("F4000").End(xlUp).Row
Cells(i, 1).Rows.AutoFit
yukseklik = Rows(i).RowHeight
Rows(i).RowHeight = yukseklik + 15
Next i
MsgBox "Satır Düzenleme İşlemi Başarı ile Sonuçlandı...", vbInformation, "Midyat SYDV "

End Sub
------------------------------------------------------------
bu komut ile istediğim şekilde boyut ayarlayabiliyorum. ama f4000 dememe rağmen bütün sayfayı kontrol ediyor.
f65536 ye kadar kontrol ve düzenleme yaptığı için çok yavaş çalışıyor.
benim yapmak isteğim bu komutun 8.inci satırdan sonra çalışması ve sadece verilerin olduğu yere kadar gerekli işlemi yapması. saygılarımla