Macro laten werken indien rij 15 of meer wordt geselecteerd

[Jap3600]

Beste,

Ik heb onderstaande macro welke maar niet wil werken. (Heb al meerdere varianten geprobeerd).
Wat ik wil bereiken is het volgenden. Indien de macro dmv een knop wordt geactiveerd moet deze kijken dat de actieve rij 15 of meer moet zijn.
Indien dit het geval is moet macro_2 gaan werken, anders niets.

Sub Macro_1 ()
Dim TargetRowNumber  As Integer

If Target.Row >= 14 Then
Application.Run "Macro_2"
End If
End Sub

 

[edmoor]

Je hebt het object Target niet en het is geen Worksheet Event routine. Doe het eens zo achter het betreffende werkblad:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row > 14 Then
        MsgBox "regel: " & Target.Row
    End If
End Sub

En bij activeren door een knop:

Sub Macro_1()
    If ActiveCell.Row > 14 Then
        Application.Run "Macro_2"
    End If
End Sub

 

[Jap3600]

Beste edmoor,

Dank voor je snelle en goede oplossing. Hier was ik naar op zoek.
Helemaal TOP... :thumb: