Arka plan rengi sari olan hücreleri baska hücreye kopyalamak

Merhaba,
Öncelikle foruma hoş geldiniz.
Resim yerine Excel dosyası paylaşırsanız daha doğru ve hızlı yardım alabilirsiniz.
Aşağıdaki makro kodunu deneyiniz...
Kod:
Sub kod()
For a = 2 To Cells(Rows.Count, 1).End(3).Row
    For b = 2 To 5
        If Cells(a, b).Interior.Color = vbYellow Then
            Cells(a, 6).Value = Mid("ABCD", b - 1, 1) & " - " & Cells(a, b)
            Exit For
        End If
    Next
Next
End Sub
 
Geri
Üst