Textbox Renklendirme

[Costcost]

Merhabalar, kolay gelsin,

Aşağıdaki kodu textbox'ı renklendirmek için kullandım. Ama, herhangi bir şekilde renklendirme olmadı. Programı da biraz yavaşlattı.
Programı anlatmam gerekirse, userform üzerinde 100 tane textbox var. listview'den sürükle bırak ile textbox'a bırakıyorum bilgiyi. Bu bilgi A, B, C, D içeriyor. excelde 56. sutuna geliyor bu harfler. Aşağıdaki formülle de renklendirmeye çalışıyorum, ama faydası olmadı.
Fikir veren Üstadlara, Arkadaşlara, yardımlarınından dolayı şimdiden çok teşekkür ederim.

sub xyz()

Dim U As Integer
For U = 1 To 100
ara = Controls("TextBox" & U).Name
Controls("TextBox" & U).MultiLine = True
Sheets("info").Activate
Set R = Sheets("info").Range("A:A").Find(ara) ' "A:A" Kısmında 1-100 e kadar textbox var; textbox1, 2...100)

If Sheets("info").Cells(R.Row, 56) = "A" Then 'A,B,C,D harfleri 56. sutunda,
Controls("textbox" & U).BackColor = &HFF80FF
End If
If Sheets("info").Cells(R.Row, 56) = "B" Then
Controls("textbox" & U).BackColor = &HFFFF00
End If
If Sheets("info").Cells(R.Row, 56) = "C" Then
Controls("textbox" & U).BackColor = &H80FF&
End If
If Sheets("info").Cells(R.Row, 56) = "D" Then
Controls("textbox" & U).BackColor = &H80FFFF
End If

Next U

end sub

 

[muygun]

Merhaba;
Örnek olmadan anlaşılması zor ama yinede eki ve userformdaki kodları inceleyin. Size fikir verecektir.
İyi çalışmalar.

 

[Costcost]

Muygun Hocam ilginiz ve yardımınız için teşekkür ederim. gönderdiğiniz dosyanın kodlarında benzer fikir var. kendi dosyama uygulamaya çalışacağım. Tekrar teşekkürler ilginiz için.

yapmaya çalıştığım şey, aşağıdaki kodun komplike hali.
If Sheets("info").Range("G2") = "A" Then ' ( If Sheets("info").Cells(R.Row, 56) = "A" Then)
Textbox1.BackColor = &H80FFFF '(Controls("textbox" & U).BackColor = &H80FFFF)
End If