2 sütun arasında karşılaştırma yapma

[ozlem.cg]

2 sutun arasındaki aynı olan değerleri bulup renkle işaretlenmesini istiyorum Yardımcı olursanız sevinirim. teşekkürler.

 

[Orion1]

Merhaba.
A ve B sütununu karşılaştırıyor. Ayni olan hücreleri kırmızı renkle dolduruyor.
Fon bold yapılıyor.Ve font rengi sarı oluyor.Kodlar aşağıdadır.

Sub karsilastir()
Dim sonsat As Long
sonsat = Cells(65536, "A").End(xlUp).Row
Range("A1:B" & sonsat).ClearFormats
For i = 1 To sonsat
    If WorksheetFunction.CountIf(Range("B1:B" & sonsat), Cells(i, "A")) >= 1 Then
        Range("A" & i).Interior.ColorIndex = 3
        Range("A" & i).Font.ColorIndex = 6
        Range("A" & i).Font.Bold = True
    End If
    If WorksheetFunction.CountIf(Range("A1:A" & sonsat), Cells(i, "B")) >= 1 Then
        Range("B" & i).Interior.ColorIndex = 3
        Range("B" & i).Font.ColorIndex = 6
        Range("B" & i).Font.Bold = True
    End If
Next
End Sub

 

[ozlem.cg]

ben makroda yazmasını bilmiyorum. normal bir formülünüz varmıydı elinizde :mrgreen:

 

[Orion1]

benim yazdığım kodları kopyalayın.
1-)Alt+F11
2-)Insert
3-)Module
Şimdi açılan boş modüle yapıştırın.
VB editörünü kapatın.
Çalıştırmak için:
Alt+F8 ebasın
Çıkan makro listesinden karsilastir makrosuna 2 kere tıklayın.İşlem tamam.

 

[Orion1]

ben makroda yazmasını bilmiyorum. normal bir formülünüz varmıydı elinizde :mrgreen:

Merhaba.
Koşullu biçimlendirme ile yapabilirsiniz.
A sütununda koşullu biçimlendirme uygulunacak ralığı önce seçin ve sonrada koşullu biçimlendirmeye aşağıdaki formülü yazın.Ben 9 satır için yaptım siz istediğiniz satır kadar yapabilirsiniz.
=eğer(eğersay($B$1:$B$9;A1)>=1;1;0)
yazin ve istediğiniz biçimlendirmeyi yapın.
sonrada B sütunundaki arlaığı seçin.Ve aşağıdaki formülü yazın.
=eğer(eğersay($A$1:$A$9;B1)>=1;1;0)
yazın ve istediğiniz biçimlendirmeyi yapın.
İşlem tamam.

 

[ozlem.cg]

teşekkürederim. dediğinizin aynısını yaptım. yapıştırdım. kapattım. sonra alt+f8 e bastım 2 kere tıkladım. ama hiçbirşey olmadı:roll:

 

[Orion1]

Aşağıdaki kodları denermisiniz.
Kodun çalışması bitince mesaj vericek.Birde veriler A ve B sütununda olacak .
Veriler hangi saygfada ise o sayfada çalıştırın makroyu.
Sizin karşılaştırılacak verileriniz.A ve B sütunundamı?

Sub karsilastir()
Dim sonsat As Long
sonsat = Cells(65536, "B").End(xlUp).Row
Range("B1:D" & sonsat).ClearFormats
For i = 1 To sonsat
    If WorksheetFunction.CountIf(Range("D1:D" & sonsat), Cells(i, "B")) >= 1 Then
        Range("B" & i).Interior.ColorIndex = 3
        Range("B" & i).Font.ColorIndex = 6
        Range("B" & i).Font.Bold = True
    End If
    If WorksheetFunction.CountIf(Range("B1:B" & sonsat), Cells(i, "D")) >= 1 Then
        Range("D" & i).Interior.ColorIndex = 3
        Range("D" & i).Font.ColorIndex = 6
        Range("D" & i).Font.Bold = True
    End If
Next
MsgBox "Karşılaştırma Yapıldı..!!", vbOKOnly, Application.UserName
End Sub

 

[ozlem.cg]

hayır B ve D de bu arada isrerseniz sayfayı yollayayım size ekte gönderiyorum

 

[ozlem.cg]

sanıırm olmadı bir daha yolluyorum

 

[Orion1]

Merhaba.
Dosyanız ekte.

 

[Necdet]

Merhaba,

Koşullu biçimlendirme ile benzerlerini biçimlendirdim.

B ve D sütunlarındaki koşullu biçimlendirmeyi inceleyiniz

 

[ozlem.cg]

teşekkürederim arkadaşlar ama bu yapılan sağlıklı bir yöntem olmadığı anladım cünkü bir hücrenin karşıtı aynı içerikte olsada farklı düzende oluyor. buda sağlıklı bir sonuç vermiyor. yani hücreler bire bir değil.. oyüzden bu yolladıklaırnız dışında tek tek kontrol etmekteyim. yinede cok teşekküler öğrenme maksadı ile yardım istedim. keşke kendim yapsaydım daha iyi olurdu ama boş bir zamanımda deneyerek yapacağım. cok teşekkürederim.

 

[Necdet]

teşekkürederim arkadaşlar ama bu yapılan sağlıklı bir yöntem olmadığı anladım cünkü bir hücrenin karşıtı aynı içerikte olsada farklı düzende oluyor. buda sağlıklı bir sonuç vermiyor. yani hücreler bire bir değil.. oyüzden bu yolladıklaırnız dışında tek tek kontrol etmekteyim. yinede cok teşekküler öğrenme maksadı ile yardım istedim. keşke kendim yapsaydım daha iyi olurdu ama boş bir zamanımda deneyerek yapacağım. cok teşekkürederim.

Anladıysam arap olayım, boşuna uğraştık sanırım

 

[Orion1]

Anladıysam arap olayım, boşuna uğraştık sanırım

:lol: :lol: :lol: :lol:

 

[ozlem.cg]

evet ama şu an için boşuna benim için öğrenmek daha önemli işimi bir şekilde hallettim sonuca ulaşıncaya kadar

 

[Necdet]

evet ama şu an için boşuna benim için öğrenmek daha önemli işimi bir şekilde hallettim sonuca ulaşıncaya kadar

Umarım bundan sonra sorularınızı yanıtlayan kişi bulursunuz

 

[tahsinanarat]

verilen cevaplar

Verilen bu cevapları beyenmediyseniz, demekki tam olarak derdinizi anlatamamışsınız, daha doğrusu ne istediğinizi tam olarak sizde bilmiyorsunuz,
(2 sutun arasındaki aynı olan değerleri bulup renkle işaretlenmesini istiyorum Yardımcı olursanız sevinirim. teşekkürler.) istemişsiniz, yukarıda istediğiniz cevaplar verildiği halde memnun kalmamışsınız.

 

[ugurarik]

üstadlarım ellerinize kollarınıza sağlıkk..