listbox çift tıklama ile adrese gitme

[acemi_mühendis]

Merhaba;

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Check for range addresses
If ListBox1.ListCount = 0 Then Exit Sub
'GoTo doubled clicked address
Application.Goto Range(ListBox1.Text), True
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.Goto Range(ListBox1.List(ListBox1.ListIndex))
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.Goto Range(ListBox1).EntireRow
Unload Me
End Sub

bu 3 adet kodla denedim ama olmadı.

Bu komutlardaki hata nedir?

İstedigim listboxta bir satıra cift tıkladıgımda calısma sayfasındaki adrese gitme.

Tesekkürler.

 

[İhsan Tank]

sorunuz net değil
örnek dosya ekler misiniz içine açıklama eklemeyi unutmayınız

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListCount < 1 Then Exit Sub
Range(ListBox1.Column(1)).Select
End Sub

Private Sub UserForm_Initialize()
Me.Caption = "evrengizlen@hotmail.com    23.07.2011"
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "200;0"
For i = 1 To 10
    ListBox1.AddItem
    ListBox1.List(i - 1, 0) = Cells(i, "A").Value
    ListBox1.List(i - 1, 1) = "A" & i
Next
End Sub

 

[acemi_mühendis]

sorunuz net değil
örnek dosya ekler misiniz içine açıklama eklemeyi unutmayınız

Dosyayı ekledim.İlgilendiginiz icin cok tesekkür ederim.

 

[Orion1]

3 numaralı mesajda cevap verdim.
İnceledinizmi?

 

[acemi_mühendis]

3 numaralı mesajda cevap verdim.
İnceledinizmi?

inceledim fakat o kod benim formda calısmadı.

 

[acemi_mühendis]

inceledim fakat o kod benim formda calısmadı.

Arkadaslar benim kopyaladıgım dosyada bunu nasıl yaparım?

 

[Orion1]

inceledim fakat o kod benim formda calısmadı.

Şu microsoft'a da kızmamak elde değil.
Bende çalışan kod başkasında çalışmıyor,başkasında çalışan kod ötekinde çalışmıyor.
Bunlar standart kodlar diye veriyorlar.Her yerde çalışır diyorlar,ama çalışmıyor işte.Aslında kişiye özel kodlar yazabilseler ne kadarda güzel olurdu.Ahmet bu kodlar sende çalışır,mehmet bu kodlarda senin için,bunlarda sende çalışır diye böyle bir uygulama yapsalar ne kadarda güzel olurdu.!!!!!!!!!!!

 

[acemi_mühendis]

Şu microsoft'a da kızmamak elde değil.
Bende çalışan kod başkasında çalışmıyor,başkasında çalışan kod ötekinde çalışmıyor.
Bunlar standart kodlar diye veriyorlar.Her yerde çalışır diyorlar,ama çalışmıyor işte.Aslında kişiye özel kodlar yazabilseler ne kadarda güzel olurdu.Ahmet bu kodlar sende çalışır,mehmet bu kodlarda senin için,bunlarda sende çalışır diye böyle bir uygulama yapsalar ne kadarda güzel olurdu.!!!!!!!!!!!

benimle dalga gecmenize anlam veremedim.Kodları kullandıgım user forma uyarladım ve hata mesajını cozemedim.

Bir programı cok iyi bilmek,programa hakim olmayan ama sizden iyi niyetle yardım isteyen insanlarla dalga gecme hakkını size vermiyor sanırım..

Yada böyle bir hakkınız oldugunu dusunuyorsanız ben bunu hic sık bulmadıgımı söylemek isterim.

 

[Orion1]

benimle dalga gecmenize anlam veremedim.Kodları kullandıgım user forma uyarladım ve hata mesajını cozemedim.

Bir programı cok iyi bilmek,programa hakim olmayan ama sizden iyi niyetle yardım isteyen insanlarla dalga gecme hakkını size vermiyor sanırım..

Yada böyle bir hakkınız oldugunu dusunuyorsanız ben bunu hic sık bulmadıgımı söylemek isterim.

Dalga geçmedim.Sadece sizin söylediklerinini tekrarladım.
Kızmayın hemen niye kızıyorsunuz.Ben kızdımmı?
Ne dediniz bu kodlar bende çalışmıyor.
Kızdımmı size.
Ben kod yazacamda o kod sadece bende çalışacak başkalında çalışmayacak.
Çalışmayacak olanlarda var ama sizinki öyle değil.
Bende bu lafınıza gücendim.
Şimdiye kadar kaç yanıt vermişim insanlara ,ama hepside çalıştı.
Herkes teşekkür etti.Siz ise bende çalışmadı dediniz.
Ben bir kodu yazarken çok itina ederim.
Bir kodu farklı yöntemlerle 50 çeşit yazabilirsiniz ama içlerinden bir tanesi en iyi çalışan ve en hızlı çalışan ve hatasız çalışandır.
Ben düşündüm sizin için en iyi nasıl olur diye.O kodları yazdım.
Yani birisi bana herhalikarda senin kodların bende çalışmıyor deyince çok güceniyorum.Çok üzülüyorum.
Benim kod yazmamdaki bütün şevkimi kırıyor.
Lütfen böyle yapmayın.
Bari ben çalıştıramadım deyin.
O zaman elele kolkola verip hallederiz.Ama bu tarz yaklaşımlarda ben hiç yaklaşmak istemiyorum konuya.
Sanırım kendimi anlatabildim.
İyi çalışmalar dilerim size.

 

[acemi_mühendis]

Dalga geçmedim.Sadece sizin söylediklerinini tekrarladım.
Kızmayın hemen niye kızıyorsunuz.Ben kızdımmı?
Ne dediniz bu kodlar bende çalışmıyor.
Kızdımmı size.
Ben kod yazacamda o kod sadece bende çalışacak başkalında çalışmayacak.
Çalışmayacak olanlarda var ama sizinki öyle değil.
Bende bu lafınıza gücendim.
Şimdiye kadar kaç yanıt vermişim insanlara ,ama hepside çalıştı.
Herkes teşekkür etti.Siz ise bende çalışmadı dediniz.
Ben bir kodu yazarken çok itina ederim.
Bir kodu farklı yöntemlerle 50 çeşit yazabilirsiniz ama içlerinden bir tanesi en iyi çalışan ve en hızlı çalışan ve hatasız çalışandır.
Ben düşündüm sizin için en iyi nasıl olur diye.O kodları yazdım.
Yani birisi bana herhalikarda senin kodların bende çalışmıyor deyince çok güceniyorum.Çok üzülüyorum.
Benim kod yazmamdaki bütün şevkimi kırıyor.
Lütfen böyle yapmayın.
Bari ben çalıştıramadım deyin.
O zaman elele kolkola verip hallederiz.Ama bu tarz yaklaşımlarda ben hiç yaklaşmak istemiyorum konuya.
Sanırım kendimi anlatabildim.
İyi çalışmalar dilerim size.

ben o kod bende calısmıyor derken ben o kodu calıstırmayı beceremedim demeye getirdim.Zaten programı biliyor olsaydım yardım istemez bahsettigim isi kendim yapardım.

Neyse yanlıs bir sey söylediysem özür dilerim.Bu arada kibarca size yardım etmem artık demissiniz.Cok önemli degil.Simdiye kadar ettiginiz yardımlar icin tesekkür ederim.Hakkınızı helal edin.

Saygılarımla;