Listbox veri al

[greatkeops]

Merhabalar,
Listbox la ilgili bir sorum olacaktı:
Listbox1 deki listem a1 hücresindeki değere göre değişmektedir. Şöyle ki:
A1 hücresindeki değer sütun sayısını vermekte, a1 de 5 yazıyorsa 5. sütundaki veriler listboxta görülecek. Yani e sütunu. (e3:e52 arası) a1 de 2 yazıyorsa 2. sütundaki veriler yan, B sütunundaki veriler (b3:b52 arası)
Userform aktif olduğunda bunu nasıl sağlayabilirim. Teşekkürler…

 

[NBATMAN]

Merhaba,

Dosyanız ektedir.

 

[greatkeops]

ben dosyayı yüklüyorum. yardımcı olursanız çok sevinirim.

Dediğinizi uygulayacak bilgim maalsef yok. dosyayı yüklüyorumç yardımcı olursanız sevinirim.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, sat As Long, sut As Integer, i As Long
Dim lstbx As Object
Sheets("sınıfgir").Select
Range("C1").Select
Range("C1").Value = ComboBox1.Value
Set sh = Sheets("öğrencigirişi")
Set lstbx = verigirişi.ListBox1
lstbx.Clear
sut = sh.Cells(1, 256).End(xlToLeft).Column
For i = 2 To 80
    On Error Resume Next
    If CLng(sh.Cells(1, i).Value) = CLng(ComboBox1.Value) Then
    On Error GoTo 0
        sat = sh.Cells(Rows.Count, i).End(xlUp).Row
        If sat < 3 Then Exit Sub
        lstbx.RowSource = "öğrencigirişi!" & sh.Range(sh.Cells(3, i), sh.Cells(sat, i + 1)).Address
        Exit For
    End If
Next i
Set sh = Nothing
Set lstbx = Nothing
sınıfseç.Hide
verigirişi.Show
End Sub

 

[greatkeops]

son bir istek

Çok teşekkür ederim "Orion1". Son bir isteğim daha var. Gerisini ben halledeceğim. : ) (bir zahmet dediğinizi duyar gibiyim.)
Listboxda sayenizde liste oluşturabildim. Şimdi diğer sayfadaki seçili hücreyi listbox1'deki değere göre değiştirmek istiyorum.

Listbox1'de çıkan (sizin sayenizde) sınıf listesini, "liste" adlı çalışma sayfasından buldurmak istiyorum. Yani, bu userforma geldiğimde "liste" çalışma sayfasında bulunmak istiyorum ve listbox'da seçili olan öğrenci adının bulunduğu e sütununda bulunmak istiyorum. Listbox'daki öğrenci adını değiştirdiğimde "liste" çalışma sayfasının "e" sütunundaki seçili hücre de alta ya da üste değişsin istiyorum. Yapabilirseniz çok müteşekkir kalacağım.

 

[Orion1]

Dosyanız ektedir.

Private Sub ListBox1_Click()
Dim k As Range
If ListBox1.ListCount < 1 Then Exit Sub
Set k = Range("E:E").Find(ListBox1.Column(1), , xlValues, xlWhole)
If Not k Is Nothing Then k.Select
    
End Sub

 

[greatkeops]

yine yardımınıza ihtiyacım var

hocam, dosyayla uğraşırken bir hata ile karşılaştım.
Daha önce yazdığınız kod ne güzel çalışıyordu. Ancak onu ekle, bunu ekle derken verigirişi formundaki listbox1 yenilenmiyor, hangi sınıfı seçersem seçeyim hep 1. sınıfın listesi olarak kalıyor. Bir ilgilenirseniz çok sevinirim.

 

[Orion1]

Bir şey anlamadım.Veri girişi uf ' de listboxta hangi sayfanın verilerini görmek istiyorsunuz?

 

[greatkeops]

dosya yüklendi

özür dilerim hocam, dosyayı yükledim ve daha detaylı yazmaya çalıştım.

 

[Orion1]

Dosyanız ektedir.

 

[greatkeops]

şöyle bir hata veriyor

Resimdeki gibi bir hata veriyor "verigirşi" adlı "commandbutton1"e tıklayınca...

 

[Orion1]

Resimdeki gibi bir hata veriyor "verigirşi" adlı "commandbutton1"e tıklayınca...

Listviewi silip tekrar eklemeyi deneyin.

 

[greatkeops]

dediğinizi anlamadım sayın hocam? Listview?

 

[Orion1]

vbe de tools ==> reference den MISSING ile başlayan satırı kaldırınız.

 

[greatkeops]

Teşekkürler