Kopieren

[Naus]

Via een macro wil ik een cel met een getal knippen en deze dan in een volgend blad te plakken. Elke keer dat ik een getal wil plakken, moet deze een cel lager geplaatst worden.

Het is prima gelukt, alleen een cel lager geeft steeds problemen.

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("B2").Select
    Selection.Cut
    Sheets("blad2").Select
    Range("A3").Select
    Selection.End(xlDown).Select
    Range("A8").Select
    ActiveSheet.Paste
End Sub

 

[CorVerm]

En zo?

Range("A65536").End(XlUp).Offset(1,0).Select

 

[Ginger]

Naus, Ik vind 't perfect dat je zelf al aan 't opnemen bent geweest! Zo leer je 't meeste!:thumb: ('k spreek uit ervaring)
Het nadeel van de macrorecorder is dat ie altijd naar dezelfde 'bron- en doelcel' blijft kijken. Door gebruik te maken van de 'activecell' 'week' je je broncel los, en kan je iedere willekeurige gebruiken. Vervolgens staan er ook altijd nog wat 'select' in zo'n opname... Je kan het hele codeblokje van je samenvatten in:

Sub KnipEnPlak()

    ActiveCell.Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1)

End Sub

...waarbij je het 'Sheet2' nog ff moet vervangen in de naam van de sheet waar je in kolom A de kopie wilt hebben.

Groet, Leo

 

[Naus]

Het is me gelukt.
Zie hieronder.


Range("H3").Select
Selection.Cut
Sheets("Hans").Select
Range("A2").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Voorraad Folie").Select
Range("J5").Select
End Sub

Zoals je ziet komt select nogal voor.
kun je me vertellen waardoor ik dit kan vervangen en waarom Select niet goed zou zijn voor de formule.

Alvast bedankt voor de snelle reactie.:thumb:

 

[Wigi]

Dit is al voldoende:

    Range("H3").Cut Sheets("Hans").Range("A2").End(xlDown).Offset(1)
    Application.Goto Sheets("Voorraad Folie").Range("J5")

In het vervolg graag je code tussen code tags zetten aub, dan komt het in een apart venster zoals hier.

Wigi

 

[Ron321]

Het nadeel van de macrorecorder is dat ie altijd naar dezelfde 'bron- en doelcel' blijft kijken.

Daarvoor dient het rechter knopje op je macro-recorder.