Metin karşılaştırma

[sbayyigit]

Merhaba arkadaşlar;
daha önce yaptığım bir karşılaştırma makrosunda bir değişiklik yapmam gerekiyor.
aşağıdaki kodla sayfa1'de "D" sütununda bulunan hücredeki değere bakarak sayfa2'de "D" sütunu içerisinde aynı değer varsa sayfa1 E sütunundaki satıra var diye yazdırıyorum

yapmak istediğim şey 1 sayfa1 da "D" sütunundaki hücrenin tamamı değil de sadece ilk iki kelimesi sayfa2 deki "D" sütünunda varsa aynı işlemi yapmak.

ilginiz için teşekkürler.

Sub kkkkk()
Set s1 = Sheets("sayfa1")
Set S2 = Sheets("sayfa2")
son = s1.Cells(Rows.Count, "d").End(3).Row
s1.Range("e2:e" & son).ClearContents

For i = 1 To son
If WorksheetFunction.CountIf(S2.Range("d1:d" & son), Cells(i, "d")) > 0 Then s1.Cells(i, "e") = "var"

Next
End Sub

 

[Tevfik_Kursun]

Merhaba,
İlle makro mu gerekli? Bunu fonksiyonla da yapabilirsiniz. Örneğinize bakıyorum.
İyi çalışmalar

 

[sbayyigit]

Merhaba,
İlle makro mu gerekli? Bunu fonksiyonla da yapabilirsiniz. Örneğinize bakıyorum.
İyi çalışmalar

Evet Tevfik hocam. makro ile yapmam gerekiyor. Gönderdiğim Çok basit bir formu idi. Aslında bir sayfadaki verileri kontrol edip diğer sayfadaki değere karşılık gelen satırın farklı sütunlarındaki verileri alacağım.

 

[Tevfik_Kursun]

Kolay gelsin
İşinize yaramazsa zarar yok. Ben de antrenman yapmış oldum. Arkadaşlar yardım edecektir.
İyi çalışmalar