koşullara göre satır silme makrosu

[achil19]

Merhaba herkese,
İstediğim satırları silme ile ilgili bir makro yazmaya çalıştım fakat beceremedim.
Q kolonu=3, G kolonu=boş veya sıfır, I kolonu=boş ve ya sıfır ise
bu satırları komple silmek istiyorum.

Sheets("GÜNLÜK VERİ").Cells(X, "Q") = 3 And Sheets("GÜNLÜK VERİ").Cells(X, "G") = 0 And Sheets("GÜNLÜK VERİ").Cells(X, "I") = 0

Yardımcı olabilir misiniz lütfen
Şimdiden çok teşekkürler

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub SatırSil()
Application.ScreenUpdating = False
ss = Sheets("GÜNLÜK VERİ").Cells(Rows.Count, 17).End(3).Row
For i = ss To 1 Step -1
If Sheets("GÜNLÜK VERİ").Range("Q" & i) = 3 Then
If Sheets("GÜNLÜK VERİ").Range("Q" & i).Offset(0, -8) = "" Or Sheets("GÜNLÜK VERİ").Range("Q" & i).Offset(0, -8) = 0 Then
        If Sheets("GÜNLÜK VERİ").Range("Q" & i).Offset(0, -10) = "" Or Sheets("GÜNLÜK VERİ").Range("Q" & i).Offset(0, -10) = 0 Then
            Range("Q" & i).Offset(0, -10).Select
            Rows(i).Delete Shift:=xlUp
        End If
    End If
End If
Next
Application.ScreenUpdating = True
    MsgBox "Silme İşlemi Tamamlandı. ", vbInformation, "dEdE  " & _
Application.UserName & "'e Başarılar Diler."
End Sub

 

[dEdE]

Sayın achil19,
Sordunuz, emek verip zaman harcadık.
Olumlu ya da olumsuz bir sonuç yazmanızı beklemek hakkım diye düşünüyorum.
Hoşça kalın.

 

[sesemar]

İstenmeyen satırları silme makrosu

Merhaba Arkadaşlar,

Aşağıdaki ekran görüntüsünü paylaştığım excel'de "E" sütununda " FAF - CHL - GBL " yazmıyorsa, satırları silmesini istiyorum. Bununla ilgili bir makro konusunda yardımlarınızı bekliyorum.
Teşekkürler.

 

[bilgisayartutkunu]

Çalışma kitabımdaki KBS isimli bir sayfanın tümünü seçip yeni bir çalışma kitabına değerleri yapıştırdıktan sonra c sürücüsüne kbs ismiyle kaydederken oluşturduğum bu yeni kitabın bu sayfasında kaydetmeden önce A1 ile A201 aralığındaki hücrelerden boş olanların satırlarını ve C1 ile AN1 aralığındaki hücrelerden boş olanların sütunlarını silme makrosu rica ediyorum. Saygılarımla...