Makro ile veri aktarırken ikinci şartı nasıl ekleriz

[recepm]

Selam hayırlı akşamlar herkeze ,

Sorunum şudur arkadaşlar veriyi istediğim gibi aktarıyorum ama kriter olarak bugün olmasını istiyorum bir türlü örnek bulamadım yapacağım yardımlarınız için hepinize teşekkürler..

 

[Orion1]

sorguyu aşağıdaki ile değiştirin.

If Sheets("2013.Hasarlı.Listesi").Cells(x, "ı") = "Tekrar Gidilecek" _
        And Sheets("2013.Hasarlı.Listesi").Cells(x, "A").Value = Date Then

 

[recepm]

Orion hocam ellerinize süpersiniz..