geen foutmelding

[vrouw]

Hallo,

Ik gebruik onderstaande code om een regel te verwijderen. (met dank aan de hulp op dit forum)
Echter als ik nu op een regel sta waar niks te verwijderen is (die dus leeg is) krijg ik een foutmelding en stop de code.

Ik denk dan ook dat de eerste regel fout is.

Sub Regel_wissen()
Application.DisplayAlerts = False
ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants).Delete Shift:=xlUp
End Sub

 

[Roncancio]

Ik denk dan ook dat de eerste regel fout is.

Nee, helaas.
Het is de 2e regel.

Dit volstaat:

Sub Regel_wissen()
ActiveCell.EntireRow.Delete Shift:=xlUp
End Sub

Met vriendelijke groet,


Roncancio

 

[vrouw]

:thumb: Top bedankt,:thumb:

Net zoiets gebruik ik om alle cellen die gevuld zijn te legen maar ook daarbij krijg ik een foutmelding als die cellen al leeg zijn.
Die zal dus ook aangepast moeten worden.
ik heb nu deze:

ActiveCell.SpecialCells(xlCellTypeConstants).Delete Shift:=xlUp

en dacht die aan te passen naar:

ActiveCell.[COLOR="red"]SpecialCells[/COLOR].Delete Shift:=xlUp

maar helaas

 

[Roncancio]

:thumb: Top bedankt,:thumb:

Net zoiets gebruik ik om alle cellen die gevuld zijn te legen maar ook daarbij krijg ik een foutmelding als die cellen al leeg zijn.
Die zal dus ook aangepast moeten worden.
ik heb nu deze:

ActiveCell.SpecialCells(xlCellTypeConstants).Delete Shift:=xlUp

en dacht die aan te passen naar:

ActiveCell.[COLOR="red"]SpecialCells[/COLOR].Delete Shift:=xlUp

maar helaas

Wat je zou kunnen doen is:

On Error Resume Next
ActiveCell.SpecialCells(xlCellTypeConstants).Delete Shift:=xlUp

Met vriendelijke groet,


Roncancio

 

[vrouw]

Wat je zou kunnen doen is:

On Error Resume Next
ActiveCell.SpecialCells(xlCellTypeConstants).Delete Shift:=xlUp

Met vriendelijke groet,
Roncancio

Je bent zo snel en zo TOP, thanks:love: