sutunlardaki hücreleri karşılaştırma

[osmanli2]

üstadlarım ayrdımınıza ihtiyacım var.: d16 d100 arası rakamsal veriler var. aynı şekilde f16 ile f100 arasında da rakamsal veriler var. burada yapmak istediğim makro ile bu iki sutundaki herbir satıra karşılık gelen verileri karşılaştırıp, büyük olan hücre sarı dolgu rengi olacak.



yardımlarını beklerim

 

[uzmanamele]

merhaba
istediğinizin makro ile olması şart mı, koşullu biçimlendirmeyle olsa olmaz mı?
örnek dosya eklerseniz daha çabuk çözüm bulursunuz. sizin yerinize olsa olsa yöntemiyle dosya hazırlanmasını beklemeyiniz.

 

[osmanli2]

sutunları karşılaştırma

bu sayfadaki c ile e , d ile f sutunlarındaki herbir satırdaki verileri karşılaştırım c ile e sutundaki verilerden büyük olanın hücre dolgu rengini sarıya, küçük olanın hücre dolgu rengini açık mavi, aynı şekilde d ile f hücreleride aynı şekilde olacak şekilde bir butona makro ile atayabilirmiyiz lütfen.


yardımlarınız için
teşekkür ederim

 

[Necdet]

Sütunları Karşılaştırma

Merhaba,

4.000. mesajım sizin için oldu

Sub Karsilastir()
Dim i As Long
Set s1 = Sheets("Sayfa1")
s1.Select
Range("C:F").Interior.ColorIndex = xlNone
Application.ScreenUpdating = False
For i = 2 To [B65536].End(3).Row
    If Cells(i, "C") <> Cells(i, "E") Then
        If Cells(i, "C") > Cells(i, "E") Then
            Cells(i, "C").Interior.ColorIndex = 36
            Cells(i, "E").Interior.ColorIndex = 37
        Else
            Cells(i, "C").Interior.ColorIndex = 37
            Cells(i, "E").Interior.ColorIndex = 36
        End If
    End If
 
    If Cells(i, "D") <> Cells(i, "F") Then
        If Cells(i, "D") > Cells(i, "F") Then
            Cells(i, "D").Interior.ColorIndex = 36
            Cells(i, "F").Interior.ColorIndex = 37
        Else
            Cells(i, "D").Interior.ColorIndex = 37
            Cells(i, "F").Interior.ColorIndex = 36
        End If
    End If
 
Next i
Application.ScreenUpdating = True
MsgBox "Karşılaştırma Bitti...."
End Sub

 

[uzmanamele]

merhaba
konu ile ilgisi yok tabiiki.
syn Necdet Yeşertener nice 4.000 inci mesajlara :bravo:

 

[Necdet]

Teşekkür ederim Sayın Süleyman ÖZYÜKSEL

 

[uzmanamele]

merhaba
koşullu biçimlendirme alternatifi olsun

 

[osmanli2]

üstadlarıma sonsuz teşekkürler.ellerinize bilgilerinize sağlık

 

[mürvet]

bencede en mantıklısı koşullu biçimlendirme eger formulü ben makroyu yeni ögreniyorum zaten yardımcı olamıcam o şekilde