macro delete

[nobody11]

Sub wissen()
upperleft = Range("C4").Value
'determine upper left cell
 Range(upperleft, Selection.End(xlToRight)).Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Delete
End Sub

hoe kan ik deze macro verkorten? in C4 staat een verwijzing nr een cel.. dus bv J5..


bedankt!!

 

[Roncancio]

Bedoel je het zo?

Sub wissen()

Range(Range("C4").Value).SpecialCells(xlLastCell).ClearContents
End Sub

Met vriendelijke groet,


Roncancio

 

[nobody11]

Bedoel je het zo?

Sub wissen()

Range(Range("C4").Value).SpecialCells(xlLastCell).ClearContents
End Sub

Met vriendelijke groet,


Roncancio

neen, in de range C4 staat enkel de linkerbovencel.. dus niet een volledige range , zie bijlage

alvast bedankt!!

 

[Roncancio]

neen, in de range C4 staat enkel de linkerbovencel.. dus niet een volledige range , zie bijlage

alvast bedankt!!

De code verwijdert de laatste cel; niet het gehele bereik.

Met vriendelijke groet,


Roncancio

 

[nobody11]

De code verwijdert de laatste cel; niet het gehele bereik.

Met vriendelijke groet,


Roncancio

ik zou de volledige range willen wissen. mijn code vanboven doet dat, maar vroeg me af of die korter kon?

 

[Roncancio]

ik zou de volledige range willen wissen. mijn code vanboven doet dat, maar vroeg me af of die korter kon?

Het zou zo kunnen:

Sub Macro1()

    Range(Range("C4").Value, Cells().SpecialCells(xlLastCell)).ClearContents
End Sub

Met vriendelijke groet,


Roncancio

 

[nobody11]

Het zou zo kunnen:

Sub Macro1()

    Range(Range("C4").Value, Cells().SpecialCells(xlLastCell)).ClearContents
End Sub

Met vriendelijke groet,


Roncancio

super!! zo leer ik weer wat bij! bedankt!!