iki farklı programdan excele aktarılan verilerin kontrolü

[ne3c9m]

Ekde bulunan ve iki farklı programdan excel e aktarılan verileri karşılaştırmak ve birinde olup da diğerinde olmayan verinin kırmızı ile yazılmasını istiyorum.

Bunun için nasıl bir makro yazmak gerekir ??

Not: Ek'deki dosyalar ile cevap verirseniz mümkünse dosyaları sıkıştırmadan gönderiniz

Teşekkürler,

 

[veyselemre]

Sütunları bir sayfada A ve B sütunlarına kopyalayın ve aşağıdaki makroyu çalıştırın.

Sub deneme()

[a:B].Copy
[C:D].PasteSpecial
[C:D].Select

    Selection.Replace What:="-JAN-", Replacement:=".01."
    Selection.Replace What:="-FEB-", Replacement:=".02."
    Selection.Replace What:="-MAR-", Replacement:=".03."
    Selection.Replace What:="-APR-", Replacement:=".04."
    Selection.Replace What:="-MAY-", Replacement:=".05."
    Selection.Replace What:="-JUN-", Replacement:=".06."
    Selection.Replace What:="-JUL-", Replacement:=".07."
    Selection.Replace What:="-AUG-", Replacement:=".08."
    Selection.Replace What:="-SEP-", Replacement:=".09."
    Selection.Replace What:="-OCT-", Replacement:=".10."
    Selection.Replace What:="-NOV-", Replacement:=".11."
    Selection.Replace What:="-DEC-", Replacement:=".12."

For i = 3 To 4
    For ii = 2 To Cells(65536, i).End(3).Row
        Cells(ii, i) = CDate(Cells(ii, i))
    Next ii
Next i

For i = 2 To [c65536].End(3).Row
    If WorksheetFunction.CountIf([d:d], Cells(i, 3)) = 0 Then Cells(i, 3).Interior.ColorIndex = 4
Next i
For i = 2 To [d65536].End(3).Row
    If WorksheetFunction.CountIf([c:c], Cells(i, 4)) = 0 Then Cells(i, 4).Interior.ColorIndex = 4
Next i

End Sub

 

[ne3c9m]

Elinize, bilginize sağlık,


Teşekkürler,