Çözüldü Listboxdan seçilen verileri sayfaya sıralı yazdırmak

Hunkar50' Alıntı:

Revizyon hesap sayfasında sarı ile işaretlediğim yerlere aşagıya dogru listbox 2 deki verileri yazması gerekmekte..

Genişletmek için tıkla...

Aleyküm selam.

Resimdeki gibi listbox ve sarıya boyanan sütun adları tutmuyor yani listboxtaki hangi sütun hangi sarı yere gelecek?
Normalde seçilenler döngü ile alt alta kaydedilir ve tonlarca örnek vardır forumda bu konuda abey.

Hocam
Sayfadaki İd ye = Userformdaki İD ( ID kısmını sarartmayı unutmuşum) Kusuruma bakmayın
Sayfadaki Yapılacak İşe = Userformdaki Kontrol kriteri
Sayfadaki Açıklamaya = Userformdaki tespit gerektirir ibaresi yazan yer ( Listbox da sag sonda altta görünüyor )
Sayfadaki Parça Maliyeti = Userformdaki Maliyet
Sayfadaki iş süresi = Userformdaki Süre

Gelecekler bunlar hocam

Sizde Haklısınız Hocam, Aklımızda kendimizce bir çalışma ama sizin hiç fikriniz olmadan çözmek zor iş...
Bizim bildiğimizi sizin basit bir anlatım ile anlayacağınızı sanıyoruz...

Allah Yardımcınız olsun

Aslında dosyanızda kodlar var.
Alttaki gibi değiştirip ekleme yapın abey
If ListBox2.Selected(i) = True Then satırı altındaki kodlar.

HTML:

Hocam bendeki tüm dosyalara baktım.
Nette aradım, bulamadım.
Var diyorum kendi kendime suyun no yazılacak ama nasıl diye olmadı... Teşekkür ediyorum birazdan deniyorum...

Rica ederim.Teklifi Kaydet butonunun en alına doğru var abey dediğim kod.Orda Listbox1 yazılıydı Listbox2 olarak değiştirdim.

Refaz' Alıntı:

Aslında dosyanızda kodlar var.
Alttaki gibi değiştirip ekleme yapın abey
If ListBox2.Selected(i) = True Then satırı altındaki kodlar.

HTML:

CSS: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

Hocam Şimdi ben bu Listboxu Kapalı sayfa için uyarlamaya çalışıyorum...

işlem kodlarım :
HTML:
Kırmızı ile işaretlediğim yerde hata alıyorum.. kayıt işlemi tamam ..

bir kaç yok denedim olmadı ( mesela sizin ile cari kayıt yapmıştık ) onu uyarlamaya çalıştım yine olmadı

şu an ki kodlar zaten o kodlardan alıntı...

Hata aldıgım yer :

For i = 0 To ListBox2.ListCount - 1
sonsat = Sayfa3.[A65536].End(3).Row + 1
If ListBox2.Selected(i) = True Then

With Sheets("revizyon hesap")
kapaliSayfa.Cells(sonsat, "a") = ListBox2.List(i, 0) 'Listbox2 ilk sütun
kapaliSayfa.Cells(sonsat, "b") = ListBox2.List(i, 1)
kapaliSayfa.Cells(sonsat, "h") = ListBox2.List(i, 2)
kapaliSayfa.Cells(sonsat, "j") = ListBox2.List(i, 3)
kapaliSayfa.Cells(sonsat, "g") = ListBox2.List(i, 4)

Tamamdır hocam. Elinize sağlık deneyeceğim birazdan.