Hücre rengine göre çalışan makro ya ihtiyacım var.

[mozakay]

ARKADAŞLAR HERKESE MERHABA,

söyle bir koda ihtiyacım var. yardımcı olabilecek birileri varsa çok sevinirim.


Sayfa1 (B:B) sütunundaki fon rengi kırmızı olan hücreleri
Sayfa2 (B:B) sütununda bul. bulundukları satırı sil.

 

[Orion1]

Örnek dosya ekleyiniz.

 

[mozakay]

Sayın orion1 merhaba

örnek bir dosya hazırladım ama gönderemedim bir türlü.

 

[Orion1]

Sayın orion1 merhaba

örnek bir dosya hazırladım ama gönderemedim bir türlü.

Bir dosya upload sitesinden link verin o zaman.

 

[mozakay]

http://s6.dosya.tc/server5/lm9nmc/ORNEK_DOSYA.rar.html

örnek dosyanın linki

 

[Orion1]

Dosyanız ektedir.

a = MsgBox("RAPORU SİLMEDEN ÖNCE MAİL İLE GÖNDERDİĞİNİZDEN EMİN OLUNUZ!!. SİLMEK İSTEDİĞİNİZDEN EMİN MİSİNİZ?", vbOKCancel)
If a = vbCancel Then Exit Sub
[B][COLOR="Red"]sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Set sh = Sheets("TAKİP")
For i = 2 To sonsat
    If Range("B" & i).Interior.Color = vbRed Then
        Set k = sh.Range("B2:B" & Rows.Count).Find(Cells(i, "B").Value, , xlValues, xlWhole)
        sh.Rows(k.Row).Delete
    End If
Next i[/COLOR][/B]
Application.DisplayAlerts = False

 

[mozakay]

ali bey tam istediğim buydu. nasıl teşekkür etsem az.
emeğinize sağlık.
sağlıcakla kalın.

 

[Orion1]

ali bey tam istediğim buydu. nasıl teşekkür etsem az.
emeğinize sağlık.
sağlıcakla kalın.

İsmim ali değil Evren.

 

[mozakay]

Evren bey kusura bakmayın. Tersim dödü resmen. Bu işler bizim gibi acemiler için biraz fazla galiba
çok teşekkür ederim. Kullandığım asıl dosyaya uyarladım. Mükemmel çalışıyor.
Emeğinize sağlık.

 

[Orion1]

Evren bey kusura bakmayın. Tersim dödü resmen. Bu işler bizim gibi acemiler için biraz fazla galiba
çok teşekkür ederim. Kullandığım asıl dosyaya uyarladım. Mükemmel çalışıyor.
Emeğinize sağlık.

Rica ederim.
İyi çalışmalar.