Satır silme

[1903emre34@gmail.com]

Merhaba,

İki satır aralığıyla, kayıtlar bulunmaktadır, benim istediğim "C" sütunda 800,150 ve 102, 889 ( hesapları sırasıyla birlikte) aynı kayıtlarda yer alıyorsa satırlardan silinmesi ve silerken iki satır aralığı bırakılmasıdır. (istenen sayfa2'de yapılmıştır.)

 

[1903emre34@gmail.com]

Konu güncel

 

[askm]

Aşağıdaki kodları deneyin.

Sub ASKM_Satir_Sil()
Dim SonSat As Long
SonSat = Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To SonSat
If Cells(i, 3) = 150 And Cells(i + 1, 3) = 800 Then
    For k = 1 To 4
        Rows(i).Delete
    Next k
    i = i - 1
ElseIf Cells(i, 3) = 102 And Cells(i + 1, 3) = 889 Then
    For k = 1 To 4
        Rows(i).Delete
    Next k
    i = i - 1
End If
Next
MsgBox "İşleminiz tamamlanmıştır...", vbInformation, "ASKM"
End Sub

 

[1903emre34@gmail.com]

Teşekkürler, kodlar çalışıyor, ama fazla sütunlarda kasıyor

 

[askm]

Kodları aşağıdaki şekilde revize edin.

Sub ASKM_Satir_Sil()
Dim SonSat As Long
SonSat = Range("C" & Rows.Count).End(xlUp).Row
Application.Calculation = xlManual
Application.ScreenUpdating = False

For i = 2 To SonSat
If Cells(i, 3) = 150 And Cells(i + 1, 3) = 800 Then
    For k = 1 To 4
        Rows(i).Delete
    Next k
    i = i - 1
ElseIf Cells(i, 3) = 102 And Cells(i + 1, 3) = 889 Then
    For k = 1 To 4
        Rows(i).Delete
    Next k
    i = i - 1
End If
Next
MsgBox "İşleminiz tamamlanmıştır...", vbInformation, "ASKM"
Application.Calculation = xlAutomatic
Application.ScreenUpdating = False
End Sub