Satır genişlikleri

[all_per]

Arkadaşlar ve üstadlar;

Excelde herhangi bir satırdan başlayarak harmonik olarak artan sayılardaki satırların yüksekliğini bir makro ya da komut ile ayarlamak mümkün mü?

Örneğin 3ncü satırdan başlayarak 3-9-15-21.......gibi satırları 45 pixel , 4-10-16-22.......satırları da 25 pixel yapmak istiyorum...

Bu konuda yardımcı olabilirmisiniz?

 

[Skorpiyon]

Sayın all_per,

Aşağıdaki kodu deneyebilirsiniz.

Sub Düğme1_Tıklat()
For a = 3 To 1000 Step 6 'İşlem görecek satır sayısı (Siz kendinize göre 1000'i değiştirin)
Rows(a).RowHeight = 40 'Satırların yüksekliği (Kendinize göre ayarlayın)
Rows(a + 1).RowHeight = 25 'Satırların yüksekliği (Kendinize göre ayarlayın)
Next a
End Sub

 

[all_per]

Teşekkür ederim işime çok yaradı...