Diğer çalışma kitabından bilgi alma

[tamer42]

Merhaba,
İki adet açık çalışma kitabı olsun, Kitap1 ve Kitap2
Kodların olduğu bir çalışma kitabı ("Kitap1.xlsm")
Birde verilerin olduğu ("Kitap2.xlsx")

Aşağıdaki kod ile; kodu çalıştırdıktan sonra diğer açık dosyaya gidip oradan Mouse ile bir hücreyi seçtikten, sonra seçilen hücrenin sadece adresini veriyor,

ilave olarak seçilen hücrenin bulunduğu "dosya adı" ve "sayfa adı" bilgilerini nasıl alabiliriz?

Sub SelectAnotherWB()

Dim rng As Range

    On Error Resume Next
    Set rng = Application.InputBox("Message", "Title", "Please select range", , , , , 8)
    
    MsgBox rng.Address
    
End Sub

ilginize şimdiden teşekkürler,
iyi akşamlar.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub SelectAnotherWB()
    Dim Rng As Range

    On Error Resume Next
    Set Rng = Application.InputBox("Message", "Title", "Please select range", , , , , 8)
    On Error GoTo 0
    
    If Not Rng Is Nothing Then
        MsgBox Rng.Address & vbCrLf & _
               Rng.Parent.Name & vbCrLf & _
               Rng.Parent.Parent.Name
    End If
End Sub

 

[tamer42]

Deneyiniz.

Option Explicit

Sub SelectAnotherWB()
    Dim Rng As Range

    On Error Resume Next
    Set Rng = Application.InputBox("Message", "Title", "Please select range", , , , , 8)
    On Error GoTo 0
   
    If Not Rng Is Nothing Then
        MsgBox Rng.Address & vbCrLf & _
               Rng.Parent.Name & vbCrLf & _
               Rng.Parent.Parent.Name
    End If
End Sub

Çok teşekkürler Korhan Hocam