Çoklu ara makro

[BONZAİ]

Değerli arkadaşlar,

Örneğin Sayfa1'in A kolonuna yazdığımız metinleri (n tane olabilir ve joker karakter kullanıla bilinir) Sayfa2 A kolonunda yer alan metinler içerisinden eşleşenler var ise karşısına (B kolonuna) "x" yazan bir makro konusunda yardımcı olabilir misiniz?

Şimdiden herkese çok teşekkür ederim.

 

[Murat OSMA]

Dosya eklerseniz yardımcı olalım.​

 

[alicimri]

Aşağıdaki kodu deneyin.

Sub Buldur()
SAY1 = Sheets("Sayfa1").Range("A" & Rows.Count).End(3).Row
SAY2 = Sheets("Sayfa2").Range("A" & Rows.Count).End(3).Row
For i = 1 To SAY1
If WorksheetFunction.CountIf(Sheets("Sayfa2").Range("A1:A" & SAY2), Sheets("Sayfa1").Range("A" & i)) > 0 Then
Sheets("Sayfa1").Range("B" & i).Value = "x"
End If
Next
End Sub

 

[BONZAİ]

Ali Bey öncelikle hızlı geri dönüşünüz için teşekkür ederim.
Göndermiş olduğunuz kodda sayfa1 de metin hangi satırda ise sayfa2 de B kolonuna o satırda "x" getiriyor.

Örn. sayfa1'de A kolonunda 5. satırda tanımlı metin (örn. "ÖDEME") sayfa2'de A kolonu 8.satırda yer alan "SATICI ÖDEMESİ" nin karşısına B kolonuna "x" getirsin. Yani sayfa 2 A kolonu içerisinde ÖDEME geçen metinlerin karşısına "x" getirsin. Ve mümkünse Joker karakterler kullanılabilsin.

Teşekkürler