• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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