Listview'de menu sag tiklama problemi

[lapot]

Merhaba arakadaslar

Merhaba
Arkadaslar ekdeki dosyada otamatik olarak acilan UserForm'daki lisview penceresinde listenenen faturalara sag tiklama ile menu acmayi basardim fakat sectigim faturaya sag tiklamayla acilan menuden islem yaptiramiyorum.Ornegin menudeki "WordView" secenegine tiklandimi Run-Time error, Object required hatasi verip "Set fnd = Range("B:B").Find(TextBox5.Value, LookAt:=xlWhole)" sirasini isaretliyor.Ama bu islemi UserForm'daki "Word Wiew" dugmesiyle yaptirabiliyorum, ayni kodlari kullanmama ragmen menude neden calismiyor? Menu ile Buton arasinda isletme farkimi var?

Yardim lariniz icin simdiden tesekkurler.

Excel sayfasini acmak icin UserFormdaki Excel dugmesine tiklayin ve oradanda modullere gecebilirsiniz. Bu konuya ait modulun ismi "Menu" dur.

Saygilar sunuyorum

 

[lapot]

Bu konuda goruşu olan arkadaşlar yok mu ?

Saygılar

 

[Muzaffer Ali]

Eklediğiniz zip dosya içi boş görünüyor.

 

[lapot]

Tekrar ekledim dosyayi

 

[Muzaffer Ali]

Kod bir Modul içerisinde olduğundan form üzerindeki bir nesneye başvuru yapıldığında hangi formda olduğu da belirtilmelidir.

Menu Modulundeki WordView prosedurunu silin aşağıdaki kodları kopyalayın.

Private Sub WordView()
    Sheets("invoice").Select
    Dim fnd As Range
    With Range("B:B")
        .NumberFormat = "0"
        .Value = .Value
    End With
    Set fnd = Range("B:B").Find([COLOR="Red"]UserForm1.[/COLOR]TextBox5.Value, LookAt:=xlWhole)
    If Not fnd Is Nothing Then
         ThisWorkbook.FollowHyperlink (fnd.Offset(, 3).Value)
    Else
        MsgBox "Number not found!"
    End If
End Sub

 

[lapot]

Cok tesekkurler, harikasiniz. En sonunda calisti. gercekten iyiki varsiniz.
Saygilarimi sunuyorum