Soru Personel Malzeme Zimmet Karşılaştırma 2022

[yyhy]

Personel Malzeme Zimmet Karşılaştırma dosyasında iki sütundaki farklılıkları Koşullu Biçimlendirme veya Macro ile renklendirebilir miyiz?

 

[ozanyakar]

Sayın yyhy Bu şekilde işinizi görür mü , daha profesyonel bir çalışma mı arıyorsunuz ?

 

[ozanyakar]

Personel Malzeme Zimmet Karşılaştırma dosyasında iki sütundaki farklılıkları Koşullu Biçimlendirme veya Macro ile renklendirebilir miyiz?

Tabloya 3 sütun ekleyip , Sadece Düşey ara ve koşullu biçimlendirme kullandım.

 

[yyhy]

Sayın @ozanyakar şimdilik işimizi görür ama farklı yöntem ve çalışma olsa daha iyi olur. Kullanan arkadaşlar formülleri yanlışlıkla kaydırdığında veya formülü bozduğunda sorun olur diye düşünüyorum.

 

[ozanyakar]

Sayın @ozanyakar şimdilik işimizi görür ama farklı yöntem ve çalışma olsa daha iyi olur. Kullanan arkadaşlar formülleri yanlışlıkla kaydırdığında veya formülü bozduğunda sorun olur diye düşünüyorum.

 

[yyhy]

Sayın @ozanyakar dosyada ben bir değişiklik göremedim. Yanlış dosya mı eklediniz acaba?
Ek dosyada; Koşullu Biçimlendirme, Eklenen yardımcı sütun veya formül de göremedim.

 

[ozanyakar]

Sayın yyhy yanlış dosyayı yüklemişim özür dilerim. Geç gördüm mesajınızı kusura bakmayın. Yeşil sütunları ekledim. Dosya ektedir.

 

[AdemCan]

Merhaba, dener misiniz?

Sub test()
Dim veri As Worksheet
Set veri = Sheets("Veri")

Application.ScreenUpdating = False
bson = veri.Cells(Rows.Count, 2).End(3).Row
veri.Range("B10:B" & bson).Interior.Color = xlNone
veri.Range("D10:D" & bson).Interior.Color = xlNone

For i = 10 To bson
    b = WorksheetFunction.CountIf(veri.Range("D10:D" & bson), veri.Cells(i, 2))
    d = WorksheetFunction.CountIf(veri.Range("B10:B" & bson), veri.Cells(i, 4))
    
    If b = 0 Then
        veri.Cells(i, 2).Interior.Color = vbGreen
    End If
    
    If d = 0 Then
        veri.Cells(i, 4).Interior.Color = vbRed
    End If
Next

Application.ScreenUpdating = True
End Sub

 

[yyhy]

Sayın @ozanyakar ve Sayın @AdemCan çok çok teşekkürler. Emeğinize sağlık.