Range Kullanımı Hk.

[btasci66]

Merhaba,

Aşağıda yazdığım komutu çalıştıramama sebebim sizce ne olabilir? Eğer .range("A1") gibi spesifik bir hücre belirlersem makro çalışıyor. Yapmak istediğim şey aslında ws.cells(iRow,3)'e atadığım değeri Sayfa1'de yer alan A sütunundaki değerlerle karşılaştırıp eğer eşleşme varsa sayfa ikiye başka bir şey yazdırmak.

Kod:
If ws.Cells(iRow, 3).Value = Worksheets("Sheet1").Range("A2:A89") Then

Worksheets("Sheet2").Range("A2") = "hoş hoş geldin"

End If

Desteğiniz için şimdiden teşekkür ederim.

 

[muygun]

Merhaba;
Tam olarak ne yapmak istediğinizi anlamadım ama iki dosyadaki makrolar sizi yönlendirecektir.
İyi çalışmalar.

Link:
https://s5.dosya.tc/server3/nf8g4g/btasci66-bir_verinin_mukayesesi.zip.html
https://s6.dosya.tc/server2/e4axbb/btasci66-iki_liste_mukayesesi.zip.html

 

[btasci66]

Merhaba;
Tam olarak ne yapmak istediğinizi anlamadım ama iki dosyadaki makrolar sizi yönlendirecektir.
İyi çalışmalar.

Link:
https://s5.dosya.tc/server3/nf8g4g/btasci66-bir_verinin_mukayesesi.zip.html
https://s6.dosya.tc/server2/e4axbb/btasci66-iki_liste_mukayesesi.zip.html

Hıocam merhaba,

Göndermiş olduğunuz dosyada yer alan

"If WorksheetFunction.CountIf(s2.Range("a1:a" & sonn), s1.Cells(i, "a")) >= 1 Then "

kodu ile ne yapıldığını açıklayabilir misiniz rica etsem?

 

[muygun]

Merhaba;
(bu sorunuzu görmemişim)
btasci66-bir verinin mukayesesi dosyasına göre;
Sayfa1 A1 hücresindeki veri'nin varlığı Sayfa2 sayfasında A sütununda Kontrol ediliyor.
Varsa yani bu verinin aynısı 1 yada 1 den fazla ise;
B1 hücresine hoş hoş geldin yazdırılıyor.
İyi çalışmalar.