listbox sayfaya gitme hatası

[aydın3838]

sayın hocalarım

dün şansımı comboda denedim fakat olmadı

bugün listboxta denedim oldu gibi fakat

listboxta sayfa isimlerini alıyorum çift tıklıyorum sayfaya gidiyorum ama sayfa isimleri numerik olduğundan örnekte göreceksiniz isim olmadan hangi sayfa kime ait bulunmuyor


sayfa 1 a hücresinde eklenen sayfaların sıralı listesi var
sayfa 1 b hücresinde ise sayfaların kime ait olduğu yazılı

iki sütunuda listboxta görüyorum ama vba daki kayıtlı sayfa ismine göre hareket ediyor işin içinde çıkamadım anlıcanız

 

[Levent Menteşoğlu]

Listboxtaki kodu aşağıdaki ile değiştirerek deneyin.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex > 0 Then Sheets("" & ListBox1.Column(0)).Select
End Sub

 

[aydın3838]

sayın levent bey günaydın

kodlar çalışıyor

teşekkürler


kullandığım excel kitabından sayfa siliyorum ve sayfa 1 de kaydı duruyor durması gerekiyor

bu kodlarla silinmis sayfayı tıkladığımda hata veriyor

ben bu hata msj ını şöyle kullanmak istiyorum

ilgili sayfa silinmiş ise hata msjı çıkmasın ve msg box çıksın ilgili sayfa silinmiştir demesi

hata msjı na nasıl müdahale edrim yani teşekkürler

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirin.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
on error goto 10
If ListBox1.ListIndex > 0 Then Sheets("" & ListBox1.Column(0)).Select
exit sub
10 msgbox "Bu sayfa silinmiştir."
End Sub

 

[aydın3838]

sayın levent bey çok teşekkürler

hakkınız ödenmez

 

[raburabu]

Merhaba Levent bey
Öncelikle ilgi ve alakanız için çok teşekkür ederim.
Listboxta seçtiğim sayfaya gidiyorum. sayfaya girdiğinde user formu kapat dediğimde kapanıyor.Ancak sayfada içerisinde herhangi bir değişiklik yapamıyorum.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Sheets(ListBox1.Value).Select
ListBox1.Value = ""
F = ListBox1.ListIndex + 1
Unload Me
End Sub


Şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Bunun sebebini bulmak için dosyanızı eklemelisiniz.

 

[Orion1]

Ben şöyle bir şey tahmin edeyim.
Bir yerde sonsuz do loop döngüsüne girdiniz ve çıkmadınız döngüden, ondan olabilir.

 

[raburabu]

Bunun sebebini bulmak için dosyanızı eklemelisiniz.

Merhaba levent bey dosya ekte gönderdim
şifre 123
listboxtaki isme çift tıklayınca sayfaya gidiyor. User form kapanıyor ancak
sayfada işlem yapamıyorum.
Teşekkür ederim