AYRI SAYFALARDAKİ VERİLERİ MAKRO YADA FONKSİYONLA KARŞILAŞTIRMA

[EMRE YALÇIN]

Merhaba. Ekte ki dosyada muhasebe kısmı ile portal kısmını karşılaştırıp portalda olan ama muhasebede olmayan ve muhasebede olup portalda olmayan şekilde "sonuç" sayfasına veri, bilgi getrimesini istediğim bir proje yapar mısınız.?

 

[uzmanamele]

Merhaba

Fatura noya göre karşılaştırıldığında her 2 sayfadaki veriler ortak.
Neye göre karşılaştırma yapmak isyitorsunuz?

 

[EMRE YALÇIN]

Aynı olabilir. Eğer birinde olan fatura no diğerinde yoksa buna ulaşmak istiyorum makroyla.

 

[Ömer]

Merhaba,

Benim anladığım.

Sub Karsilastir()

    Dim S1 As Worksheet, S2 As Worksheet, c As Range, sat As Long, i As Long
   
    Set S1 = Sheets("MUHASEBE")
    Set S2 = Sheets("PORTAL")
   
    Application.ScreenUpdating = False
    Sheets("SONUÇ").Select
    Range("A2:B" & Rows.Count) = ""
   
    sat = 2
    For i = 2 To S2.Cells(Rows.Count, "D").End(xlUp).Row
        Set c = S1.[A:A].Find(S2.Cells(i, "D"), , xlValues, xlWhole)
        If c Is Nothing Then
           Cells(sat, "A") = S2.Cells(i, "D")
           Cells(sat, "B") = "Muhasebede Yok"
           sat = sat + 1
        End If
    Next i
   
    For i = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row
        Set c = S2.[D:D].Find(S1.Cells(i, "A"), , xlValues, xlWhole)
        If c Is Nothing Then
           Cells(sat, "A") = S1.Cells(i, "A")
           Cells(sat, "B") = "Portalde Yok"
           sat = sat + 1
        End If
    Next i
   
    If sat = 2 Then MsgBox "Eksik Kayıt Yok."
    Application.ScreenUpdating = True

End Sub

 

[EMRE YALÇIN]

Merhaba,

Benim anladığım.

Sub Karsilastir()

    Dim S1 As Worksheet, S2 As Worksheet, c As Range, sat As Long, i As Long
  
    Set S1 = Sheets("MUHASEBE")
    Set S2 = Sheets("PORTAL")
  
    Application.ScreenUpdating = False
    Sheets("SONUÇ").Select
    Range("A2:B" & Rows.Count) = ""
  
    sat = 2
    For i = 2 To S2.Cells(Rows.Count, "D").End(xlUp).Row
        Set c = S1.[A:A].Find(S2.Cells(i, "D"), , xlValues, xlWhole)
        If c Is Nothing Then
           Cells(sat, "A") = S2.Cells(i, "D")
           Cells(sat, "B") = "Muhasebede Yok"
           sat = sat + 1
        End If
    Next i
  
    For i = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row
        Set c = S2.[D:D].Find(S1.Cells(i, "A"), , xlValues, xlWhole)
        If c Is Nothing Then
           Cells(sat, "A") = S1.Cells(i, "A")
           Cells(sat, "B") = "Portalde Yok"
           sat = sat + 1
        End If
    Next i
  
    If sat = 2 Then MsgBox "Eksik Kayıt Yok."
    Application.ScreenUpdating = True

End Sub

Peki bunu nasıl deneyim. Yani hangi sayfaya makro atayacam tarif eder misiniz.?

 

[Ömer]

Eki inceleyiniz. Kodlar Module1 dedir.

.

 

[EMRE YALÇIN]

Emeğinize sağlık . Teşekkürler.

 

[sbayyigit]

Ömer hocam kodlarınızı ben de farklı bir amaçla kullandım. işime çok yaradı. Fakat ufak bir ayrıntıya ihtiyacım var.
Bu kodla bir sayfada olup diğer sayfada olmayan verileri bulabiliyorum. Ayrıca bir sayfada veya her iki sayfada birden fazla aynı kayıt varsa Bunu da belirtmem gerekiyor.
örneğin. Hem Muhasebe sayfasında Hem de portalde 2 kayıt varsa " her iki sayfada da 2 kayıt var"
Bir sayfada 1 diğer sayfada 1' den fazla kayıt varsa " portalde 2 kayıt varken muhasebede 1 kayıt var" şeklinde yazacak revizyona ihtiyacım var.
teşekkürler