Satır yüksekliğe

[turgayzeynep]

Hocam kolay gelsin İyi akşamlar excel'deki sayfamın ismi
JKİP OLAY KAYIT DEFTERİ
A3 İLE BX1000
ARASINDAKİ SATIRLARIN yazının boyutuna göre otomatik olarak satır yüksekliğini Ayarlamasını istiyorum Nasıl bir Makro yazmam gerekiyor yardımcı olur musunuz

 

[mustafa1205]

Sub SatirYukseklikleriniOtomatikAyarla()
Dim ws As Worksheet
Set ws = Worksheets("JKİP OLAY KAYIT DEFTERİ")

With ws
With .Range("A3:BX1000")
.WrapText = True
.Rows.AutoFit
End With
End With
End Sub

Deneyiniz...

 

[turgayzeynep]

Sub SatirYukseklikleriniOtomatikAyarla()
Dim ws As Worksheet
Set ws = Worksheets("JKİP OLAY KAYIT DEFTERİ")

With ws
With .Range("A3:BX1000")
.WrapText = True
.Rows.AutoFit
End With
End With
End Sub

Deneyiniz...

Hocam çalışmadı

Sub SatirYukseklikleriniOtomatikAyarla()
Dim ws As Worksheet
Set ws = Worksheets("JKİP OLAY KAYIT DEFTERİ")

With ws
With .Range("A3:BX1000")
.WrapText = True
.Rows.AutoFit
End With
End With
End Sub

Deneyiniz...

 

[mustafa1205]

Dosyayı eklerseniz bir bakalım...

 

[mustafa1205]

Şimdi kendimde denedim. Kodu boş bir modüle yapıştırdıktan sonra bir kez F5 ile çalıştırınız. Sonrasında satırlar otomatik açılacaktır...