makro ile satır silme

[metinavci23]

merhaba arkadaşlar.

ekte gönderdiğim sosyada makro ile satır silmeye çalıştım.boş satırları silebiliyorum ancak şartlarda sayfa "parametre" 'de belirttiğim olayı gerçekleştiremiyorum.zannediyorum ki dizi olayını yapamıyorum.yardımcı olursanız sevinirim.şimdiden teşekürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. A sütunu boş ise yada parametre sayfasındaki kodu ile başlıyorsa silme işlemi gerçekleşecektir.

Sub bos_satir_temizle()
    On Error Resume Next
    Set S1 = Sheets("parametre")
    Set S2 = Sheets("faturadokum")
    For X = S2.[E65536].End(3).Row To 4 Step -1
    Set BUL = S1.[A:A].Find(Mid(S2.Cells(X, "a"), 1, 3), LookAt:=xlWhole)
    If S2.Cells(X, "A") = Empty Or Not BUL Is Nothing Or _
    S2.Cells(X, "C") = Empty And S2.Cells(X, "D") = Empty Or Not IsNumeric(S2.Cells(X, "D")) Then
    S2.Rows(X).Delete
    End If
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[metinavci23]

cevap

Sn.Korhan Ayhan kodu aşağıdaki gibi değiştirdim ancak bu defa tum satırları siliyor.aslında silmemesi gerekiyor


Sub bos_satir_temizle()
On Error Resume Next
Set S1 = Sheets("parametre")
Set s2 = Sheets("faturadokum")
For x = s2.[E65536].End(3).Row To 4 Step -1
Set BUL = S1.[A:A].Find(Mid(s2.Cells(x, "a"), 1, 3), LookAt:=xlWhole)
If s2.Cells(x, "a") = Empty Or Not BUL Is Nothing Or Not IsNumeric(s2.Cells(x, "a")) Or s2.Cells(x, "c") = Empty _
Or s2.Cells(x, "d") = Empty Then
s2.Rows(x).Delete
End If
Next
Set S1 = Nothing
Set s2 = Nothing

MsgBox "İşlem TAMAMDIR"
End Sub

 

[Korhan Ayhan]

Selamlar,

Satırlar tam olarak hangi koşulda silinecek. Açıklarmısınız.

 

[metinavci23]

sizin belirttiğiniz koşullara ilave olarak
1.A sütununda ki değer numerik değilse
2.C sütunu boş ise
3.D Sütunu boş ve numerik değilse
satırlar lilinecek.umarım izah edebilmişimdir.şimdiden teşekür ederim

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu yeniledim. İncelermisiniz.

 

[metinavci23]

teşekürler Sn.Korhan Ayhan.
Şimdi mükemmel oldu