Satır Silme Makrosu

[ecakir]

Merhaba

Deneye yanıla makro öğrenenlerdenim
Bir sorunum var. Ekteki dosyada "mehmet" yazan satırı silmek istediğimi düşünelim.
Bir makro yazmak istiyorum

ancak yalnızca bu satıra ait c ila bj sütunları boşsa silsin depğilse ekrana uyarı çıksın silmesin

AMA NASIL???

Yardımlarınız için tşk

 

[Korhan Ayhan]

Selamlar,

Sorunuzu çok net anlamadım. Anladığım kadarıyla aşağıdaki kodu denermisiniz. Kısaca kod şu işlemleri yapmaktadır.

A sütununda Mehmet değerini arar. Bulduğunda ise C ve BJ sütunlarındaki hücrelerin boş olup olmadığını kontrol eder. Eğer boşsa Mehmet değerinin bulunduğu satırdaki sarı ile belirttiğiniz alanı tamamen temizler. Umarım işinize yarar.

Sub KONTROL_ET_BOŞSA_SİL()
    For X = 3 To [A65536].End(3).Row
    If Cells(X, "A") = "Mehmet" Then
    If WorksheetFunction.CountA(Range(Cells(X, "C"), Cells(X + 4, "C")), Range(Cells(X, "BJ"), Cells(X + 4, "BJ"))) = 0 Then
    Range(Cells(X, "C"), Cells(X + 4, "Z")) = ""
    Else
    MsgBox "C VE BJ SÜTUNLARI BOŞ DEĞİL !", vbCritical, "DİKKAT !"
    End If
    End If
    Next
End Sub