Complete rij verwijder bij celselectie

[tomaz]

Goedemorgen,

Ik heb een macro opgenomen voor het verwijderen van rijen in een werkblad.

Echter de opname is gebaseerd op een specifieke cel en ik zou willen dat deze gaat gelden bij het selecteren van een bepaalde cel (active cel of zoiets) in een kolom.

Onderstaand staat de macro :

Sub Rijverwijderen()
'
' Rijverwijderen Macro
'

'
Rows("492:492").Select
Selection.Delete Shift:=xlUp
Range("E492").Select
End Sub

 

[madmuppet]

Eerlijk toegegeven: ik heb niet zoveel kaas gegeten van macro's maken, en meestal pas ik gewoon "trial and error" toe, maar ik zie al dat dit niet werkt natuurlijk. Je verwijst met Range("E492").Select naar een specifieke cel, terwijl je een hele rij wilt verwijderen.
Maak daarvan het volgende:



Sub Rijverwijderen()
'
' Rijverwijderen Macro
'

'
Rows("492:492").Select
Selection.Delete Shift:=xlUp
Range("492:492").Select
End Sub

Hoe je dit moet inbouwen voor bij het selecteren van een bepaalde cel...? Ik ben zelf eigenlijk meer gecharmeerd van commandbuttons. Celselectie is ook een beetje risicovol, omdat je daarmee nietsvermoedend onbedoelde acties zou kunnen uitvoeren. Commandbuttons moet je opzettelijk indrukken.

 

[HSV]

Alleen als je een cel selecteerd in kolom 5 ("E") , verwijderd het de gehele rij.

Sub Rijverwijderen()
  With ActiveCell
    If .Column = 5 Then
     .EntireRow.Delete
    End If
  End With
End Sub