Satır aralarına boşluk koyma

[boydag]

Merhabalar öncelikle

Çalıştığım bir excell dosyasında aynı plaka noların yazıldığı satırlar sonrasında bir satır boşluk bırakmam gerekiyor. Bunu nasıl yapabilirim bir fikriniz var mıdır ?

 

[Korhan Ayhan]

Plakaların A sütununda olduğunu varsaydım. (Talep üzerine F sütunu olarak revize edildi)

Verilerinizi yedekleyerek deneyiniz.

Option Explicit

Sub Insert_Blank_Rows()
    Dim X As Long
  
    Application.ScreenUpdating = False
  
    For X = Cells(Rows.Count, 6).End(3).Row To 2 Step -1
        If Cells(X, 6) = Cells(X - 1, 6) Then
            Rows(X).Insert
        End If
    Next
  
    Application.ScreenUpdating = True
  
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[boydag]

Cevabınız için teşekkür ederim evet çalışıyor ama dediğiniz gibi A sütunu için çalışıyor. İşlemi F sütununda yapmak istiyorum. Nasıl bir yol izlemeliyim ?

İlginiz için teşekkür ederim

 

[Korhan Ayhan]

Önceki mesajımı revize ettim. Tekrar deneyiniz.

 

[boydag]

Çok teşekkür ederim yardımlarınız için oldu bu sefer