ListBoxdan seçilen satırın Excelde de seçilmesi

[bedri41]

Listbox içerisinde seçtiğim bir veri satırını ;

Sheets("Sayfa1").Range("A" & ListBox1.ListIndex + 2).Select

kullanarak excel sayfası A sutununda da seçebiliyorum. Ancak Listbox içerisinde süzme yaptıktan sonra doğru satırı seçemiyorum. Bunun için nasıl bir ilave yapılması lazım ?

 

[Orion1]

Listbox içerisinde seçtiğim bir veri satırını ;

Sheets("Sayfa1").Range("A" & ListBox1.ListIndex + 2).Select

kullanarak excel sayfası A sutununda da seçebiliyorum. Ancak Listbox içerisinde süzme yaptıktan sonra doğru satırı seçemiyorum. Bunun için nasıl bir ilave yapılması lazım ?

eğer süzmeyi döngü ile yapıyorsanız listboxa 1 sütun daha ekleyin.
Ve o sütuna döngüdeki kaçıncı satırsa onun satır nosunu girin.
böylelikle tıkladığınız satırın listboxtaki sütundan alabilirsiniz.

 

[bedri41]

eğer süzmeyi döngü ile yapıyorsanız listboxa 1 sütun daha ekleyin.
Ve o sütuna döngüdeki kaçıncı satırsa onun satır nosunu girin.
böylelikle tıkladığınız satırın listboxtaki sütundan alabilirsiniz.

Evet bir döngü var ve bu tıkladığım satırın kaçıncı satır olduğunu gösteriyor. Ben bu sonucu Listboxda göstermiyordum, ama gösteredebilirim. Ancak bu sonucu nereye nasıl yazmalıyımki buradaki satır no.su excel sayfamda seçilsin ??

 

[Orion1]

Satır nosu diyelim ki 5nic sütunda.
A sütunundan seçeceksiniz.
Ve diyelim ki 5nci sütundan tıklayıp aldığın satır no: 8

range("A" & listbox1.column(4)).select

4 aklını karıştırmasın.Çünkü sütun indexi sııfırdan başlar.
Bu durumda A8 hücresi seçilecektir.

 

[bedri41]

Hocam çok sağolun bu işe yarıyor ama satır no.sunu sadece süzme yaptığı zamanlarda alabiliyorum. Veri süzüp Listboxda seçim yaptığım zaman excelde doğru satırı seçebiliyorum. Bu seferde süzme yapmadığım zaman çalışmıyor. Yani baştaki sorunumun tam tersi bir sorunum var şimdi.

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki kod yapısını kullanabilirsiniz.

Private Sub ListBox1_Click()
    If ListBox1.RowSource = "" Then
        Range("A" & ListBox1.Column(4)).Select
    Else
        Range("A" & ListBox1.ListIndex + 2).Select
    End If
End Sub

 

[Orion1]

Hocam çok sağolun bu işe yarıyor ama satır no.sunu sadece süzme yaptığı zamanlarda alabiliyorum. Veri süzüp Listboxda seçim yaptığım zaman excelde doğru satırı seçebiliyorum. Bu seferde süzme yapmadığım zaman çalışmıyor. Yani baştaki sorunumun tam tersi bir sorunum var şimdi.

Rowsource ile alıyorsan listindex+2 olayı vardı soruda.Rowsource ile onu kullanın.
Yada çalışma sayfasında bir sütun ayırın ona id no ları girin.
İd no demek biribirine benzemeyen nolar demek.Kayıt yaparken bu id no sütununa no gir.
Sonrada listboxa da al bu idleri oradanda kodda al ve find komutunu kullanarak hangi satırda olduğunu bul ve o satırda işlemlerini yap.
Yani birde kullanacağın listeleme metodunu seçmen önemli.ona göre durum ve vaziyet alırsın.

 

[Orion1]

Bakın korhan bey pratik bir çözüm vermiş.Onu bir deneyin isterseniz.

 

[bedri41]

Üstadlar iyiki varsınız, allah sizlerden razı olsun. Çok teşekkür ederim.

 

[bilisim2010]

Merhaba,

Alternatif olarak aşağıdaki kod yapısını kullanabilirsiniz.

Private Sub ListBox1_Click()
    If ListBox1.RowSource = "" Then
        Range("A" & ListBox1.Column(4)).Select
    Else
        Range("A" & ListBox1.ListIndex + 2).Select
    End If
End Sub

merhaba değerli hocam bu kod ile aşağı yukarı seçtiriyorum okey ama sorun şuki 2. veya 3. satırdakini götürüp 1. satıra yazdırıyor 1. satırdaki verimi değiştiriyor değiştirmemesi için ek ne yazmalıyım? kısacası benim birtane textbox3 var listboxda ki b sütununda neye tıklasam o textboxda onu göstersin içeriği değiştirmesin.