ListBox Hk.

[Mdemir63]

Selamlar,

arkadaşlar List box ta en son bilgi en alt satırında görünsün kaydırma çubuğuyla hareket ettirsek dahi boşlukları açmasın. Böyle bir şey lisbox ın özelliklerinde varmı varsa nasıl?

Dosya açıklaması aşağıda

Saygılar

 

[Orion1]

Merhaba.
Örnek dosyayı inceleyiniz

 

[conari]

Private Sub Worksheet_Activate()
son = [a65536].End(3).Row
ListBox1.ListFillRange = ("A1:A" & son)

End Sub

ilgili sayfanın kod bloguna yapıştırın
sadece 1.box içindir a sütünu referans alındı.

 

[Seyit Tiken]

RAR'lı dosyaları açamıyoruz. Ben bu şekilde anladım.

Private Sub UserForm_Activate()
ListBox1.RowSource = "sayfa1!a1:a" & [a6500].End(3).Row
End Sub

 

[Orion1]

Autpen makrosuna kodlar yazılmadığı için listbox listeme yapmıyodu Bu durum düzeltildi Dosya güncellendi::cooL

 

[Mdemir63]

Autpen makrosuna kodlar yazılmadığı için listbox listeme yapmıyodu Bu durum düzeltildi Dosya güncellendi::cooL

Sn: Sezar sizin yaptığınız tamam benim istediğim gibi ancak Bu aşağıdaki kodları neden dolayı yazıyoruz bunda da biraz bahsedebilirmisiniz?

Saygılar

Sub liste()
Set s1 = Sheets("Sayfa1")
s1.ListBox1.Clear: s1.ListBox2.Clear
sonsat = Cells(65536, "A").End(xlUp).Row
For i = 1 To sonsat
s1.ListBox1.AddItem Cells(i, "A").Value
s1.ListBox2.AddItem Cells(i, "A").Value
Next
End Sub
Sub Autpen()
Call liste
End Sub

 

[Mdemir63]

RAR'lı dosyaları açamıyoruz. Ben bu şekilde anladım.

Private Sub UserForm_Activate()
ListBox1.RowSource = "sayfa1!a1:a" & [a6500].End(3).Row
End Sub

Hocam RAR sız dosya ekte

 

[Seyit Tiken]

Sayın Sezar, kodları çalıştırmak için bir buton eklenseydi kısa yol oluşurdu en azından. Şimdi listeye ekleme yapıldı diyelim, Kitabı kapatım gene açmak gerek değil mi?. Halbuki kodlar butona atanırsa buna gerek kalmaz. Daha pratik olur diye düşünüyorum.

 

[Mdemir63]

Private Sub Worksheet_Activate()
son = [a65536].End(3).Row
ListBox1.ListFillRange = ("A1:A" & son)
 
End Sub

ilgili sayfanın kod bloguna yapıştırın
sadece 1.box içindir a sütünu referans alındı.

Sn: conari uyguluyorum ama lisbox ın boşluğu yine açılıyor

Saygılar

 

[conari]

modüle değil ilgili sayfaya yapıştırınız.

sayfalar arası bir geçis yaparmısınız.
Listbox3 için örnek ekte.

 

[Orion1]

Sayın Sezar, kodları çalıştırmak için bir buton eklenseydi kısa yol oluşurdu en azından. Şimdi listeye ekleme yapıldı diyelim, Kitabı kapatım gene açmak gerek değil mi?. Halbuki kodlar butona atanırsa buna gerek kalmaz. Daha pratik olur diye düşünüyorum.

Merhaba.
Sayın hocam doğru söylüyorsunuz.Ben bu işlemi yapacak kodu işi başka türlü yaptım.
A sütunununa bir veri girince doğrudan tekrardan listeleme yapılıyor. Worksheet_Change olayında .

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Call liste
End Sub

 

[Mdemir63]

Günaydınlar,

Emeği geçen arkadaşlara çok teşekkür ederim.

Saygılar

 

[Mdemir63]

Selamlar,

Arkadaşlar aşağıdaki Sn: conari nin verdiği kodlarda başka sayfadaki A sütunundan değerler alırsa nasıl değiştirmemiz gerekiyor? Ben ("Sayfa4!A1:A"& son) yaptım olmadı

Saygılar



Private Sub Worksheet_Activate()
son = [a65536].End(3).Row
ListBox3.ListFillRange = ("A1:A" & son)

End Sub

 

[conari]

Private Sub Worksheet_Activate()
Set s2 = Sheets("sayfa2")
son = s2.[a65536].End(3).Row
aralık = "sayfa2! " & "A1: A" & son
ListBox3.ListFillRange = (aralık)
End Sub

 

[veyselemre]

Listbox Formlar araç çubuğundan seçilerek ve ALAN isminde dinamik bir alan Listbox a girdi aralığı olarak tanıtıldı.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_Activate()
ListBox1.ListFillRange = "sayfa2!a1:a" & [sayfa2!a6500].End(3).Row
End Sub

Not : 1.sayfanın kod bölümüne yapıştırınız.

 

[Mdemir63]

Ellerinize sağlık

Teşekkürler

 

[Orion1]

Alternatif.:

Private Sub Worksheet_Activate()
ListBox1.Clear
ListBox1.List = Range("A1:A" & Cells(65536, "A").End(xlUp).Row).Value
End Sub

 

[Mdemir63]

Sn: sezar alternatif çözümünüz için teşekkür ederim. Peki başka bir sayfadan örneğin Sayfa3 den bilgileri Sayfa 1 deki ListBox içine alacağız bu verdiğiniz kodun neresini değiştireceğiz?

Saygılar

 

[Orion1]

Sn: sezar alternatif çözümünüz için teşekkür ederim. Peki başka bir sayfadan örneğin Sayfa3 den bilgileri Sayfa 1 deki ListBox içine alacağız bu verdiğiniz kodun neresini değiştireceğiz?

Saygılar

Merhaba.
Aşağıdaki kodlar işinizi görür sanırım.

Private Sub Worksheet_Activate()
ListBox1.Clear
ListBox1.List = Sheets("Sayfa3").Range("A1:A" & Sheets("Sayfa3").Cells(65536, "A").End(xlUp).Row).Value
End Sub