Fatura listesini karşılaştırma

[NADİR YILDIZ]

Arkadaşlar iyi günler.mükellef ve muhasebe listelerim var..benim istediğim muhasebe listesini mükellef listesi ile karşılaştırmak.listeleri karşılatırırken tarih ft.no.ünvan kdv sütunlarını karşılaştırdıktan sonra aynı olanları aynı sayfasına farklı olanları farklı sayfasına aktarmak istiyorum.aktarırken bu sayfadaki bilgiler kalacak..yani aktardığımda bu sayfadaki bilgileri silmeyecek

 

[Ziynettin]

Merhaba,
Eki deneyiniz.

Option Explicit

Sub Ayni_Farkli_Listele()
Dim a(), b(), c(), v(), d As Object, Krt As Variant
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
Dim i As Long, j As Byte, s As Long, n As Long
Set S1 = Sheets("GENEL LİSTE")
Set S2 = Sheets("AYNI")
Set S3 = Sheets("FARKLI")
Set d = CreateObject("Scripting.Dictionary")
a = S1.Range("A3:F" & S1.Cells(Rows.Count, 1).End(3).Row).Value
b = S1.Range("H3:M" & S1.Cells(Rows.Count, "H").End(3).Row).Value
For i = 1 To UBound(a)
    Krt = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 6)
    d(Krt) = d(Krt) + 1
Next i
ReDim c(1 To UBound(b), 1 To UBound(b, 2))
ReDim v(1 To UBound(b), 1 To UBound(b, 2))
For i = 1 To UBound(a)
    Krt = b(i, 1) & "|" & b(i, 2) & "|" & b(i, 3) & "|" & b(i, 6)
    If d(Krt) = 1 Then
        s = s + 1
        For j = 1 To 6
            c(s, j) = b(i, j)
        Next j
    Else
        n = n + 1
        For j = 1 To 6
            v(n, j) = b(i, j)
        Next j
    End If
Next i
S2.Range("A3:F" & Rows.Count).ClearContents
S3.Range("A3:F" & Rows.Count).ClearContents
If n > 0 Then S3.[A3].Resize(n, 6) = v
If s > 0 Then S2.[A3].Resize(s, 6) = c
MsgBox "İşleminiz tamamlandı.", vbInformation
End Sub

 

[Emir Hüseyin Çoban]

. . .

Her zaman iki tablonun satır sayıları eşit mi olur.

Sayfadaki koşullu biçimlendirmeyi iptal edip, aktarma durumuna göre satırı boyasak daha kullanışlı olur.

. . .

 

[NADİR YILDIZ]

Günaydın...Ziynettin bey tam istediğim gibi olmuş teşekkür ederim..Hüseyin bey koşullu biçimlendirmeyi sadece belli olsun diye yaptım..sizin dediğiniz gibi aktarma durumuna göre satırların boyanması daha iyi olur..şimdi aklıma başka birşeyde geldi...farklı olanları fark sayfasına aktarıyor..ancak komple satırı aktardığı için hata nerede net olarak göremiyorum..fark sayfasında hata hangi hücrede ise o hücreyi renklendirme imkanımız olur mu acaba ?

 

[NADİR YILDIZ]

Bu konuda çözüm varmı ?