Evet biraz kısa bahsetmişim.
Makroda bir koşul yazdım. Yazdığım koşulda sorun yok. O koşul gerçekleştiğinde belirli iki satır arasına bir boş satır eklemek istiyorum.
For i = 2 To 100
If Cells(i, 1) <> Cells(i + 1, 1) Then
Range("i1").EntireRow.Insert
End If
Next i
End Sub
Şöyle bir makro yazdım ama satır ekleme noktasında hata veriyor. ilk 100 satırı aşağı indiriyor. Ben i. satır ile i+1. satır arsına bir satır açmasını istiyorum.
Teşekkürler...
For i = 2 To 8
If Cells(i, 1) <> Cells(i + 1, 1) Then
Rows(i + 1).EntireRow.Insert
End If
Next i
End Sub
sizin yaptığınızdan esinlenerek şöyle bir şey yaptım. O da sadece 1. satırla 2. satır arasına 7 tane satır ekledi. Yani döngüde ilk if'in sağlandığı yere.
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.