Teşekkür oldu istediğim ama olan makronun içine nasıl entegre edebilirim acaba ?Deneyiniz.
C++:Sub Renklendir() Range("B:B").Font.ColorIndex = 0 Range("B:B").Font.Bold = False Range("B:B").Font.Size = 11 For X = 2 To Cells(Rows.Count, 2).End(3).Row If Cells(X, 1) = "" Then Cells(X, 2).Font.Bold = True Else Data = Split(Cells(X, 2), " ") Ilk = 0 For Y = 0 To UBound(Data) If IsNumeric(Data(Y)) Then Cells(X, 2).Characters(Ilk, Len(Data(Y)) + 4).Font.ColorIndex = 3 Cells(X, 2).Characters(Ilk, Len(Data(Y)) + 4).Font.Bold = True Cells(X, 2).Characters(Ilk, Len(Data(Y)) + 4).Font.Size = 11 Ilk = Ilk + Len(Data(Y)) + 1 Else Ilk = Ilk + Len(Data(Y)) + 1 End If Next End If Next MsgBox "İşleminiz tamamlanmıştır.", vbInformation End Sub