Combobox'dan Farklı Yazı Sitili "Yardım !!"

[Gorarr]

Herkese selamlar. Örnek dosyamda combobox1 de "var" seçersem ilgili excel hücresinde kalın ve hücre içi renkli olmasını sağlayabilirmisiniz. Şimdiden çok teşekkürler..

 

[Excelmy]

:dusun:

CommandButton1 kodlarınız.

Private Sub CommandButton1_Click()
If TextBox1 <> Empty Then
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
   Range("a2").Value = 1
   Range("a2").Select
Else
    ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = ComboBox1.Text
If ComboBox1 = "Var" Then
ActiveCell.Offset(0, 4).Font.Bold = True
ActiveCell.Offset(0, 4).Interior.Color = 255
ActiveCell.Offset(0, 4).Value = ComboBox2.Text
Else
ActiveCell.Offset(0, 4).Value = ComboBox2.Text
End If
End If
TextBox1 = "": TextBox2 = "": ComboBox1 = "": ComboBox2 = ""
TextBox1.SetFocus
UserForm1.Hide
UserForm1.Show
End Sub

 

[Gorarr]

Çok teşekkür ederim. ellerinize sağlık....