Ardaşık satırları 1,3,5,7.. şeklinde silmek istiyorum.

[metehancan]

Excel sayfasındaki ardaşık satırları 1. satır 3. satır 5. satır ... şeklinde silmek istiyorum. Yardımınızı rica ediyorum.

 

[tahsinanarat]

Option Explicit
Sub SATIR_ATLAYARAK_SİL()
Dim X As Long
For X = 1 To Range("A65536").End(3).Row Step 1
Range("A" & X & ":A" & X).EntireRow.Delete
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[halit3]

örnek dosya ekleseydiniz iyi olurdu

a sutunündeki değerler kabul edilerek yapılmıştır.

Sub SatirSil()
Dim i As Long
Application.ScreenUpdating = False
For i = [a65536].End(3).Row To 1 Step -1
If i Mod 2 = 1 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam...."
End Sub

 

[metehancan]

Hocalarım her ikinizede çok teşekkür ederim. Her iki kodda mükemmel çalışıyor.