Renkli hücrenin bulunduğu kolonu bulmak

[sorucu]

merhaba
ekteki excelde yapmak istediğim çalışmayı şöyle anlatmaya çalıştım.

"BOYALI HÜCRENİN BULUNDUĞU KOLONUN 2. SATIRINDAKİ BİLGİYİ,

BOYALI HÜCRENİN BULUNDUĞU SATIRDAKİ B3' E VEYA İSTEDİĞİMİZ HERHANGİ BİR HÜCREYE YAZACAK BİR KOD OLUŞTURULBİLİR Mİ?"

bir fikri olan var mı?

 

[Muzaffer Ali]

Aşağıdaki kodu inceleyin

Sub KodBul()
    Dim Alan As Range
    Dim Bak As Range
    Set Alan = Range("C3:F7")
    For Each Bak In Alan
        If Not Bak.Interior.Pattern = xlNone Then
            Cells(Bak.Row, 2) = Cells(2, Bak.Column)
        End If
    Next
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub SecimiBul()

    Dim i   As Long, _
        j   As Integer
    
    Application.ScreenUpdating = False
    
    For i = 3 To Cells(Rows.Count, "A").End(3).Row
        For j = 3 To 6
            If Not Cells(i, j).Interior.ColorIndex = xlNone Then
                Cells(i, "B") = Cells(2, j)
                Exit For
            End If
        Next j
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

Geç kalmışım ama alternatif olmuş oldu.

 

[sorucu]

Dalgalıkur ve necdet bey elinize sağlık.
her ikinizin verdiği kodlar da çalışıyor.
çok sağolun