Listbox

[ertugrul19]

Bu beni aşıyor arkadaşlar yardımcı olabilirmisiniz örneği incelersenizde göreceksiniz

 

[Orion1]

Private Sub ListBox1_Click()
sat = Worksheets("PROGRAM").ListBox1.ListIndex + 3
Worksheets("PROGRAM").Cells(7, "J").Value = Worksheets("PERSONELBİLGİLERİ").Cells(sat, "A").Value
Worksheets("PROGRAM").Cells(4, "Q").Value = Worksheets("PERSONELBİLGİLERİ").Cells(sat, "B").Value
Worksheets("PROGRAM").Cells(7, "O").Value = Worksheets("PERSONELBİLGİLERİ").Cells(sat, "C").Value
[B][COLOR="Red"]Sheets(CStr(ListBox1.Value)).Select[/COLOR][/B]
End Sub

 

[ertugrul19]

teşekkür ederim fakat benim istediğim programın olduğu sayfaya verileri girince istenilen sayfaya kopyalaması mümkünse lütlen yardımcı olabilirmisiniz?

 

[Orion1]

GÖRÜLDÜĞÜ ÜZERE İSME TIKLANDIĞINDA İSMİN VE DİĞER BİLGİLERİN
EKRANDA GÖRÜLÜYOR BENİM YAPMAK İSTEDİĞİM
İSME TIKLANINCA ONA AİT OLAN SAYFANINDA AÇILMASINI İSTİYORUM
MÜMKÜNSE YARDIMCI OLABİLİRMİSİNİZ

teşekkür ederim fakat benim istediğim programın olduğu sayfaya verileri girince istenilen sayfaya kopyalaması mümkünse lütlen yardımcı olabilirmisiniz?

Yukarıdaki ilk söylediğinize göre cevap vermiştim.Onu dosyanızda yazmıştınız.
Cevap veren olmazsa daha sonra cevap yazarım.

 

[Husgvarna]

Merhaba.

Son mesajınıza göre; eki deneyebilirsiniz.

 

[ertugrul19]

EVET HAKLISINIZ MESAJI YAZARKEN KONUYU EKSİK YAZMIŞIM
İLGİNİZ İÇİN TEŞEKKÜR EDERİM Evren Gizlen VE Husgvarna.
ÇOK YARDIMI OLACAKTIR. SADECE BANA DEĞİL İNŞALLAH HERKESE YARDIMI OLACAKTIR.

 

[ertugrul19]

Listbox 2

Hocalarım bu hazırlamış olduğumuz program
sayesinde ben ve benim gibi bir çok arkadaş istediğine kavuşabilir son olarak programı sonlandırmak için yardımlarınıza ihtiyacım var
şimdiden teşekkür ederim

 

[ertugrul19]

Ek dosya gönderiyorum

 

[ertugrul19]

2 listbox'u birleştirebilirmiyiz şöyleki ilkininin üzerine tıklandığında diğerindede aynı isim çıkabilirmi