isme göre ana şube kodunu baz alıp diğer kayıtları silme

[MURATSO]

arkadaşlar merhaba,

Şöyle bir sorunum var

tablo şu şekilde

P2, P3, P4 satırlarında Ali Veli isminde müşteri var, Q2, Q3, Q4 satırlarında ise ana şube kodu var hepsi 2000, R2 = 1000, R3 = 2000, R4 =9019 satırlarında ise diğer şube kodları var, istediğim şey ise ali velinin sadece ana şube olan satırları yani R3 satırındaki 2000 olan ana şube kalsın diğerlerin sarı işeretlesin.

Toplam satır sayısı 10001

şiödiden teşekkürler

 

[Ömer BARAN]

Merhaba.

Örnek belge ile destekleyerek (asıl belgenizle aynı yapıda) soru sorarsanız daha hızlı ve net cevap alacağınızı düşünüyorum.

 

[MURATSO]

örnek dosyayı ekledim.
SUBEKOD sütununda sadece ANA_SB_KOD ile aynı olan şube kodu işaretlenmesi.

teşekkürler.

 

[Ziynettin]

Mehaba,

SUBEKOD sütununda sadece ANA_SB_KOD ile aynı olan şube kodu işaretlenmesi.

Kodu deneyiniz.

Option Explicit
Sub Renklendir()
Dim a(), i As Long
Range("P2:R" & Rows.Count).Interior.ColorIndex = xlNone
a = Range("P2:R" & Cells(Rows.Count, "P").End(3).Row)
For i = 1 To UBound(a)
    If a(i, 2) = a(i, 3) Then
        Range("P" & i + 1).Resize(, 3).Interior.ColorIndex = 6
    End If
Next i
MsgBox "İşleminiz tamam.", vbInformation
End Sub

 

[MURATSO]

elinize sağlık tam istediğim gibi olmuş çok teşekkür ederim.