- Katılım
- 28 Eylül 2007
- Mesajlar
- 3,996
- Excel Vers. ve Dili
- 2013 Türkçe
Arkadaşlar merhaba,
Bir tane barkod okuyucu aldım ve bunu Excel ile entegre etmek istiyorum. Userform'da Textbox'a barkodu okuyor. Textbox1_Change yapınca her rakam için kod çalışıyor. Okuma bitince kodun çalışması için ne yapabilirim?
Bir tane barkod okuyucu aldım ve bunu Excel ile entegre etmek istiyorum. Userform'da Textbox'a barkodu okuyor. Textbox1_Change yapınca her rakam için kod çalışıyor. Okuma bitince kodun çalışması için ne yapabilirim?
Private Sub UserForm_Initialize()
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.ColumnHeaders.Add , , "Barkod", 75
ListView1.ColumnHeaders.Add , , "Adet", 35
ListView1.ColumnHeaders.Add , , "Ürün", 105
ListView1.ColumnHeaders.Add , , "Fiyat", 40
For i = 1 To Cells(65536, 1).End(3).Row
ListView1.ListItems.Add , , Cells(i, 1).Value
ListView1.ListItems(i).SubItems(1) = Cells(i, 2).Value
ListView1.ListItems(i).SubItems(2) = Cells(i, 3).Value
ListView1.ListItems(i).SubItems(3) = Cells(i, 4).Value
Next i
End Sub
Private Sub TextBox1_Change()
x = Cells(Rows.Count, 1).End(3).Row + 1
Cells(x, 1) = TextBox1.Value
ListView1.ListItems.Clear
UserForm_Initialize
TextBox1 = ""
End Sub