Sayfalar arası mükerrer

[cigerkarakaya]

sayfa1 a sütunundaki verileri sayfa2 a sütununda var mı yok mu kontrol edip b sütununa varsa var yoksa yok yazmak istiyorum. aynı şeyi sayfa2 a sütunundakiler sayfa1 a sütununda da kontrol ettirmek istiyorum.

 

[Bagcivan]

Merhabalar,

Örnek dosya göndermediğiniz için, anlattığınız kadarıyla aşağıdaki formülü "Sayfa1" - "B1" hücresine yapıştırınız.

=EĞER(EHATALIYSA(DÜŞEYARA(A1;Sayfa2!$A$1:$A$100;1;YANLIŞ));"Yok";"Var")

 

[cigerkarakaya]

örnek dosyaya ihtiyaç olduğunu düşünmedim. Meseleyi zaten anlamışsınız. Tam sizin tarif ettiğiniz gibi. Formülle ben de denedim aynısını, fakat sayfa1 de 143000 satır sayfa2 de 121000 satır veri bulunuyor. o yüzden formülle yapmak çok zor oluyor. bilgisayarı kilitlemese aslında sorun değil
Teşekkür ederim yardımınız için ama benim makroya ihtiyacım var.

 

[Bagcivan]

Merhabalar,

Kusura bakmayın. Konunun Macro-VBA'da açıldığına dikkat etmemişim.

İyi günler

 

[cigerkarakaya]

Teşekkürler
Size de iyi günler.

 

[omerceri]

Sn cigerkarakaya
Aşağıdaki kodu deneyin

Sub test()
say = Sheets("Sayfa1").Range("A65536").End(3).Row
For i = 1 To say
If Application.CountIf(Sheets("Sayfa2").Columns("A:A"), Sheets("Sayfa1").Range("A" & i)) >= 1 Then
Sheets("Sayfa1").Range("b" & i).Value = "var"
Else
Sheets("Sayfa1").Range("b" & i).Value = "yok"
End If
Next
End Sub

 

[cigerkarakaya]

Çok teşekkür ederim. Biraz bilgisayarı kasıyor yaparken ama tam istediğim şeydi. Ellerinize sağlık.
İyi günler.