Liste Olusturmak

[serkanzi]

dosyadaki listeye gore verdigim sutun 1- sutun2- sutun3 uzerinde oyle bir işlem yapacakki yandaki listeyi alacak.
bu işi bir muhasebe programında stokları grublamak icin yapıcaz sonrada excelden aktarıcaz. binden fazla stok 10den fazla grub ve 80 kadar da altgrub var.

verilen degerlere gore
Agrubu - x altgrubu- 1. stok ismi.
A grubu - x altgrubu - 2.stokismi.
daha sonra y altgurubu için aynı işlem, altgrublar bittiginde B grubuna gecip tum alt gruplar ve stoklar için aynı işlem tekrarlaacak...

cok zor gibi gozukuyor ama ben isin icinden cıkamadım.
yardımlarınızı bekliyorum simdiden tesekkurler...

 

[cako]

Veri Sıralama ile rahatlıkla yapabilirsiniz.
1. Kriter Grup Sütunu
2. Kriter Alt Grup Sütunu
3. Kriter Stok kodları

 

[serkanzi]

ben sadece stok isimlerini, grup ve alt grupları girecegim. o kendisi olusturacak listeyi. yani henuz bilgi girisi yapılmadı. o kendisi kombinasyonu olusturacak.

 

[danersin]

Makro ile yazdırabilirsiniz.
Gönderdiğiniz dosyada bir modüle kodları yazıp çalıştırın.

[vb:1:55b025192b]Sub Makro1()
t = 2
For i = 2 To Cells(65536, 1).End(xlUp).Row
For j = 2 To Cells(65536, 2).End(xlUp).Row
For k = 2 To Cells(65536, 3).End(xlUp).Row
Cells(t, 5) = Cells(i, 1)
Cells(t, 6) = Cells(j, 2)
Cells(t, 7) = Cells(k, 3)
t = t + 1
Next k
Next j
Next i
End Sub[/vb:1:55b025192b]

 

[serkanzi]

tesekkurler istedigim tam olarak buydu.
simdi aktarmaya geldi sıra o da kolay olacak sanırım. beni uzun bir isten kurtardınız saolun...