seçileni tek tek yazdır

[emrexcel123]

arkadaşlar ve üstadlar öncelikle ii akşamlar
listbox'tan seçilen veriyi ben bir sayfanın çeşitli yerlerine aktarıyorum fakat takıldığım konu şurası:
listbox'ta multiselect özelliğini herkes bilir ben seçili olanları aktaracağım ve makbuzda yerine yazılacak ama ben makbuzu yazıcıya koyduğumda sırayla yazdıracak mesela listbox'ta bir personel'i listeledim seçtim o personeli yazıcıya gönderdim yazdı fakat ben birden fazla seçtim bunları teker teker nasıl yazdırabilirim yardımcı olabilirseniz sevinirim...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

For a = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(a) = True Then 
cells(....)=ListBox1.List(a, 0)
activesheet.printout
end if
Next

 

[emrexcel123]

peki

peki sn levetm adminimiz benim şöyle bir kodum var :
akt = listbox1.list
range("ı5:ı65536").value = akt
ben bu şekilde listbox'taki tüm verileri ı sütununa aktarıyorum fakat
1.sorum:
- sadece dolu olanları nasıl aktarabilirim.
2.sorum:
- liststyle'i option yapıp multiselect'i checkbox şeklinde yapıyorum fakat ben listbox'taki seçtiğim satırları nasıl aktarabilirim...
yardımcı olursanız sevinirim...
ii çalışmalar...

 

[emrexcel123]

sn levetm

hocam dosyam ektedir incelerseniz sevinirim...

 

[Levent Menteşoğlu]

Birinci sorunuzdaki sadece dolu olanlardan kastınız nedir? birde listboxtaki veriyi I sütununa nasıl aktarıyorsunuz.

 

[emrexcel123]

hocam

hocam listbox'taki veriyi aktarma sorunum tamam fakat seçileni aktaramıyorum.
yani listbox'un özelliği olan :
- fmListStyleOption
- fmMultiSelectMulti olaylarını yapınca listbox'ta çıkan checkbox'taki işaretli olanları nasıl aktarabilirim ben tümünü atabiliyorum fakat seçili olanları aktaramıyorum...
listbox'taki veriyi bu kodla aktarıyorum:
Range("ı5:ı65536").ClearContents
akt = ListBox1.List
say = ListBox1.ListCount + 4
For sy = 5 To say
Cells(sy, "ı") = akt
Next.....

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Kodlarınızda epeyce bir kısaltma yaptım. Bu mantığıda incelemenizi öneririm.

 

[emrexcel123]

hocam

hocam tek tek yazdırma makrosunu nasıl ekleriz..

 

[Levent Menteşoğlu]

hocam tek tek yazdırma makrosunu nasıl ekleriz..

Bu sorunuzu biraz daha açın. Kasdettiğiniz listboxtaki seçilen verileri sıra ile bir forma aktarıp bu formu yazdırmakmıdır?

 

[emrexcel123]

hocam

gerçekten anladım ki siz visual basic dilini yalamış yutmuşsunuz (yanlış anlamayın)size ufak birkaç sorum olacak :
kod 1 : For a = 0 To ListBox1.ListCount - 1
burda a'dan listbox'taki sütun sayısının değerine kadar say anlamı var ok ama
ListBox1.ListCount - 1 (-1 ne anlama geliyor yoksa listbox1 deki liste sayısı varsayılan "1" kabul edildiği içinmi -1 koydunuz yoksa ??)
kod 2 : If ListBox1.Selected(a) = True Then
burda selected(a) derken kasıt nedir acaba üstadım...
ayrıca dosya ektedir
hocam:
veriler "data" sayfasına giriliyor,form butonuna tıklatıldığında formdan göster dendiğinde çıkan isimleri aktar dediğim zaman "aktarım" sayfasına aktarıyor.buraya kadar herşey "ok"
ancak ben "tediye" sayfasına geldiğimde seçmiş olduğum çalışanlar belirli yerlerine yerleştirilmesi gerekiyor yerleştirlmesi sorun değil fakat benim asıl amacım birden çok yani ben 3 çalışan seçtiğimde ilk önce
- ilk seçilen yazdırılacak sonra
- tediye formu temizlenecek ikinci seçilen yazdırılacak
- sonra ....
birde listbox'taki tümünü seç olayını yapabilir miyiz...
böyle hocam işte bunu nasıl başarabilirim Allah'ın izniyle ve sizin yardımınızla başaracağım...
hocam bu kadar şey yazdım ama sizin takdirinize kalmış umarım derdimi anlatabilmişimdir...

 

[emrexcel123]

yardım

yardım edecek bir arkadaşım yok mu?...:???:

 

[emrexcel123]

hocam

sn leventm hocam kişisel sanmayın ama bana ancak siz yardımcı olabilir siniz.bu konuda kimse bana yardımcı olamadı.beni maruz görün...

 

[emrexcel123]

en azından

en azından evet veya hayır deseniz...

 

[emrexcel123]

kimse yokmu

yardımcı olacak kimse yok mu?