hücrenin adresi

[marimar]

merhaba arkadaşlar
açılan formda butona tıklayınca listboxta a stunundaki dolu hücreler listeleniyor. benim istediğim listbox'taki verilere tıklayınca verinin hangi hücrede olduğunu textbox'a yazmasını istiyorum.
teşekkürler

 

[Zeki Gürsoy]

Şunu deneyin.

Textbox = "A" & Listbox.ListIndex + 1

 

[marimar]

merhaba arkadaşlar zeki gürsoy arkadaşımıza ilgisi için teşekkür ederim fakat benim sorumu tam olarak yanıtlamıyor.
benim istediğim ekteki dosyada açılan formda listbox'a tıkladığım zaman textbox'a listbox'taki verinin hangi hücrede kayıtlı olduğunu yazmasını istiyorum.

zeki gürsoy arkadaşımızın verdiği kodda 60 rakamı a3 hücresinde olmasına ramen lisbox'ta 60 rakamına tıkladığım zaman textbox'ta a1 hücresinde görünüyor.
yardımlarınız için teşekkürler.

 

[Ayhan Ercan]

Merhaba
Aşağıdaki kodu deneyiniz...

Private Sub ListBox1_Click()
Dim hcr As Range
Set hcr = Sheets("Sayfa1").[A:A].Find(ListBox1.Text, lookat:=xlWhole)
TextBox1 = hcr.Address(0, 0)
End Sub

 

[Orion1]

listboxta bir sütun daha açınız.Listboxa verileri alırken o sütuna hücrenin adresini yazdırınız.Sonra tek tıklama ile o adresi listboxtan alabilirsiniz.

 

[marimar]

listboxta bir sütun daha açınız.Listboxa verileri alırken o sütuna hücrenin adresini yazdırınız.Sonra tek tıklama ile o adresi listboxtan alabilirsiniz.

bir örnek verebilirmisiniz sn evren

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "Değer : " & vbTab & ListBox1.Column(1) & _
vbLf & "Adres : " & vbTab & ListBox1.Column(0)

End Sub

Private Sub UserForm_Click()
End Sub

Private Sub UserForm_Initialize()
For i = 2 To Cells(65536, "A").End(xlUp).Row
    ListBox1.AddItem
    ListBox1.List(i - 2, 0) = "A" & i
    ListBox1.List(i - 2, 1) = Cells(i, "A").Value
Next
End Sub