- Katılım
- 20 Aralık 2006
- Mesajlar
- 939
- Excel Vers. ve Dili
- türkçe
Kod:
Private Sub ComboBox1_change()
Set s1 = Sheets("ürün")
sat = ComboBox1.ListIndex + 2
TextBox1 = s1.Cells(sat, "b")
TextBox2 = s1.Cells(sat, "c")
TextBox3 = s1.Cells(sat, "d")
TextBox4 = s1.Cells(sat, "e")
End
bu kodları kullanarak sayfan veri alıyorum
Kod:
Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer
For i = 2 To 32000
If (Sayfa1.Cells(i, 1) = "") Then 'yeni giriş yapan kodlar
Sayfa1.Cells(i, 1) = ComboBox1.Text
Sayfa1.Cells(i, 2) = TextBox1.Text
Sayfa1.Cells(i, 3) = TextBox2.Text
Sayfa1.Cells(i, 4) = TextBox3.Text
Sayfa1.Cells(i, 5) = TextBox4.Text
CommandButton4_Click
CommandButton2_Click
userform_Initialize
Exit Sub
End If
Next i
End Sub
istediğimtan
comboboxtan seçtiğim anda sayfaya atması
seçimi barkodla yapıyorum nasıl yaparım
şimdiden teşekkür