sayfaya renkli geçmek

[Fuat Şirin]

arkadaşlar benim sorunum şöle
userfomdan textboxlara girdiğim verileri butonla sayfaya geçiyorum
bunun kırmızı olarak geçmesini istiyorum yani sadece commandbutton1 e tıkladığım da kırmızı olarak geçmesi lazım
yardım ederseniz sevnirim

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
[a1] = TextBox1.Value
[a1].Font.ColorIndex = 3
End Sub
Private Sub CommandButton1_Click()
s = WorksheetFunction.CountA([a1:a65536])
Range("a" & s + 1) = TextBox1.Value
Range("a" & s + 1).Font.ColorIndex = 3
End Sub

 

[Fuat Şirin]

istediğim bu değil

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Long, stok_sat As Long
stok_sat = Sheets("GİRİŞ").Cells(65536, "B").End(xlUp).Row + 1
For i = 2 To 32000
If (Sayfa2.Cells(i, 2) = "") Then
Sayfa2.Cells(i, 2) = TextBox1.Text
Sayfa2.Cells(i, 6) = ComboBox1.Text
Sayfa2.Cells(i, 7) = ComboBox2.Text
Sayfa2.Cells(i, 9) = TextBox21.Text
Sayfa2.Cells(i, 10) = TextBox20.Text
Sayfa2.Cells(i, 12) = TextBox4.Text * 1
MsgBox "Giriş Yaptığınız Veriler Stok Kayıtlarına Giriş Olarak Kayıt Edilmiştir !...", vbOKOnly + vbInformation, "Yeni Giriş"
Userform_Initialize
Exit Sub
End If
Next i
End Sub

bu kodlarda kullanılması lazım

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Long, stok_sat As Long
stok_sat = Sheets("GİRİŞ").Cells(65536, "B").End(xlUp).Row + 1
For i = 2 To 32000
If (Sayfa2.Cells(i, 2) = "") Then
Sayfa2.Cells(i, 2) = TextBox1.Text
Sayfa2.Cells(i, 2).Font.ColorIndex = 3
Sayfa2.Cells(i, 6) = ComboBox1.Text
Sayfa2.Cells(i, 6).Font.ColorIndex = 3
Sayfa2.Cells(i, 7) = ComboBox2.Text
Sayfa2.Cells(i, 7).Font.ColorIndex = 3
Sayfa2.Cells(i, 9) = TextBox21.Text
Sayfa2.Cells(i, 9).Font.ColorIndex = 3
Sayfa2.Cells(i, 10) = TextBox20.Text
Sayfa2.Cells(i, 10).Font.ColorIndex = 3
Sayfa2.Cells(i, 12) = TextBox4.Text * 1
Sayfa2.Cells(i, 12).Font.ColorIndex = 3
MsgBox "Giriş Yaptığınız Veriler Stok Kayıtlarına Giriş Olarak Kayıt Edilmiştir !...", vbOKOnly + vbInformation, "Yeni Giriş"
Userform_Initialize
Exit Sub
End If

 

[Fuat Şirin]

tşk

tşk çok tşk