2 listede yer alan fatura numaralarını karşılaştırma

[stier_22]

Arkadaşlar sizin için için çok basit benim için çok zor olan bir sorum olacak

1 Nolu listede yer alan sarı renkli fatura numaralarını 2 nolu Listede arasın olanlara var olmayanlara yok yazsın istiyorum

Yardımlarınızı rica ederim...

http://s3.dosya.tc/server13/onq8s8/1.xls.html

http://s3.dosya.tc/server13/q41hi0/2.xls.html

 

[huseyinvurkan]

Merhaba. İstediğiniz böyle bir şey mi?


http://s3.dosya.tc/server13/s14t7o/1.xls.html

 

[stier_22]

Merhaba. İstediğiniz böyle bir şey mi?


http://s3.dosya.tc/server13/s14t7o/1.xls.html

Merhaba öncelikle cevabınız için teşekkürler fakat istediğim tam olarak bu değil şöyle ki; 1 nolu dosyada yer alan C sütunundaki fatura numaraları 2 nolu dosya da ki E sütununda yer alan fatura numaraları içinde yer alıyorsa "var" yer almıyorsa "yok" demesini istiyorum.

 

[huseyinvurkan]

Merhaba Dediğiniz gibi 1 Nolu dosyada eklediğim D sütunu

=EĞERSAY(C3;'[2.xls]İndirilecek KDV Listesi'!$E$5:$E$188)

formülüyle 2 nolu dosyadaki E5:E188 aralığında C sütunundaki veriyi arıyor varsa 1 yoksa 0 yazıyor. bu sütunu gizleyebilirsiniz.

E sütunu ise

=EĞER(D3=1;"VAR";"YOK")

D sütununda 1 yazıyorsa var 0 yazıyorsa yok yazıyor. Sizin istediğiniz de bu değil mi?

 

[stier_22]

Merhaba Dediğiniz gibi 1 Nolu dosyada eklediğim D sütunu

=EĞERSAY(C3;'[2.xls]İndirilecek KDV Listesi'!$E$5:$E$188)

formülüyle 2 nolu dosyadaki E5:E188 aralığında C sütunundaki veriyi arıyor varsa 1 yoksa 0 yazıyor. bu sütunu gizleyebilirsiniz.

E sütunu ise

=EĞER(D3=1;"VAR";"YOK")

D sütununda 1 yazıyorsa var 0 yazıyorsa yok yazıyor. Sizin istediğiniz de bu değil mi?

fakat sizin yapmış olduğunuz listede yok çıkan fatura numaralarının bir kısmı ctrl+f ile arattığımda diğer dosyada var olarak çıkıyor :roll:

Örnek verecek olursak 71558 nolu fatura her iki listede de var ama sizin formülde yok olarak çıkmış

 

[huseyinvurkan]

Merhaba Evet haklısınız ancak bendeki hatanın sebebini bulamadım. İnşallah bir cevap veren olur da doğrusunu öğreniriz. Saygılar.

 

[stier_22]

Merhaba Evet haklısınız ancak bendeki hatanın sebebini bulamadım. İnşallah bir cevap veren olur da doğrusunu öğreniriz. Saygılar.

Teşekkür ederim uğraştırdık sizi

 

[huseyinvurkan]

Ne demek estağfurullah. Ben de yavaş yavaş öğrenmeye çalışıyorum. İnşallah cevabı bulursam yazarım.

 

[huseyinvurkan]

Tekrar merhaba. Bu sefer doğruyu bulduğumu zannediyorum. eğersay formülü;

=EĞERSAY('[2.xls]İndirilecek KDV Listesi'!$E$5:$E$188;C3) şeklinde olmalıydı.


http://s3.dosya.tc/server13/1d2kw7/1.xlsx.html

Sadece D sütunu ekleyip D3 hücresine:

=EĞER(EĞERSAY('[2.xlsx]İndirilecek KDV Listesi'!$E$5:$E$188;C3)>0;"VAR";"YOK") yazıp aşağı doğru kopyalayıp aynı sonucu elde edebiliriz. Saygılar

 

[TanerSaydam]

Hocam istediğin aşağıdaki gibi bir şeyse, bunu başka bir excel'den ara şeklinde düzenleyebilirim. Ya da daha basiti siz 2.ci exceldeki rakamları 1'e kopyalar ve tuşa basarsınız.

http://dosya.co/9shggw8rtwe8/1.xls.html

Private Sub CommandButton1_Click()
Dim son, x, a, v, y As Integer
son = Range("C" & Rows.Count).End(xlUp).Row
son1 = Range("E" & Rows.Count).End(xlUp).Row

Range("D3:D" & Range("D" & Rows.Count).End(3).Row).ClearContents

y = 2
For a = 3 To son
y = y + 1
    For x = 3 To son1
    If Range("C" & y) = Range("E" & x) Then
    Range("D" & y) = "VAR"
    GoTo atla
    End If
    Next x
atla:
    Next a
    
For y = 3 To son
If Range("D" & y) = "" Then
Range("D" & y) = "YOK"
End If
Next y


MsgBox "İşlem başarıyla tamamlandı!", vbOKOnly + vbInformation, "İŞLEM TAMAMLANDI!"
End Sub