Otomatik satır yüksekliği

[Korhan Ayhan]

#15 nolu mesajda Burhan beyin paylaştığı kodu deneyebilirsiniz.

 

[Korhan Ayhan]

Kod içinde aşağıdaki satırları düzeltmelisiniz.

Bu satır kodun çalışacağı alanı belirtiyor.
If Intersect(Target, Range("A1:L" & Rows.Count)) Is Nothing Then Exit Sub

Bu satır ise birlşetirilmiş hücreleri ifade ediyor.
Genislik = Range("A1:L1000").Columns.Width

 

[Paristanbul]

Teşekkür ederim.