mevcut koda küçük bir ilave

[sdegirmenci]

Ekteki sayfa üzerinde açıkladığım koda küçük bir ilave konusunda yardımcı olursanız sevinirim.İşleriniz kolay gelsin.

 

[Mahmut Kök]

Aşağı kırmızı renkli kısmı ilave edip deneyiniz.

...
Adres = BUL.Address
    Do
    If SÇ.Cells(BUL.Row, "L") = "G" [COLOR=red]And SÇ.Cells(BUL.Row, "o") = Sheets("GİRİŞ").Range("a1")[/COLOR] Then
    Cells(Satır, "B") = Satır - 13
...

 

[sdegirmenci]

Kıymetli Hocam Mahmut Kök;
İlginiz için teşekkür ederim, Kodu hemen ilave ettim çalıştı. Bilginize sağlık.Hoşçakalın.