karşılaştırma

[vethek82]

slm arkadaşlar benim büyük sizin içinse eminim küçük bi sorunum var
kısaca anlatim yardımcı olursanız sevinirim
E1 sutunundaki değerle F1 sutunundaki değerleri baz alıp E ve F sutunlarını tarayacak iki değerde tutuyorsa boyayacak bunu bütün değerler için tarayıp yapması gerekiyor 3169 satır var bunu nasıl yapabiliriz

 

[turist]

Koşullu biçimlendirme ile yapabilirsiniz.

 

[vethek82]

hocam koşullu biçimlendirme ile yapmaya çalıştım ama olmadı aynı sütün içindeki benzeşmeleride veriyor benım istediğim tek sutun için değil arama 2 hücre(sütun) için aktif olacak yani 2 sutunda çalışacak a1 ve b1 değeri alacak a1=a35 ve b1=b35 ise burayı boyayacak.a1=a35 ama b35 eşit değilse b1 boyama yapmayacak

 

[aliveli06]

sadece E1 ve F1 değerlerinimi arayacak yoksa E2 F2, E3 F3 , ... Gibi sırasıyla tüm değerleri de arayacakmı?

 

[vethek82]

2 sutun içinde birbirinin aynı satırları arayacak hocam

 

[aliveli06]

linkdeki dosyayı inceleyiniz.

https://yadi.sk/i/ep5Way_nbMRGA

 

[vethek82]

linkdeki dosyayı inceleyiniz.

https://yadi.sk/i/ep5Way_nbMRGA

evet hocam benim aradığım ve öğrenmek istediğim bu bunu 3169 satıra nasıl uygulayabilirim acaba

 

[aliveli06]

kodları sayfanızın kod kısmına yapıştırıp çalıştırın yada dosyanızı dosya yükleme sitelerinden birine yükleyin uygulayıp gönderelim.

Sub karşılaştırma()
son = Range("e65536").End(3).Row
Application.ScreenUpdating = False
Range("e1:f4000").Interior.ColorIndex = none
For x = 1 To son
Cells(x, "z") = Cells(x, 5) & Cells(x, 6)
Next x
For y = 1 To son
If WorksheetFunction.CountIf(Range("z1:z" & son), Cells(y, "z")) > 1 Then
Cells(y, 5).Interior.ColorIndex = 8
Cells(y, 6).Interior.ColorIndex = 8
End If
Next y
Range("z:z").ClearContents
Application.ScreenUpdating = True
End Sub

 

[vethek82]

kodları sayfanızın kod kısmına yapıştırıp çalıştırın yada dosyanızı dosya yükleme sitelerinden birine yükleyin uygulayıp gönderelim.

Sub karşılaştırma()
son = Range("e65536").End(3).Row
Application.ScreenUpdating = False
Range("e1:f4000").Interior.ColorIndex = none
For x = 1 To son
Cells(x, "z") = Cells(x, 5) & Cells(x, 6)
Next x
For y = 1 To son
If WorksheetFunction.CountIf(Range("z1:z" & son), Cells(y, "z")) > 1 Then
Cells(y, 5).Interior.ColorIndex = 8
Cells(y, 6).Interior.ColorIndex = 8
End If
Next y
Range("z:z").ClearContents
Application.ScreenUpdating = True
End Sub

hocam çok tşkrlr sayenizde sorun olmaktan cıktı bu iş kib

 

[aliveli06]

rica ederim iyi çalışmalar