Seçime bağlı olarak liste içerisindeki bir ürünü renklendirme

[grikurt]

merhaba arkadaşlar

konu başlığı yapmak istediğim şeyi tam olarak karşılıyormu tereddüt etsem de...
elimdeki bir işi yaparken aklıma birşey takıldı olurmu bilmiyorum

size danışayım istedim;

* Elimde 6 ayrı tip oda var
* Her odanın mobilyaları tip olarak aynı
* ama bazı odalarda olan mobilyalar bazı odalarda yok

* benim amacım mobilya tiplerini oda tiplerinin yanında listelemek bu listede bir mobilyayı seçtiğimde / hücreyi tıkladığımda

o mobilya oda listelerinde buradayım anlamında yansın / renklensin

ekteki belge içerisinde daha detaylı bir açıklama yapmaya çalıştım


şimdiden teşekkür ediyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanın kod bölümüne uygulayıp denermisiniz. Birleştirilmiş hücreler size problem çıkarabilir. Bu sebeple kullanmanızı pek tavsiye etmiyorum. L-M sütunlarındaki birleştirdiğiniz hücreleri iptal ederek uygulama yaptım.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim BUL As Range, ADRES As String
 
    On Error GoTo Son
    Range("B9:I22,B26:I39,B43:I57,B61:I75,B79:I93,B97:I109,B113:I125,B129:I141").Interior.ColorIndex = xlNone
 
    If Intersect(Target, Range("L9:L65536")) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
 
    Set BUL = Range("C:E").Find(Target)
    If Not BUL Is Nothing Then
        ADRES = BUL.Address
        Do
        Range("B" & BUL.Row, "I" & BUL.Row).Interior.ColorIndex = Target.Interior.ColorIndex
        Set BUL = Range("C:E").FindNext(BUL)
        Loop While Not BUL Is Nothing And BUL.Address <> ADRES
    End If
Son:
End Sub

 

[grikurt]

Gecikmiş teşekkür,

Yıllar sonra aboneliklerimi kontrol ederken bir sebeple cevabınıza dönüş yapmadığımı gördüm
gecikmiş de olsa çok teşekkür eder, özürlerimi kabul etmenizi istirham ederim


Selamlar

 

[Korhan Ayhan]

Merhaba,

7 yıl sonrada olsa geri dönüşünüz için ben teşekkür ederim.