YeŞİlİ Beyaza DÖndÜr

[PEPE]

Bu formülde yeşil hücreler aktarıldıktan sonra aktarılan yeşil hücreler tekrar beyaz olsun istiyorum teşekkür


Sub renk()
For c = 1 To 65000
If Cells(c, "c").Interior.ColorIndex = 10 Then
Cells([d100].End(3).Row + 1, "d") = Cells(c, "c")
End If
Next
End Sub

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki gibi deneyiniz.

Sub renk()
For c = 1 To 65000
    If Cells(c, "c").Interior.ColorIndex = 10 Then
[COLOR=red]       Cells(c, "C").Interior.ColorIndex = 2[/COLOR]
       Cells([d100].End(3).Row + 1, "d") = Cells(c, "c")
    End If
Next
End Sub

 

[PEPE]

saygılar

ilginize teşekkürler