range ingevuld ; dan automatisch copieren

[grema]

indien cel A59 is ingevuld wens ik een copie te maken van
range A3:H64
en deze te verplaatsen naar range A67 en volgende.
waarbij de inhoud dient gewist te worden.

gebruik stukje code

    Application.ScreenUpdating = False
    Sheets("Werkbon").Range("A1:H67").Select
    Sheets("Werkbon").Range("A1:H67").Copy
    Sheets("Werkbon").Range("A65:A127").PasteSelcetion

om te copieren en te plakken; ( dit loopt al fout)

nog geen code om inhoud te wissen en opdracht wanneer RANGE A59 :H59
is ingevuld om vanzelf deze code te starten

Weet iemand daar raad op ??

 

[Finch]

In deze lijn code staat ook al een typfout:

 Sheets("Werkbon").Range("A65:A127").PasteSelcetion

PasteSelection moet dat laatste worden.

 

[tilpi]

Hang deze macro aan een knop en hij werkt alleen maar als A59 ingevuld is.

Sub kopieren()
If Sheets("Werkbon").Range("A59") <> "" Then
   Application.ScreenUpdating = False
    Sheets("Werkbon").Range("A3:H67").Cut
    Range("A67").Select
    ActiveSheet.Paste
End If
    Application.ScreenUpdating = True
End Sub

Mvg

Piet

 

[grema]

piet,


allereerst dank voor jou code .

heb je code lichtes aangepast naar wm'n wensen waarbij ik

 Sheets("Werkbon").Range("A3:H67").Cut

vervangen heb door

 [Sheets("Werkbon").Range("A3:H61").Copy/CODE]

maar had nog graag meegegeven dat bij plakken ook de inhoud van een gedeelte 
     zijnde
Range("A72:H1193).ClearContents     moet zijn.  ( dus moet gewist worden.

Kan dit mee in1 opdracht. 
 
Nu If ...
en dan End If 

Wat als je een tweede regelopdracht wil meegeven ???

 

[Wigi]

Zet die regel van tussen de If en de End If, bvb. net boven de End If.

 

[grema]

thx Wigi


zag m'n fout in code
gaf in :

 Range("A72:H1193).ClearContents

moest zijn :

 Range("A72:H119").ClearContents

toch bedankt ( deze kan dicht ; op naar de volgende )



dank aan eenieder die hulp gaf

Wil hierbij Nogmaals m'n dank betuigen aan de ganse groep van HELPENDE mededenkers .


grema