Vervolg op hyperlinken naar 1 cel

[Roncancio]

De code wordt steeds gestart omdat je de code bij Private Sub Worksheet_SelectionChange(ByVal Target As Range) heeft gezet.
Het is waarschijnlijk beter om de code bij Private Sub Worksheet_Change(ByVal Target As Range) te plaatsen, omdat dan de code start als er iets gewijzigd wordt.

Daar verandert een ELSEIF of SELECT CASE niets aan.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Nu word ik gek,
nu werkt er niets meer zoals het hoort

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Hyperlinks.Count > 0 And Chr(64 + Target.Column) = "F" Then
    Range("V5").Value = Target.Value
ElseIf Target.Hyperlinks.Count > 0 And Chr(64 + Target.Column) = "V" Then
    Range("AH5").Value = Target.Value
End If

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = "BI" Then 
    Range("BY5").Value = Target.Value
End If


End Sub

ik ben al 3 dagen bezig om dit voor elkaar te krijgen en er werkt nog niets:evil::evil::evil::evil::evil::evil:

 

[Roncancio]

En als je nu eens alles onder de Worksheet_Change zet?

Bijvoorbeeld (inclusief Select Case en Case)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Hyperlinks.Count > 0 Then
    Select Case Target.Column
        Case 6
            Range("V5").Value = Target.Value
        Case 61
            Range("BY5").Value = Target.Value
        Case 71
            Range("CE5").Value = Target.Value
    End Select
End If

End Sub

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Hyperlinks.Count > 0 Then
    Select Case Target.Column
        Case 6
            Range("V5").Value = Target.Value
        Case 61
            Range("BY5").Value = Target.Value
        Case 71
            Range("CE5").Value = Target.Value
    End Select
End If

End Sub

Vertaal die code eens dan begrijp misschien wat ie doet.

Met vr gr
Jack

 

[Roncancio]

Vertaal die code eens dan begrijp misschien wat ie doet.

Met vr gr
Jack

Zodra er iets wordt gewijzigd, kijkt de macro of er een hyperlink in de betreffende cel staat.
Is dat niet het geval dan stopt de macro.
Is dat wel het geval dan gaat de macro kijken in welke kolom de wijziging heeft plaatsgevonden.
Is dat in kolom 6 (F dus) dan krijgt cel V5 de waarde van de huidige cel.
Is dat in kolom 61 dan krijgt cel BY5 de waarde van de huidige cel.
Is dat in kolom 71 dan krijgt cel CE5 de waarde van de huidige cel.

Het programma werkte toch?
Of mis ik iets?

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Het programma werkte toch?
Of mis ik iets?

Vanochtend wel maar nu niet meer

Ik krijg je code niet aan de praat. De hyperlink wordt wel gevolgd maar de tekst wordt niet meegenomen.
Ik heb het bestandje meegestuurd!

Met vr gr
Jack

 

[Roncancio]

En zo?

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

En zo?

Bedankt dat je me zover geholpen hebt :thumb:, ik loop het morgen nog eens grondig na.
Een goede nachtrust zal me goed doen

Met vr gr

Jack