Listbox, veri süzme, çekme,diğer sayfaya aktarma

[Wexulans]

Merhaba arkadaşlar, ben forumda yeniyim excel de çalışmayada yeni başladım, fakat tıkandım. eklediğim dosyada riskhavuzu yazan sayfada her satırda mevcut verilerim var ve ben bunları kaynak olarak kullanmak istiyorum. yazdırılacak sayfadaki yeni risk tablosu oluştur butonuna basınca açılan userform da üst açılan üstteki listbox da veriler gözüksün o listeye çift tıklayınca alt daki listbox a atsın ve KAYDET butonuna basınca alttaki list box a eklediklerim yazdırılacak sayfaya b10 satırından itibaren eklesin istiyorum.

 

[cems]

b10 satırından itibaren eklesin istiyorum.

Bu listede üst satırda birleştirilmiş hücrelere bir çözüm bulmanız gerek.

 

[Wexulans]

Bu listede üst satırda birleştirilmiş hücrelere bir çözüm bulmanız gerek.

Listboxda başlıkların gözükmesi önemli dğeil benim için, b3;q65536 şeklindeki alan listbox alanında gözükmeli ve boş satırlar listbox dan elenmeli... ben üstdeki listbox a tıkladıklarım alttaki listbox a gececek ve üsttekinden silinecek fakat havuz daki veriler kalacak(daha sonra tekrar kullanılmak üzere) alttaki listbox daki verileride yeni tabloya kaydet butonuyla yazdırılacak sayfaya b10 dan itibaren eklenecek :/

 

[cems]

Listboxda başlıkların gözükmesi önemli dğeil benim için, b3;q65536 şeklindeki alan listbox alanında gözükmeli (

.additem ile 9 sütun alınabiliyor , sizin tablonuzda 19 sütun var. Yani 10cudan sonra bu yöntemle veri aktarmak , oradan da sayfaya topluca atmak mümkün değil hata verir.

Dizi yöntemi gerek, ancak şu an yazacak ve deneyecek zamanım yok. Ustadlar bu noktada yardım elini uzatırsa pratikçe çözülür umuyorum.

 

[Wexulans]

Bu kadar ilerleyebildim ama bir hata alıyorum.

.additem ile 9 sütun alınabiliyor , sizin tablonuzda 19 sütun var. Yani 10cudan sonra bu yöntemle veri aktarmak , oradan da sayfaya topluca atmak mümkün değil hata verir.

Dizi yöntemi gerek, ancak şu an yazacak ve deneyecek zamanım yok. Ustadlar bu noktada yardım elini uzatırsa pratikçe çözülür umuyorum.

cems bey öncelikle teşekkür ederim ilginize.ama ben aktarmayı başardım fakat Şimdi normalde yapmak istediğim üst listbox dakine çift tıkladığımda alt listbox a atsın ve kaydet e basınca şu anda yaptığı işlemi yapsın istiyorum. Ama bu hatayı neden veriyor bilemiyorum. üst listbox dan alta niye aktarmak istediğime gelince ise selfkontrol sistemi gibi birşey onu amaçlıyorum.

 

[cems]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Sheets("riskhavuzu").Select
If ListBox1.ListIndex <> -1 And ListBox2.ListIndex = -1 Then
ListBox2.AddItem ListBox1.List(ListBox1.ListIndex, 0)
ListBox2.AddItem ListBox1.List(ListBox1.ListIndex, 1)
ListBox2.AddItem ListBox1.List(ListBox1.ListIndex, 2)
ListBox2.AddItem ListBox1.List(ListBox1.ListIndex, 3)
ListBox2.AddItem ListBox1.List(ListBox1.ListIndex, 4)

End If
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
    
End Sub

Bu kod veriyi alabilir ama sanıyorum altalta alacak. Ayrıca additem olayı excelin doğası gereği 9 sütundan fazlasına izin vermez , hata verir.

Bunu denemeden yazdım, işe yarayabilir yaramayabilir. Ama dizi kodu yazılması gerek 19 sütun için.

 

[Wexulans]

Bu kod veriyi alabilir ama sanıyorum altalta alacak. Ayrıca additem olayı excelin doğası gereği 9 sütundan fazlasına izin vermez , hata verir.

Bunu denemeden yazdım, işe yarayabilir yaramayabilir. Ama dizi kodu yazılması gerek 19 sütun için.

cems bey emeğinize sağlık ama 2. eklediğim 9.7 olan dosyaya bakabilirmisiniz ya da bakmışmıydınız? acaba ?
bu yazdığınız kod verileri listbox1 de gösteriyor ama çift tıkladığımda çalışmıyor maalesef...
dizi kodu dediğiniz sanırım benim 9.7 diye eklediğim excel dosyasında var.

 

[cems]

Eğer henüz çözüm gelişmedi ise ;

excelvba' dan Sayın Ali Öz'ün bir çalışmasını adapte ederek 3cü tık ile istediğiniz olabilir.

Ekteki formda birinci listboxtan ikinci listboxa tek hücre aktarılıyor. Ona tıklayınca da bütün satır textboxlara aktarılıyor . Bundan sonra da istediğiniz sayfaya kaydetmeniz mümkün olabilir. Ekteki orj dosyayı inceler misiniz ?

Aynı mantığa bir kaç saniye gecikmeli ulaşabilirsiniz ...