Verwijzing naar ander blad, dmv formule

[Rhugien]

Hallo VBA'ers

Is het mogelijk doormiddel van een waarde in een cel( vb. gegevens welke zijn gevalideert als lijst, Ja/Nee ), deze klikbaar te maken en daar een verwijzing aan te koppelen naar een ander blad? Zonder hyperlink..

Alvast bedankt,
Rens

 

[Roncancio]

In bijgevoegd bestand zit een simpel voorbeeld.
Als je kiest voor Ja danwel Nee in het eerste werkblad, dan wordt het bijbehorende werkblad geselecteerd.

Met vriendelijke groet,


Roncancio

 

[Rhugien]

In bijgevoegd bestand zit een simpel voorbeeld.
Als je kiest voor Ja danwel Nee in het eerste werkblad, dan wordt het bijbehorende werkblad geselecteerd.

Met vriendelijke groet,


Roncancio

Hi Ron,

je weet me ook overal te vinden.

Ik heb hem in mijn huidige VBA verwerkt, alleen werkt dit niet.
Kan je mij een hint geven?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRij As Long
On Error Resume Next
lRij = Worksheets(Range("Q" & Target.Row).Value).Range("p65536").End(xlUp).Row
If lRij < 10 Then lRij = 10
If Chr(64 + Target.Column) = "R" Then
If Worksheets(Range("R" & Target.Row).Value).Range("R" & lRij).Value <> "" Then lRij = lRij + 1
If Chr(64 + Target.Column) = "R" Then
For ikol = 2 To 20
Worksheets(Range("Q" & Target.Row).Value).Cells(lRij, ikol).Value = Worksheets("Nieuwe Update's").Cells(Target.Row, ikol).Value
Next
End If
End If
If Target.Value = "-- Afgehandeld --" Then
Target.EntireRow.Hidden = True
End If
If Target.Value = "" Then
Target.EntireRow.Hidden = False
End If
If Target.Address = "$P$11" And Target.Value = "Ja" Then Worksheets Target = Opmerkingen!).Activate
End If
End Sub

Dank,

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRij As Long
On Error Resume Next
lRij = Worksheets(Range("Q" & Target.Row).Value).Range("p65536").End(xlUp).Row
If lRij < 10 Then lRij = 10
If Chr(64 + Target.Column) = "R" Then
If Worksheets(Range("R" & Target.Row).Value).Range("R" & lRij).Value <> "" Then lRij = lRij + 1
If Chr(64 + Target.Column) = "R" Then
For ikol = 2 To 20
Worksheets(Range("Q" & Target.Row).Value).Cells(lRij, ikol).Value = Worksheets("Nieuwe Update's").Cells(Target.Row, ikol).Value
Next
End If
End If
If Target.Value = "-- Afgehandeld --" Then
Target.EntireRow.Hidden = True
End If
If Target.Value = "" Then
Target.EntireRow.Hidden = False
End If
If Target.Address = "$P$11" And Target.Value = "Ja" Then Worksheets("Opmerkingen").Activate
End If
End Sub

Met vriendelijke groet,


Roncancio