comboboxa acık sayfadan veri almak

[fedeal]

comboboxa aşagıdaki gibi sayfadan veri alıyorum benim istedigim sabit bir sayfadan degilde o an açık olan sayfanın b sütunundan veri alsın bu mümkünmü?

ComboBox2.RowSource = "barkod!b1: b"

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub UserForm_Initialize()
Dim sat As Integer
For sat = 1 To Cells(65536, "b").End(xlUp).Row
ComboBox1.AddItem
ComboBox1.List(S, 0) = Cells(sat, "b")
S = S + 1
Next
End Sub

 

[ozgretmen]

Aşağıdaki şekilde olur gibi...

Private Sub UserForm_Initialize()
Windows("Kitap2.xls").Activate ' Verinin Alınacağı açık kitap adı
ComboBox1.RowSource = "Sayfa1!A1:A10"
Windows("Kitap1.xls").Activate ' Ana kitap
End Sub

 

[fedeal]

N.ZİYA hocam kodları uyguladıgım form acılmıyor hata veriyor.
sayın özgretmen başka kitaptan degilde benim yapmak istedigim

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Text).Select
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
Me.ComboBox1.AddItem ws.Name
Next
End Sub

kodlarıyla combobox1 de sectigim sayfaları açıyorum
combobox2 ise hangi sayfadaysam o sayfanın b sütunundan veri alsın istiyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Örnekte ComboBox1 olarak verdim siz ComboBox2 yapıp deneyiniz

 

[ozgretmen]

Dosya ekte...

 

[fedeal]

istedigim buydu cok teşekkür ederim ilginiz ve yardımınız için.

 

[ozgretmen]

istedigim buydu cok teşekkür ederim ilginiz ve yardımınız için.

Rica ederim.İyi çalışmalar...