Podgląd danych z innego arkusza

 

Wprowadzając dane do pewnego arkusza musiałem mieć podgląd co znajduje się w komórce o takim samym adresie, ale w innym arkuszu (miał on nazwę 'Dane'). Ponieważ nie znam, żadnej wbudowanej funkcjonalności excela wykonującej to zadanie wykorzystałem okno komunikatu 'sprawdzania poprawności danych' oraz proste makro:

 

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim mysheet As Worksheet
    Dim tekst As String

    Set mysheet = Sheets("Dane") 'tutaj definiujemy z którego arkusza chcemy podglądać dane
    tekst= "Tekst komórki " & mysheet.Name & "!" & Target.Address & ": ''" 'tutaj definiujemy

    'dodatkowy tekst jaki pojawi się w komunikacie
    tekst = tekst & mysheet.Range(Target.Address).Text & "''"

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop
        .InputMessage = tekst
    End With

End Sub

 

Kod makra wstawiamy oczywiście w tym arkuszu, w którym chcemy uzyskać efekt.

 

W praktyce wygląda to tak: