renk degiştirme

[metinozlu]

merhaba

..100200 şeklinde b sutununda veri var.
siyahla yazılı .. ları çıktıda görünmemesi için beyaz renkli olmasını istiyorum.
makro veya başka şekilde nasıl yapabilirim.(bul değiştir ile olmuyor)

 

[metinozlu]

hem sordum hem cexapladım :hey:
Sub Makro2()

Dim i As Integer
For i = 2 To 7000
Cells(i, "b").Select
With ActiveCell.Characters(Start:=1, Length:=2).Font

.ColorIndex = 2
End With
Next i
End Sub

 

[Ayhan Ercan]

sunu bi denermisiniz:

Sub degistir()
Range("b2").Characters(1, 2).Font.ColorIndex = 2
End Sub

 

[ataniyazi]

Bul değiştir kısmının font ile alakalı bir kısım var yani yazının sadece fontunu değiştirebilirsiniz.

 

[hasan.doru]

merhaba
Sub mt()
Columns("b:b").Select
Selection.Font.ColorIndex = 2
End Sub

kolay gelsin.selamlar