Bir userformda 2 listbox olma problemi hk.

[kemal turan]

Merhaba,
Sorum şöyle..
Bir userform da bir listbox1 um var.İkinci listbox2 yi eklediğimde listbox1 in kodları listbox2 nin kod bölümünde otomatik olarak görülüyor.
Birinde değişiklik yaptığımda diğeri etkileniyor.
Bir userformda 2 adet listbox olmaz mı ?
Olursa da problemimin çözümü nedir.
Yardımlarınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Yazdıklarınızdan bir şey anlaşılmıyor. Userforma birden fazla listbox elbette kullanabilirsiniz. Ayrıca birine yazılan kodlar diğerinide etkilemez. Bence dosyanızı ekleyin.

 

[kemal turan]

Merhaba Levent Hocam.
Dosya ek tedir.
Teşekkür ederim.

 

[Levent Menteşoğlu]

Kemal bey, dosyanızdanda bir şey anlayamadım. Zaten dosyanızdaki kodlarda bu dosyaya ait olmadığı için çalışmıyor. Planlama ve stok sayfaları yok.

 

[kemal turan]

Levent bey merhaba,
kod yönünden bir sorunum yok.
Sorunumu şöyle izah etmeye çalışayım.
1-Userformda 2 adet listbox var.Bir tanesindeki kodları silince diğride siliniyor.
2-Veya 3 ncü bir userform ekleyin otomatik olarak diğer listbox daki kodlar yeni listboxun kod sayfasıda yer alıyor.
Teşekkür ederim.

 

[kadirdaylight]

Levent Bey aynı durumu bende yaşıyorum.

2 adet ListBox var,
1 adet userform var,
2 adet sayfa var

Userform üzerinde 2 tane listbox var, bir tanesi Sayfa1 den diğeri Sayfa2 den veri alsın istiyorum ancak 2. olan çalışmıyor. Acaba kodlarda mı hata var?

Private Sub UserForm_Initialize()
On Error Resume Next
With ListBox1
.ColumnCount = 10
.ColumnWidths = "24,150,90,60,85,50,50,80,70,60"
Sons = Sheets("Kimyasallar").Range("A65536").End(xlUp).Row
ListBox1.RowSource = "Kimyasallar" & "!A2:J" & Sons
End With

On Error Resume Next
With ListBox2
.ColumnCount = 10
.ColumnWidths = "24,150,90,60,85,50,50,80,70,60"
Sons = Sheets("TKA-2013").Range("A65536").End(xlUp).Row
ListBox2.RowSource = "TKA-2013" & "!A2:R" & Sons
End With

End Sub

 

[kadirdaylight]

Dosyamıda ekliyorum, bir kaç sorunum daha var yardımcı olursanız sevinirim.

ListBox1 içerisinde sıralanan ve aratılabilen veriden herhangi bir satırı seçip çift tıklayınca yeni bir userform geliyor. Bu userform içerisindeki textbox lara ilgili verilerin otomatik gelmesini sağlayamadım.

Bu userfom içerisine kimyasal miktarı girilip ekle diyincede bunu "TKA-2013" sayfasına kaydediyor ve bu kaydedilenleride ListBox2 de göstersin istiyorum ama göstermiyor... :frown:

 

[vardar07]

Levent Bey aynı durumu bende yaşıyorum.


Userform üzerinde 2 tane listbox var, bir tanesi Sayfa1 den diğeri Sayfa2 den veri alsın istiyorum ancak 2. olan çalışmıyor. Acaba kodlarda mı hata var?

Private Sub UserForm_Initialize()
On Error Resume Next
With ListBox1
.ColumnCount = 10
.ColumnWidths = "24,150,90,60,85,50,50,80,70,60"
Sons = Sheets("Kimyasallar").Range("A65536").End(xlUp).Row
ListBox1.RowSource = "Kimyasallar" & "!A2:J" & Sons
End With

On Error Resume Next
With ListBox2
.ColumnCount = 10
.ColumnWidths = "24,150,90,60,85,50,50,80,70,60"
Sons = Sheets("[COLOR="Red"]TKA-2013[/COLOR]").Range("A65536").End(xlUp).Row
ListBox2.RowSource = "[COLOR="red"]TKA-2013[/COLOR]" & "!A2:R" & Sons
End With

End Sub

Merhaba,Kırmızı ile gösterilen yerleri "TKA2013" olarak değiştir ve Sayfa adınıda TKA2013 olarak düzeltirsen listbox2 nin çalıştığını görürsün.

 

[kadirdaylight]

Merhaba,Kırmızı ile gösterilen yerleri "TKA2013" olarak değiştir ve Sayfa adınıda TKA2013 olarak düzeltirsen listbox2 nin çalıştığını görürsün.

Çok teşekkür ederim günlerdir neden olmuyor diye düşünüyordum sayfa ismi hiç aklıma gelmemişti

Peki çift tıklama sonrası açılan userforma verileri otomatik aldırma konusunda bir yorumunuz var mı?