Koşullu Silmek Makrosu

[5353]

Ekteki dosyada O10 hücresinden aşağıya doğru .. F10 hücresinde ÜCRETLİ MAZARET İZNİ olanları O10 hücresinden aşağıya silsin kırmızıyla gösterilmiştir. MAKRO sunu kim yazar ?

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi olabilir.
6 F sütununun sütun değeri, 15 O sütununun sütun değeri.

[B]Sub UCR_MZR_SIL()[/B]
For sat = 10 To Sheets("[COLOR="Red"]ctrlv[/COLOR]").Cells(Rows.Count, 1).End(3).Row
    If Sheets("[COLOR="red"]ctrlv[/COLOR]").Cells(sat, [COLOR="blue"]6[/COLOR]) = "ÜCRETLİ MAZARET İZNİ" Then _
        Sheets("[COLOR="red"]ctrlv[/COLOR]").Cells(sat, [COLOR="blue"]15[/COLOR]) = ""
Next
[B]End Sub[/B]

 

[5353]

Merhaba.

Aşağıdaki gibi olabilir.
6 F sütununun sütun değeri, 15 O sütununun sütun değeri.

[B]Sub UCR_MZR_SIL()[/B]
For sat = 10 To Sheets("[COLOR="Red"]ctrlv[/COLOR]").Cells(Rows.Count, 1).End(3).Row
    If Sheets("[COLOR="red"]ctrlv[/COLOR]").Cells(sat, [COLOR="blue"]6[/COLOR]) = "ÜCRETLİ MAZARET İZNİ" Then _
        Sheets("[COLOR="red"]ctrlv[/COLOR]").Cells(sat, [COLOR="blue"]15[/COLOR]) = ""
Next
[B]End Sub[/B]

Çok teşekkürler. Emeğine sağlık ustad.