Dubbelzinnige naam?

[marcel31281]

Ik heb deze formule die de geselecteerde rij automatisch een kleur geeft:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Application.Calculate
End If
End Sub

En ik heb deze code die 2 velden automatisch kopiert naar blad 2:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Columns(3)) Is Nothing Then
  Sheets("OH Rapport Eleganza 3").Range("I6:I7") = Application.Transpose(Target.Resize(, 2))
 End If
End Sub

Wat kan ik doen om deze functies beiden te laten werken, want nu krijg ik de foutmelding dat er een dubbelzinnige naam is gevonden.

Alvast bedankt voor jullie hulp

 

[marcel31281]

Ik heb het zelf al gevonden, toch bedankt

 

[Haije]

Ik heb deze formule die de geselecteerde rij automatisch een kleur geeft:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Application.Calculate
End If
End Sub

Marcel,
kun je uitleggen hoe dit werkt?

 

[marcel31281]

Voor meer informatie over deze functie zie onderstaande website:

https://trumpexcel.com/highlight-active-row-column-excel