- Katılım
- 10 Eylül 2005
- Mesajlar
- 132
- Excel Vers. ve Dili
- Excel 2003 türkçe
Günaydın arkadaşlar.
Aşağıdaki kodu kullandığım bir çalışma kitabında kullanıyorum. Liste sayfasında ComboBox1 e barkod numarası okuttuğum zaman veri safasından barkod ile ilgili bilgiler altalta yazılıyor. Barkodu hücreye okutup verileri yana yazabilirmiyiz. Bu konuda yardımcı olabilirmisiniz.
Private Sub ComboBox1_Click()
On Error Resume Next
[a4:b65536].ClearContents
Set s1 = Sheets("veri")
Set s2 = Sheets("liste")
sat2 = s2.[A1:A65536].Find(ComboBox1.Value).Row
[c5] = s2.Cells(sat2, 2).Value
[b5] = ComboBox1.Value
sat = ComboBox1.ListIndex + 2
sut = s1.Cells(1, 256).End(xlToLeft).Column
For a = 1 To sut
If s1.Cells(sat, a).Value <> 0 Then
c = c + 1
Cells(c + 4, 1) = s1.Cells(1, a).Value
Cells(c + 4, 2) = s1.Cells(sat, a).Value
End If
Next
End Sub
Aşağıdaki kodu kullandığım bir çalışma kitabında kullanıyorum. Liste sayfasında ComboBox1 e barkod numarası okuttuğum zaman veri safasından barkod ile ilgili bilgiler altalta yazılıyor. Barkodu hücreye okutup verileri yana yazabilirmiyiz. Bu konuda yardımcı olabilirmisiniz.
Private Sub ComboBox1_Click()
On Error Resume Next
[a4:b65536].ClearContents
Set s1 = Sheets("veri")
Set s2 = Sheets("liste")
sat2 = s2.[A1:A65536].Find(ComboBox1.Value).Row
[c5] = s2.Cells(sat2, 2).Value
[b5] = ComboBox1.Value
sat = ComboBox1.ListIndex + 2
sut = s1.Cells(1, 256).End(xlToLeft).Column
For a = 1 To sut
If s1.Cells(sat, a).Value <> 0 Then
c = c + 1
Cells(c + 4, 1) = s1.Cells(1, a).Value
Cells(c + 4, 2) = s1.Cells(sat, a).Value
End If
Next
End Sub