Verilerin rengini değiştirecek makro.

[simetri.]

Merhabalar, iyi akşamlar.

"(B3:C65536)" aralığındaki mavi renkli verileri
yeşil renge çevireceğiz. Diğ er renkler aynen kalacak.

Yardımcı olabilirseniz sevinirim. Teşekkür ederim.

 

[Milady Meriç]

Sub mavidenyesile()

Dim milady As Range

For Each milady In Range("B3:C65536")
If milady.Font.Color = 16711680 Then
 milady.Font.Color = 32768
 End If
Next

End Sub

 

[simetri.]

Teşekkür ederim sayın Meriç ellerinize sağlık.