Hücre içine girilen verileri renklendirme

[özdil1]

Merhabalar. Ekte gönderdiğim dosyada TextBox1 ve TextBox2’ye girdiğim verileri (Sayfa3) (A1) hücresinde birleştiriyorum. Ancak; TextBox’lardan girdiğim verilerin (Sayfa3) (A1) deki metin içinde mavi renkli ve koyu olmasını istiyorum. Konu hakkında yardımlarınızı bekler saygılar sunarım.

 

[Necdet]

Merhaba,

Private Sub CommandButton1_Click()
    
    With Sheets("Sayfa2")
        .Range("A2") = TextBox1.Value
        .Range("B2") = TextBox2.Value
    End With
    
    With Sheets("Sayfa3").Range("A1")
        .Value = "Laboratuvarınıza " & Sheets("sayfa2").Range("A2") & " mühür numarası ile " & Sheets("sayfa2").Range("B2") & " adet cam kavanoz içerisinde kalorifer yakıtı (fuel-Oil4) numunesi gönderilmiştir."
        .Interior.ColorIndex = 34
        .Font.Bold = True
    End With
    
End Sub

 

[özdil1]

Merhaba,

Private Sub CommandButton1_Click()
    
    With Sheets("Sayfa2")
        .Range("A2") = TextBox1.Value
        .Range("B2") = TextBox2.Value
    End With
    
    With Sheets("Sayfa3").Range("A1")
        .Value = "Laboratuvarınıza " & Sheets("sayfa2").Range("A2") & " mühür numarası ile " & Sheets("sayfa2").Range("B2") & " adet cam kavanoz içerisinde kalorifer yakıtı (fuel-Oil4) numunesi gönderilmiştir."
        .Interior.ColorIndex = 34
        .Font.Bold = True
    End With
    
End Sub

Saygıdeğer Hocam; Öncelikle yardımınız için teşekkür ederim.Ancak verdiğiniz kodlar (A1) hücresindeki tüm metini siyah ve koyu yaptı. Oysaki ben (A1) metin içinde sadece TextBox1 ve TextBox2'den girilen verileri koyu mavi olarak ayrıştırılmasını istiyorum.Yardımınız için tekrar teşekkürler.

 

[özdil1]

Konu hakkında bilgisi olan arkadaşlardan yardım bekliyorum.

 

[Necdet]

Merhaba,

Örneğinize göre yapmıştım. Neyse, aşağıdaki kodları kullanınız.

Private Sub CommandButton1_Click()
    
    Dim Kacinci1 As Integer
    Dim Kacinci2 As Integer
    Dim Uz1      As Integer
    Dim Uz2      As Integer
    
    With Sheets("Sayfa2")
        .Range("A2") = TextBox1.Value
        .Range("B2") = TextBox2.Value
    End With
    
    Uz1 = Len(TextBox1.Value)
    Uz2 = Len(TextBox2.Value)
    
    With Sheets("Sayfa3").Range("A1")
        .Value = "Laboratuvarınıza " & Sheets("sayfa2").Range("A2") & " mühür numarası ile " & Sheets("sayfa2").Range("B2") & " adet cam kavanoz içerisinde kalorifer yakıtı (fuel-Oil4) numunesi gönderilmiştir."
        Kacinci1 = InStr(1, .Value, TextBox1.Value, vbTextCompare)
        .Characters(Kacinci1, Uz1).Font.Bold = True
        .Characters(Kacinci1, Uz1).Font.ColorIndex = 5
        Kacinci2 = InStr(Kacinci1 + Uz1, .Value, TextBox2.Value, vbTextCompare)
        .Characters(Kacinci2, Uz2).Font.Bold = True
        .Characters(Kacinci2, Uz2).Font.ColorIndex = 5
        
    End With
       
End Sub

 

[özdil1]

Merhaba,

Örneğinize göre yapmıştım. Neyse, aşağıdaki kodları kullanınız.

Private Sub CommandButton1_Click()
    
    Dim Kacinci1 As Integer
    Dim Kacinci2 As Integer
    Dim Uz1      As Integer
    Dim Uz2      As Integer
    
    With Sheets("Sayfa2")
        .Range("A2") = TextBox1.Value
        .Range("B2") = TextBox2.Value
    End With
    
    Uz1 = Len(TextBox1.Value)
    Uz2 = Len(TextBox2.Value)
    
    With Sheets("Sayfa3").Range("A1")
        .Value = "Laboratuvarınıza " & Sheets("sayfa2").Range("A2") & " mühür numarası ile " & Sheets("sayfa2").Range("B2") & " adet cam kavanoz içerisinde kalorifer yakıtı (fuel-Oil4) numunesi gönderilmiştir."
        Kacinci1 = InStr(1, .Value, TextBox1.Value, vbTextCompare)
        .Characters(Kacinci1, Uz1).Font.Bold = True
        .Characters(Kacinci1, Uz1).Font.ColorIndex = 5
        Kacinci2 = InStr(Kacinci1 + Uz1, .Value, TextBox2.Value, vbTextCompare)
        .Characters(Kacinci2, Uz2).Font.Bold = True
        .Characters(Kacinci2, Uz2).Font.ColorIndex = 5
        
    End With
       
End Sub

Çok değerli hocam aradığım buydu çok teşekkür ederim yardımlarınız için.