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

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,334
Excel Vers. ve Dili
2007 Türkçe
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
 
Üst