Regel Copieren

[W Bloemendal]

Hallo

Is het mogelijk om als ik een regel geselecteerd heb die verplaatst moet worden met een macro, om eerst de macro te laten kijken of de cel(regel) beveiligd is.want dan mag de regel niet verplaatst worden

dit is de macro gedeeltelijk
copieren
Selection.Copy
Application.Goto Reference:="machineA1"
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
Sheets("UITGEGEVEN").Select
Selection.Delete Shift:=xlUp

er wordt eerst gezocht waar het heen moet dan gecopieerd en daarna het oorspronkelijke gewist en regel verwijderd

wim

 

[LucB]

Wim,

Om eens te proberen.

Selection.Copy
Application.Goto Reference:="machineA1"
Do Until ActiveCell.Value = "" And ActiveCell.Locked = False
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
Sheets("UITGEGEVEN").Select
Selection.Delete Shift:=xlUp

Het gaat om deze tovoeging
And ActiveCell.Locked = False

 

[W Bloemendal]

Lucb bedankt

maar kan ik het ook met

If ActiveCell.Locked = treu then msgbox "foute selectie"

er moet een regel geselecteerd zijn (daar heb ik al een controle voor maar dan moet er nog gecontroleerd worden of de eerste cel geblokkeerd is


Wim

 

[LucB]

Wim,

Een voorbeeld.

 

[W Bloemendal]

het is de bedoeling dat er een bepaalde regel geselecteerd word, dan moet er gekeken worden of van de regel cel a geblokkerd is zoja niet copieren en anders wel


wim

 

[LucB]

Wim,

Nog een voorbeeld.