crpzz37
Altın Üye
- Katılım
- 4 Kasım 2016
- Mesajlar
- 90
- Excel Vers. ve Dili
- 2010 versıyonunu kullanmaktayım makro dılınde yazım yapmaktayım
- Altın Üyelik Bitiş Tarihi
- 05-04-2027
Selamun Aleyküm
Dim ürünsayısı As Integer
ürünsayısı = WorksheetFunction.CountA(Worksheets("depo hareketleri").Range("a:A"))
Dim i As Integer
For i = 2 To ürünsayısı
ListBox1.AddItem Worksheets("depo hareketleri").Range("a" & i) 'ürün kodu
ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("depo hareketleri").Range("b" & i) 'ürün türü
ListBox1.List(ListBox1.ListCount - 1, 2) = Worksheets("depo hareketleri").Range("c" & i) 'ürün adı
ListBox1.List(ListBox1.ListCount - 1, 3) = Worksheets("depo hareketleri").Range("d" & i) 'marka
ListBox1.List(ListBox1.ListCount - 1, 4) = Worksheets("depo hareketleri").Range("e" & i) 'marka
ListBox1.List(ListBox1.ListCount - 1, 5) = Worksheets("depo hareketleri").Range("f" & i) 'giriş
ListBox1.List(ListBox1.ListCount - 1, 6) = Worksheets("depo hareketleri").Range("g" & i) 'çıkı
ListBox1.List(ListBox1.ListCount - 1, 7) = Format(Worksheets("depo hareketleri").Range("h" & i), "dd.mm.yyyy") 'tarih
ListBox1.List(ListBox1.ListCount - 1, 8) = FormatCurrency(Worksheets("depo hareketleri").Range("ı" & i), 2) 'fiyat
ListBox1.List(ListBox1.ListCount - 1, 9) = CDbl(Worksheets("depo hareketleri").Range("J" & i))
ListBox1.List(ListBox1.ListCount - 1, 10) = Worksheets("depo hareketleri").Range("K" & i) 'FİRMA
Next i
End Sub
en sondaki satırı ekleyene kadar listbox ım çalışmaktaydı ama 11. sütunu ekledikten sonra hata veriyor ve çalıştıramıyorum yardımınız için şimdiden Allah razı olsun
Dim ürünsayısı As Integer
ürünsayısı = WorksheetFunction.CountA(Worksheets("depo hareketleri").Range("a:A"))
Dim i As Integer
For i = 2 To ürünsayısı
ListBox1.AddItem Worksheets("depo hareketleri").Range("a" & i) 'ürün kodu
ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("depo hareketleri").Range("b" & i) 'ürün türü
ListBox1.List(ListBox1.ListCount - 1, 2) = Worksheets("depo hareketleri").Range("c" & i) 'ürün adı
ListBox1.List(ListBox1.ListCount - 1, 3) = Worksheets("depo hareketleri").Range("d" & i) 'marka
ListBox1.List(ListBox1.ListCount - 1, 4) = Worksheets("depo hareketleri").Range("e" & i) 'marka
ListBox1.List(ListBox1.ListCount - 1, 5) = Worksheets("depo hareketleri").Range("f" & i) 'giriş
ListBox1.List(ListBox1.ListCount - 1, 6) = Worksheets("depo hareketleri").Range("g" & i) 'çıkı
ListBox1.List(ListBox1.ListCount - 1, 7) = Format(Worksheets("depo hareketleri").Range("h" & i), "dd.mm.yyyy") 'tarih
ListBox1.List(ListBox1.ListCount - 1, 8) = FormatCurrency(Worksheets("depo hareketleri").Range("ı" & i), 2) 'fiyat
ListBox1.List(ListBox1.ListCount - 1, 9) = CDbl(Worksheets("depo hareketleri").Range("J" & i))
ListBox1.List(ListBox1.ListCount - 1, 10) = Worksheets("depo hareketleri").Range("K" & i) 'FİRMA
Next i
End Sub
en sondaki satırı ekleyene kadar listbox ım çalışmaktaydı ama 11. sütunu ekledikten sonra hata veriyor ve çalıştıramıyorum yardımınız için şimdiden Allah razı olsun