Liste karşılaştırma

[zehfeysal]

Arkadaşlar öncelikle iyi akşamlar.
ekli listenin içeriğinde de belirttiğim gibi ,
iki listedeki veriler aynı ise plaka veya metin veya sayı ise fark etmez ve boşluk olsa bile eski liste ile yeni listenin kıyaslamasını yaparak örnekte olduğu gibi renklendirme yapabilirmiyiz.

 

[ÖmerBey]

Merhaba,
Örnek dosyada istediğinizi zaten yapmışsınız, farklı olarak ne istediğinizi anlayamadım.
Makro yerine koşullu biçimlendirme falan mı istiyorsunuz?

 

[zehfeysal]

ömer bey iyi günler.
İki listede de aynı isimler olmasına rağmen bazı plaka ve kodlar bitişik ve ayrı yazıldığından farklı gibi getiriyor. ,
örn. 21 CEL 175 VE Z4840 Aynı olmasına rağmen farklı gibi renklendirme yapıyor.

 

[zehfeysal]

Sayın Üstadlar yardımcı olabilme imkanınız varmı acaba

 

[Korhan Ayhan]

Siz aynı diyorsunuz ama verilerin birisinde boşluk karakteri var. Bu sebeple eşleşme olmaz.

Boşluğa rağmen eşleşsin diyorsanız kodu revize etmek gerekir.

 

[Korhan Ayhan]

Siz aynı diyorsunuz ama verilerin birisinde boşluk karakteri var. Bu sebeple eşleşme olmaz.

Boşluğa rağmen eşleşsin diyorsanız kodu revize etmek gerekir.

Deneyiniz.

M-N sütunlarında geçici işlem yapılmaktadır. Bu sütunların boş olması gerekir.

Sub listele()
    Application.ScreenUpdating = False
    Range("M3:M" & Cells(Rows.Count, 2).End(3).Row).Value = Range("B3:B" & Cells(Rows.Count, 2).End(3).Row).Value
    Range("N3:N" & Cells(Rows.Count, 5).End(3).Row).Value = Range("E3:E" & Cells(Rows.Count, 5).End(3).Row).Value
   
    Range("M:N").Replace " ", ""
   
    Range("B3:B65536").Interior.ColorIndex = xlNone
    Range("E3:E65536").Interior.ColorIndex = xlNone
   
    For a = 3 To [b65536].End(3).Row
        eski = Cells(a, "m")
        yeni = Cells(a, "n")
        If WorksheetFunction.CountIf([n:n], eski) = 0 Then Cells(a, "b").Interior.ColorIndex = 6
        If WorksheetFunction.CountIf([m:m], yeni) = 0 Then Cells(a, "e").Interior.ColorIndex = 38
        If WorksheetFunction.CountIf([m:m], eski) > 1 Then Cells(a, "b").Interior.ColorIndex = 4
        If WorksheetFunction.CountIf([n:n], yeni) > 1 Then Cells(a, "e").Interior.ColorIndex = 33
    Next

    Range("M:N").Clear
    Application.ScreenUpdating = True
End Sub

 

[zehfeysal]

Sayın korhan bey öncelikle iyi akşamlar dilerim.
katkılarınızdan dolayı çok teşekkür ederim. tam istediğim gibi olmuş.

 

[muratgunay48]

Haddim olmayarak, şöyle bir şey yaptım ama. İkisi bir arada gibi.

 

[zehfeysal]

Sayın murat bey katkılarınızdan dolayı teşekkür ederim.
Tüm hayatınızda kolaylıklar ve başarılar dilerim.
iyi akşamlar.

 

[muratgunay48]

Sayın murat bey katkılarınızdan dolayı teşekkür ederim.
Tüm hayatınızda kolaylıklar ve başarılar dilerim.
iyi akşamlar.

Rica ederim hocam, bilmukabele.