Boş satır ekleme

[eareandill]

Ekteki dosyada boş satır eklenmesi için yardımlarınız karşısında saygılarımı sunuyorum.Lütfen yardımcı olun.

 

[Muhammet Okumuş]

Boş satır için ölçüt nedir?

 

[eareandill]

5b yanı 5. bodrumlardan sonra 6. bodrum gelirse arasına iki bos satır
eklensin.Manuel eklemek hakikaten çok uzun.
.

 

[Muhammet Okumuş]

Sub BoşEkle()
Application.ScreenUpdating = False
son = Range("A10000").End(3).Row
For i = son To 2 Step -1
If Cells(i - 1, 1) <> Cells(i, 1) Then
Rows(i).Insert
Rows(i).Insert
End If
Next
End Sub

Kodunu deneyiniz.

 

[waytooraider]

İnceleme fırsatım oldu A stununda çalışıyor b yad f stununda çalışması için neyi değiştirmemiz gerekiyor.

Saygılarımla.

 

[Muhammet Okumuş]

Merhaba,

E sütunu için

son = Range("A10000").End(3).Row
If Cells(i - 1, 1) <> Cells(i, 1) Then

son = Range("E10000").End(3).Row
.
If Cells(i - 1, 1) <> Cells(i, 5) Then

şeklinde değiştirin. 5 sütun numarasını verir. F için 5'i 6 yapın. Hangi sütuna uygulayacaksanız sütun numarasını değiştirin.