Merhaba, Aşağıdaki makro ile "G" sütundaki sarı dolgulu tutarları "O" sütununa alt alta getiriyorum. Fakat G sütunun da koşullu biçimlendirme ile sarı dolgu yaptığım için makro bu hücreleri görmüyor. Makroda nasıl bir revize yapmalıyım, yardımınızı rica ediyorum.
Sub KOPYALA()
Range("o
").Clear
Satir = 2
Son = Cells(Rows.Count, "g").End(3).Row
For Each Veri In Range("g2:g" & Son)
If Veri.Interior.ColorIndex = 6 Then
Cells(Satir, "o") = Veri
Satir = Satir + 1
End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Sub KOPYALA()
Range("o
").ClearSatir = 2
Son = Cells(Rows.Count, "g").End(3).Row
For Each Veri In Range("g2:g" & Son)
If Veri.Interior.ColorIndex = 6 Then
Cells(Satir, "o") = Veri
Satir = Satir + 1
End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub