makro ile karşılaştırma

[alimutlu2308]

arkadaşlar sizden küçük bir yardım rica ediyorum.
ek'teki dosyada sheet1 ve sheet2 deki ramları makro ile karşılaştırarak
sheet1'de olup sheet2 de olmayan rakamların sheet3 te alt alta listelenmesini istiyorum. bir buton ekleyip bu butona makro ekledikten sonra bu butona tıklayarak bunları listeleyebilirmiyiz acaba.
şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub olmayanlar()
Dim sat As Long, sat1 As Long, sat2 As Long, sh1 As Worksheet, sh2 As Worksheet, i As Long
Sheets("Sheet3").Select
Set sh1 = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
Application.ScreenUpdating = False
Range("A2:A65536").ClearContents
sat = 2
sat1 = sh1.Cells(65536, "A").End(xlUp).Row
sat2 = sh2.Cells(65536, "A").End(xlUp).Row
For i = 1 To sat1
    If WorksheetFunction.CountIf(sh2.Range("A1:A" & sat2), sh1.Cells(i, "A").Value) = 0 Then
        Cells(sat, "A").Value = sh1.Cells(i, "A").Value
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[alimutlu2308]

teşekkürler

Evren bey yardımlarınız için çok teşekkür ederim.
iyi günler

 

[alimutlu2308]

kendi tabloma uyduramadım.

evren bey sizden tekrar yardım rica ediyorum. Hazırladığınız tamda istediğim gibi fakat ben onu kendi tabloma uyarlayamadım. sizden ricam yeni eklediğim tabloda bunu yapabilirmisiniz. Yeni eklediğim tablodaki actuate vergili sheetinin a sütünündaki hesaplarla hesap kontrolü sheetinin a sütünundaki hesapları karşılaştırıp actuate vergilide olup hesap kontrolünde olmayan hesapların hesap kontrolündeki farklı hesaplar sheetine yazdırabilirmiyiz. tşk.

 

[Orion1]

evren bey sizden tekrar yardım rica ediyorum. Hazırladığınız tamda istediğim gibi fakat ben onu kendi tabloma uyarlayamadım. sizden ricam yeni eklediğim tabloda bunu yapabilirmisiniz. Yeni eklediğim tablodaki actuate vergili sheetinin a sütünündaki hesaplarla hesap kontrolü sheetinin a sütünundaki hesapları karşılaştırıp actuate vergilide olup hesap kontrolünde olmayan hesapların hesap kontrolündeki farklı hesaplar sheetine yazdırabilirmiyiz. tşk.

Dosyanız ektedir.

Sub olmayanlar()
Dim sat As Long, sat1 As Long, sat2 As Long, sh1 As Worksheet, sh2 As Worksheet, i As Long
Sheets("HESAP KONTROLÜ").Select
Set sh1 = Sheets("ACTUATE VERGİLİ")
Set sh2 = Sheets("HESAP KONTROLÜ")
Application.ScreenUpdating = False
Range("F2:F65536").ClearContents
sat = 2
sat1 = sh1.Cells(65536, "A").End(xlUp).Row
sat2 = sh2.Cells(65536, "A").End(xlUp).Row
For i = 1 To sat1
    If WorksheetFunction.CountIf(sh2.Range("A1:A" & sat2), sh1.Cells(i, "A").Value) = 0 Then
        Cells(sat, "F").Value = sh1.Cells(i, "A").Value
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub