Sütundaki verilerin tamamını çağırma

[YILDIZ YAĞMURU]

Başlığı yanlış attıysam özür dilerim . Ekteki dosyada biraz anlatmaya çalıştım. yardımcı olursanız çok sevineceğim. şimdiden çok teşekkür ederim

Ayşe YILDIZ

 

[Orion1]

Buyurun.
Dosyanız ektedir.

Sub lstbx59()
Dim sonsut As Integer
sonsut = Cells(5, 256).End(xlToLeft).Column
ListBox1.Clear
ListBox1.List = Application.Transpose(Range(Cells(5, 2), Cells(5, sonsut)).Value)

End Sub

 

[YILDIZ YAĞMURU]

çok teşekkürler Orion1 Ama sayfa 2 yi nasıl yapacağım ben

Buyurun.
Dosyanız ektedir.

Sub lstbx59()
Dim sonsut As Integer
sonsut = Cells(5, 256).End(xlToLeft).Column
ListBox1.Clear
ListBox1.List = Application.Transpose(Range(Cells(5, 2), Cells(5, sonsut)).Value)

End Sub

sayfa 1 e verdiğiniz cevap için çok teşekkürler ama sayfa 2 de esas soru var Orion1 , acemiye desteğini bekliyorum Orion1 yardımcı olursanız çok sevineceğim arkadaşlar ..

 

[monelogg]

Merhaba, 2 sayfadaki soru için bir formül hazırlamıştım:

=İNDİS(Sayfa1!$B$6:$H$9;KAÇINCI(Sayfa2!A6;Sayfa1!$A$6:$A$9;0);KAÇINCI(Sayfa2!$B$4;Sayfa1!$B$5:$H$5;0))

formülünü B6 hücresinden itibaren aşağı doğru çoğaltın.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Formülle Dosyanız ektedir

 

[YILDIZ YAĞMURU]

Merhaba, 2 sayfadaki soru için bir formül hazırlamıştım:

=İNDİS(Sayfa1!$B$6:$H$9;KAÇINCI(Sayfa2!A6;Sayfa1!$A$6:$A$9;0);KAÇINCI(Sayfa2!$B$4;Sayfa1!$B$5:$H$5;0))

formülünü B6 hücresinden itibaren aşağı doğru çoğaltın.

çok teşekkürler monelogg

 

[YILDIZ YAĞMURU]

Merhaba
İyi Çalışmalar
Formülle Dosyanız ektedir

çok teşekkürederim asr35

 

[YILDIZ YAĞMURU]

Buyurun.
Dosyanız ektedir.

Sub lstbx59()
Dim sonsut As Integer
sonsut = Cells(5, 256).End(xlToLeft).Column
ListBox1.Clear
ListBox1.List = Application.Transpose(Range(Cells(5, 2), Cells(5, sonsut)).Value)

End Sub

Orion1 merhaba ,
bu kodu başka bir sayfadan veri alacak şekilde değiştirebilirmiyiz acaba böyle bir imkan varmı ? .. listbox sayfa 2 de ,sayfa 1 den yukarıda verdiğin şekilde veri alacak olurmu ??

 

[Orion1]

Orion1 merhaba ,
bu kodu başka bir sayfadan veri alacak şekilde değiştirebilirmiyiz acaba böyle bir imkan varmı ? .. listbox sayfa 2 de ,sayfa 1 den yukarıda verdiğin şekilde veri alacak olurmu ??

aşağıdaki kod işinizi görecektir.Kırmızı kodu ekledim.

Sub lstbx59()
Dim sonsut As Integer
sonsut =[B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B] Cells(5, 256).End(xlToLeft).Column
ListBox1.Clear
ListBox1.List = Application.Transpose([B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B]Range([B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B]Cells(5, 2), [B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B]Cells(5, sonsut)).Value)

End Sub

 

[YILDIZ YAĞMURU]

çok teşekkürler orion1

aşağıdaki kod işinizi görecektir.Kırmızı kodu ekledim.

Sub lstbx59()
Dim sonsut As Integer
sonsut =[B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B] Cells(5, 256).End(xlToLeft).Column
ListBox1.Clear
ListBox1.List = Application.Transpose([B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B]Range([B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B]Cells(5, 2), [B][COLOR="Red"]sheets("Sayfa1").[/COLOR][/B]Cells(5, sonsut)).Value)

End Sub

ellerine sağlık