Veri Renklendirmek

[aptillah]

Merhabalar

Cells(ActiveCell.Row, ilk + sütun - 1) = TextBox1 & " " & TextBox2 & " " & TextBox3 & " " & ComboBox1 & " " & Format(DTPicker1.Value, "dd/mm") & " " & TextBox4 & " GECE " & ComboBox2 & " " & ComboBox3 & " " & TextBox5

kayıt yaparken hücreye benim istediğim verinin renkli gitmesini istiyorum mesela textbox1 deki verinin hücreye renkli ve kalın olarak gitmesini istiyorum.Bu mümkünmü ?

 

[Emir Hüseyin Çoban]

. . .

Textbox1 deki veri metin, sayı veya tarih mi.

. . .

 

[aptillah]

içinde metinde var sayıda

 

[Emir Hüseyin Çoban]

. . .

    Dim WF As WorksheetFunction: Set WF = Application.WorksheetFunction
    
    Cells(ActiveCell.Row, ilk + sütun - 1) = TextBox1 & " " & TextBox2 & " " & TextBox3 & " " & ComboBox1 & " " & Format(DTPicker1.Value, "dd/mm") & " " & TextBox4 & " GECE " & ComboBox2 & " " & ComboBox3 & " " & TextBox5
    
    On Error Resume Next
    aranan = TextBox1
    yer = Cells(ActiveCell.Row, ilk + sütun - 1)
    uzunluk = Len(aranan)
    başla = WF.Search(aranan, yer)
    
    With Cells(ActiveCell.Row, ilk + sütun - 1).Characters(Start:=başla, Length:=uzunluk).Font
        .FontStyle = "Kalın"
        .Color = vbRed
    End With
    On Error GoTo 0

. . .

 

[aptillah]

teşekkürler hocam