: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
[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]
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:
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.