hücre bilgilerini açıklamada gösterme

[sirkülasyon]

Arkadaşlar
Ramazan Bayramınız Mübarek Olsun.
Sayfa1'de çerçeve içine alınmış bilgileri Sayfa2'de sarı renkli hücreye tıklayınca Listbox şeklinde açıklama olarak görünmesi için yardım edebilir misiniz...
.

 

[Necdet]

Merhaba,

Biraz değişik oldu, bir inceleyiniz. Resim olarak adlandırdığım şekli excel Kamera ile oluşturdum.

Aşağıdaki kodları Sayfa2 nin kod bölümüne kopyalayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [F5,K5,O5]) Is Nothing Then
        ActiveSheet.Shapes("Resim").Visible = False
    Else
        Dim i   As Integer
        Dim j   As Integer
        Dim Adr As String
 
        If Target.Column = 6 Then
            j = 2
        ElseIf Target.Column = 11 Then
            j = 5
        Else
            j = 8
        End If
 
        i = Sheets("Sayfa1").Cells(Rows.Count, j).End(3).Row
 
        Adr = Range(Cells(3, j), Cells(i, j + 1)).Address
 
        With ActiveSheet.Shapes("Resim")
            .Top = Target.Offset(2, -5).Top
            .Left = Target.Offset(2, -5).Left
            .Visible = True
            .Select
            Selection.Formula = "Sayfa1!" & Adr
        End With
    End If
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Alternatif: Tablo yazılı hücrelere çift tıklayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("f5,k5,o5")) Is Nothing Then Exit Sub
UserForm1.Show
End Sub

Private Sub UserForm_Activate()
For sut = 1 To 10
    If ActiveCell = Sayfa1.Cells(2, sut) Then
        Sayfa1.Activate
        Sayfa1.Cells(2, sut).Activate
    End If
Next
deg1 = ActiveCell.Offset(2, 0).Address
deg2 = ActiveCell.Offset(21, 1).Address
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "150;10"
ListBox1.RowSource = deg1 & ":" & deg2
Sayfa2.Activate
End Sub

 

[sirkülasyon]

Necdet abi, Ziya Abi hakkınızı helal edin. Teşekkür ederim abilerime.
Ziya abiminki 2003 olarak açtım. Ancak Necdet abimin yaptığını açamıyorum.Necdet abi 2003 olarak yükleyebilirmisin

 

[Necdet]

Merhaba,

Dosyayı ilk mesajımda 2003 formatında ekledim.