4 sütundaki değer ile diğer 4 sütundaki değeri karşılaştırma.

[stormeagle1986]

Arkadaşlar bu işlemi yarına kadar bitirmem gerekiyor ve nasıl yapacağımı bilmiyorum. Yardımcı olursanız çok sevinirim.

A B C D sütunlarındaki değerler ile G H I J K sütunundaki değerler birbirini tutmuyor bir şekilde kırmızı ile belirtilmesini veya yanındaki bir satıra Evet Hayır gibi bir şey ile belirtilmesini nasıl sağlayabiliriz acaba?

Örneğin sarı olan sütunlardaki değerlerin tamamı diğer sarı sütünlardaki değerler ile birebir tutuyor mu diye kontrol etmek.

 

[ÖmerBey]

Merhaba,
Dosyanızın yedeğini aldıktan sonra aşağıdaki makro kodunu deneyiniz.

Sub kod()
For a = 1 To Range("E65500").End(3).Row
    If Cells(a, "E") <> "" And IsNumeric(Cells(a, "E")) Then
        If Cells(a, "F") = UCase(Cells(a, "F")) Then
            Cells(a, "F").ClearContents
        End If
    End If
Next
End Sub

 

[stormeagle1986]

Merhaba,
Dosyanızın yedeğini aldıktan sonra aşağıdaki makro kodunu deneyiniz.

Ömer Bey teşekkürler, tam siz cevap yazdınız ki ben konunun içeriğini değiştirdim. Yeni sorum için ise yeni konu açarak kirlilik yaratmak istemedim, o yüzden içeriği değiştirdim.

[Bir önceki kısmı yetiştiremeyeceğimi düşündüğüm için pas geçtim ]

 

[Haluk]

Şöyle bir şey olabilir ....

G1 hücresine aşağıdaki formülü yazıp, hücreye alta doğru sürükleyerek diğer hücrelere kopyalanmasını sağlayın.

"G" sütununda çıkan "1" değerleri, sizin belirttiğiniz kritere uyan verilerin olduğu satırları gösterecektir.

=ESAYIYSA(E1)*ÖZDEŞ(F1;BÜYÜKHARF(F1))

Not: Ben cevap yazana kadar soru değişmiş ..... ilk defa başıma geldi doğrusu ....:biggrin:


.

 

[ÖmerBey]

İkinci sorunuz için aşağıdaki formülü küllanabilirsiniz.

=EĞER(BİRLEŞTİR(A1;B1;C1;D1;E1)=BİRLEŞTİR(G1;H1;I1;J1;K1);"AYNI";"FARKLI")