Listbox'a veri çağırma

[BAZGİRET]

merhaba
ListBox'a aktif sayfadan değil başka bir sayfadan örneğin veri sayfasından veri aktarmak istiyorum. Bununlailgili forumda sadece aktif sayfadan veri almayı uldum kendimde beceremedim yardımcı olursanız sevinirim. Bununlailgili kod yardımı istiyorum lütfen..

 

[Orion1]

merhaba
ListBox'a aktif sayfadan değil başka bir sayfadan örneğin veri sayfasından veri aktarmak istiyorum. Bununlailgili forumda sadece aktif sayfadan veri almayı uldum kendimde beceremedim yardımcı olursanız sevinirim. Bununlailgili kod yardımı istiyorum lütfen..

Buyurun.

listbox1.rowsource="Sayfa1!A2:B100"

 

[BAZGİRET]

Teşekkürler

buyurun.

listbox1.rowsource="sayfa1!a2:b100"

sayın orion1
çok teşekkür ediyorum. Harika oldu. Ama bir şey daha sormak istiyorum. Listboxtan da bu veriler metin kutusuna gelsin bunu nasıl yapabiliriz?

 

[BAZGİRET]

Buyurun.

listbox1.rowsource="Sayfa1!A2:B100"

Bir şey daha sormak istiyorum. Listboxtan da bu veriler metin kutusuna gelsin bunu nasıl yapabiliriz?

 

[vardar07]

Belki işini görür. Veri al kodundaki TextBox satırlarını istediğin kadar çoğaltabilirsin.

Private Sub ListBox1_Click()
ListBox1.RowSource = "sayfa2!B2:F100"
VeriAl
End Sub

Sub VeriAl()
TextBox1.Text = ActiveCell.Offset(0, 0)
End Sub

 

[BAZGİRET]

Sayın VARDAR07
VERDİĞİNİZ KODLARI UYGULADIM AMA HATA VERİYOR. YA DA VERİLERİ TEXTBOXA AKTARMIYOR. bİR YERDE YANLIŞ YAPIYORUM AMA NERDEANLAYAMADIM . yARDIMLARINIZ İÇİN TEŞEKKÜRLER

 

[vardar07]

Kırmızı olan yerleri kendinize göre düzenlemen lazım.

Sub VeriAl()
TextBox1.Text = ActiveCell.Offset(0, 0)
End Sub
 
Private Sub ListBox1_Click()
[COLOR=red]Sayfa2[/COLOR].Range("[COLOR=red]A:A[/COLOR]").Find(ListBox1.Text).Select
 VeriAl
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 1
    ListBox1.ColumnWidths = "100"
    ListBox1.RowSource = "[COLOR=red]Sayfa2!A1:A[/COLOR]" & Sheets("Sayfa2").Range("A65536").End(xlUp).Row
End Sub

 

[BAZGİRET]

Kayıt değiştir ve gönder

çok teşekkür ederim bunu da hallettik sayenizde. Ama benim bir sorum daha var kayıt düzeltmeleri diğer sayfaya örneğin veri sayfasına gönderip ordaki hücrelere düzeltme yapıp kaydetmek istiyorum son isteğim budur. Bunu da halledersem işimi tamamlamış olacağım.