ListBoxta süzülen verileri formlara aktar

[omeryılmaz]

Değerli Hocalarım.

Kurumumuzda kullanmak üzere oluşturduğum bir çalışmada, Data Excel sayfasında mevcut verilerde iki tarih arası isme göre süzüp ListBox2 ye alıyorum.

Sorunum: ListBox2 ye süzerek aldığım verileri Yolluk tablolarına 26 lı gruplar halinde aktarmak...

Yardımlarınız ve ilginiz için şimdiden şükranlarımı sunuyorum...

 

[omeryılmaz]

Değerli Hocalarım.

Kurumumuzda kullanmak üzere oluşturduğum bir çalışmada, Data Excel sayfasında mevcut verilerde iki tarih arası isme göre süzüp ListBox2 ye alıyorum.

Sorunum: ListBox2 ye süzerek aldığım verileri Yolluk tablolarına 26 lı gruplar halinde aktarmak...

Yardımlarınız ve ilginiz için şimdiden şükranlarımı sunuyorum...

Arkadaşlar geceyi sabahladım. Bir çok formül uyguladım. Olmadı.
Listboxta Süzülen verileri, Yolluk tablolarında 9 -34 satırları arasına nasıl aktarabiliriz....

 

[omeryılmaz]

Arkadaşlar uzun uğraşlar sunucu ListBoxta süzülen verileri eksiksiz Yolluk Formuna aktarmayı başardım.
Ancak: ListeBoxta süzülen veri sayısı 26 adetten çoksa ikinci 52 den büyükse üçüncü........ ek yolluk forumlarına nasıl aktarabilirim..

Set s4 = Sheets("YOLLUK")
s4.Range("a9:J34").ClearContents
s4.Range("a53:J79").ClearContents
s4.Range("a97:J122").ClearContents
s4.Range("a141:J166").ClearContents
s4.Range("a185:J210").ClearContents
s4.Range("a229:J254").ClearContents ‘..........

‘Burada aktarma işlemini 26 şarlı olarak formlara aktarmak veya
tek forma 26 şarlı doldurup boşaltarak ListBoxtaki verileri yazdırmak..

On Error Resume Next
a = ListBox2.ListCount
For j = 0 To a
s4.Cells(j + 9, 1) = ListBox2.List(j, 0)
s4.Cells(j + 9, 2) = ListBox2.List(j, 1)
s4.Cells(j + 9, 3) = ListBox2.List(j, 2)
s4.Cells(j + 9, 4) = ListBox2.List(j, 3)
s4.Cells(j + 9, 5) = ListBox2.List(j, 4)
s4.Cells(j + 9, 6) = ListBox2.List(j, 5)
s4.Cells(j + 9, 7) = ListBox2.List(j, 6)
s4.Cells(j + 9, 8) = ListBox2.List(j, 7)
s4.Cells(j + 9, 9) = ListBox2.List(j, 8)
s4.Cells(j + 9, 10) = ListBox2.List(j, 9)
Next j

 

[halit3]

Arkadaşlar uzun uğraşlar sunucu ListBoxta süzülen verileri eksiksiz Yolluk Formuna aktarmayı başardım.
Ancak: ListeBoxta süzülen veri sayısı 26 adetten çoksa ikinci 52 den büyükse üçüncü........ ek yolluk forumlarına nasıl aktarabilirim..

Set s4 = Sheets("YOLLUK")
s4.Range("a9:J34").ClearContents
s4.Range("a53:J79").ClearContents
s4.Range("a97:J122").ClearContents
s4.Range("a141:J166").ClearContents
s4.Range("a185:J210").ClearContents
s4.Range("a229:J254").ClearContents ‘..........

‘Burada aktarma işlemini 26 şarlı olarak formlara aktarmak veya
tek forma 26 şarlı doldurup boşaltarak ListBoxtaki verileri yazdırmak..

On Error Resume Next
a = ListBox2.ListCount
For j = 0 To a
s4.Cells(j + 9, 1) = ListBox2.List(j, 0)
s4.Cells(j + 9, 2) = ListBox2.List(j, 1)
s4.Cells(j + 9, 3) = ListBox2.List(j, 2)
s4.Cells(j + 9, 4) = ListBox2.List(j, 3)
s4.Cells(j + 9, 5) = ListBox2.List(j, 4)
s4.Cells(j + 9, 6) = ListBox2.List(j, 5)
s4.Cells(j + 9, 7) = ListBox2.List(j, 6)
s4.Cells(j + 9, 8) = ListBox2.List(j, 7)
s4.Cells(j + 9, 9) = ListBox2.List(j, 8)
s4.Cells(j + 9, 10) = ListBox2.List(j, 9)
Next j

Kodun ilgili bölümünü bununla değiştiriniz.

a = ListBox2.ListCount
say = 8
say1 = 0
For j = 0 To a
say = say + 1
say1 = say1 + 1
s4.Cells(say, 1) = ListBox2.List(j, 0)
s4.Cells(say, 2) = ListBox2.List(j, 1)
s4.Cells(say, 3) = ListBox2.List(j, 2)
s4.Cells(say, 4) = ListBox2.List(j, 3)
s4.Cells(say, 5) = ListBox2.List(j, 4)
s4.Cells(say, 6) = ListBox2.List(j, 5)
s4.Cells(say, 7) = ListBox2.List(j, 6)
s4.Cells(say, 8) = ListBox2.List(j, 7)
s4.Cells(say, 9) = ListBox2.List(j, 8)
s4.Cells(say, 10) = ListBox2.List(j, 9)
If say1 = 26 Then
say = say + 18
say1 = 0
End If
Next j

 

[omeryılmaz]

Eline Yüreğine Sağlık, Teşekkür Ederim Hocam..

 

[halit3]

Eline Yüreğine Sağlık, Teşekkür Ederim Hocam..

iyi çalışmalar