İsim listesine boş satır nasıl eklerim

[mid-bim]

Ýsim listesine boş satır nasıl eklerim

:hey: Mehaba arkadaşlar bana bir konuda yardım isteyeceğim ekte gönderdiğim isimler arasına ikişer boş satır ekleyeceğim her isim arasıda boş iki satır olacak makro ile nasıl yapabilirim. Þimdiden tşk. edrim

 

[Haluk]

[vb:1:bc58e69438]Sub Test()
Dim NoA As Long, i As Long
NoA = Range("A65536").End(xlUp).Row
For i = NoA To 2 Step -1
Rows(i).Insert
Rows(i).Insert
Next
End Sub
[/vb:1:bc58e69438]

 

[mid-bim]

Düzeltme

Sn Raider çok tşk. birşey sorayım ben satırlar boşlıklarını azaltsam ve ya yükseltsem nasıl bir değişiklik yapmam lazım yardımcı olduğunuz için tşk. :lol:

 

[Haluk]

"Rows(i).insert" satırından bir tane daha ilave ederseniz bu kez, 3 satır boş olur...