Temat: Link aktywny po spełnieniu warunku

Witam wszystkich
Mam taki problem. Mam cztery arkusze. W pierwszym mam do uzupełnienia tabelę. Pod tabelą jest link do ukrytego kolejnego arkusza. Chciałbym aby ten link stał się aktyny dopiero wtedy gdy w danej komórce pojawi się oczekiwana wartość. Ewentualnie link może być ukryty, dopiero gdy w komórce pojawi się oczekiwana wartość, link się pojawia.

Temat: Link aktywny po spełnieniu warunku

W załączeniu propozycja:
https://www.dropbox.com/s/9ri9hwcnd27ui6r/Link%20gdy%20...

Nie napisałeś co ma się stać po naciśnięciu na tego linka? U mnie gdy wpisze się w zielone pole KOD wtedy po naciśnięciu makra odkrywa się ukryty arkusz.

W razie dalszych pomysłów, modyfikacji itp. proszę pisać.

Pozdrawiam
Sławomir

Temat: Link aktywny po spełnieniu warunku

Dzięki za pomoc, ale mimo włączonych makr coś nie działa.
Po naciśnięciu linka chcę przejść do kolejnego arkusza.
Czyli np w komórce C3 uzytkownik wprowadza poprzez formułę liczbę np 20, wówczas poniżej pojawia się lub staje się aktywny link do ukrytego arkusza.

Temat: Link aktywny po spełnieniu warunku

A1 = wartość oczekiwaną (pokazuje link) lub inna (brak linku)
A2 =: =IF(A1="A",HYPERLINK("#Sheet2!A1","dwa"),"")
w tym przypadku jeżeli w A1 pojawi się litera A to w A2 pojawi się link który po kliknięciu przeniesie cię do Arkusza 2
cała reszta to odpowiednie zaadaptowanie powyższego do swoich warunków.

edit:
jeżeli chcesz linkować wiecej arkuszy w tej samej komórce to użyj zagnieżdżonego IF() albo wykorzystaj funkję CHOOSE(). Mozliwości jest dużo :)))

ups. zapomniałem, że arkusz jest HIDDEN :) ale można przypisać vba do zdarzenia jak w kodzie kol. Sławka
albo dopasuj do swoich wymagań

Private Sub worksheet_change(ByVal target As Excel.Range)

    Select Case Worksheets("Sheet1").Range("A1").Value

    Case "A"

        Worksheets("Sheet2").Visible = True

        Worksheets("Sheet3").Visible = False

        Worksheets("Sheet4").Visible = False

    Case "B"

        Worksheets("Sheet3").Visible = True

        Worksheets("Sheet2").Visible = False

        Worksheets("Sheet4").Visible = False

    Case "C"

        Worksheets("Sheet4").Visible = True

        Worksheets("Sheet2").Visible = False

        Worksheets("Sheet3").Visible = False

    End Select

End Sub

generalnie:
1. po wpisaniu litery A w komórce A1 pojawi się arkusz 2 (tutaj Sheet2) oraz w A2 arkusza 1 pojawi się link do arkusza 2 po kliknięciu którego zostaniesz przeniesiony do arkusza 2.
2. w sumie trzy przypadki dla czterech arkuszy.
3. wiecej pisania opisu niz zrobienia tego :)
--------------------
Nazwy funkcji i sposób zapisu formuły zmienić na odpowiedni dla Twojej wersji językowej Excela oraz ustawień regionalnych. Również zmienić odpowiednio nazwy w VBA na użyte w twojej wersji Excela.Ten post został edytowany przez Autora dnia 08.09.15 o godzinie 23:12