Farklı Olanı Bulma

[esolen]

Değerli dostlar,
gönderdiğim dosyada meramımı yazdım... Hersayfanın notunu kendi sayfasında belirttim..
Ben düşey ara, veya topla çarp formülleirni denedim ancak biyere varamadım. bu konuda yardımlarınızı beklerim..
saygılarımla,

 

[YUSUF44]

Sorununuzu muhtemelen ben çözemem ama "bir dekontun size ait olmadığını excel nerden bilecek" sorusuna da açıklık getirmeniz gerekiyor sanırım.

 

[esolen]

) sanırım haklısınız ama, dekon numarasını ve fatura daki dekont numarasını ben yazıyorum.. programın var olan veri içinden ayıklamasını istiyrouz.

 

[esolen]

Yardımlarınızı bekliyorum...

 

[YUSUF44]

Programın neye göre ayıklayacağını programa öğretmezseniz, ayıramaz.

 

[Huseyinkis]

Yardımlarınızı bekliyorum...

ekli kodları denermisiniz.

Sub Aktar()
Set s1 = Sheets("Dekont No")
Set s2 = Sheets("Gelen Fatura")
Set s3 = Sheets("Rapor")

For i = 4 To s1.Cells(Rows.Count, 3).End(3).Row
adet = WorksheetFunction.CountIf(s2.Range("D1:D500"), s1.Cells(i, 3).Value)
If adet = 0 Then
sonsat = s3.Cells(Rows.Count, 1).End(3).Row + 1
s3.Cells(sonsat, 1).Value = s1.Cells(i, 2).Value
s3.Cells(sonsat, 3).Value = s1.Cells(i, 3).Value
s3.Cells(sonsat, 4).Value = s1.Cells(i, 4).Value
s3.Cells(sonsat, 7).Value = s1.Cells(i, 5).Value
End If
Next i

For b = 4 To s2.Cells(Rows.Count, 3).End(3).Row
If Len(s2.Cells(b, 4).Value) < 5 Then
sonsat = s3.Cells(Rows.Count, 1).End(3).Row + 1
s3.Cells(sonsat, 1).Value = s2.Cells(b, 2).Value
s3.Cells(sonsat, 2).Value = s2.Cells(b, 3).Value
s3.Cells(sonsat, 3).Value = s2.Cells(b, 4).Value
s3.Cells(sonsat, 4).Value = s2.Cells(b, 5).Value
s3.Cells(sonsat, 5).Value = s2.Cells(b, 6).Value
s3.Cells(sonsat, 6).Value = s2.Cells(b, 7).Value
s3.Cells(sonsat, 7).Value = s2.Cells(b, 8).Value
End If
Next b


End Sub

 

[esolen]

Yaptım ama sonucunu göremedim

 

[Huseyinkis]

Yaptım ama sonucunu göremedim

Ekli dosyayı incelermisiniz.

 

[esolen]

Hüseyin bey aline sağlık
müşhiç oldu
Ancak Faturadanda dekonttanda birer tane çıkması gerekirken neden 5 adet aynı bilgi çıkıyor

 

[esolen]

Hüseyin bey sanırım çıkan sonuçları düzelttikten sonra tekrar raporla dediğimizde
ilk çıkan sonuçları silmiyor
bundna dolayı listede birden fazla çıkıyor
çözüm olarak ben raporun sonuçlarını silip tekrardan raporla dediğimde doğru veri geliyor

 

[Huseyinkis]

Sub Aktar()
Set s1 = Sheets("Dekont No")
Set s2 = Sheets("Gelen Fatura")
Set s3 = Sheets("Rapor")

sonsat1 = s3.Cells(Rows.Count, 1).End(3).Row + 1
s3.Range("A4:Z"&sonsat1).ClearContents


kodların başına Set s3 kısmının altına koyu ile yazdığım kodları eklerseniz sorunu cozecektir.