Vb gegevens kopieren naar eerste lege cel

[jimkearney51]

Ok hier gaat ie dan,mijn eerste ervaring met VBA.
Ik ben even bezig een excel bestand op te zetten voor het registreren van meer/minderwerk.In dit bestand heb ik meerdere werkbladen.Vanuit een blad wil ik gegevens kopieren naar een ander blad om deze cumulatief te verzamelen.Elke keer als ik de gegevens kopieer worden de oude gegevens overschreven en dat is niet de bedoeling.
Via VB moet de gegevens gekopieerd worden naar de eerste lege cel in kolom A..
Kan iemand mij daarbij helpen?:thumb:

 

[snb]

Kijk eens hier

 

[jimkearney51]

Hello SNB, Bedankt voor je info,volgens mij moet ik 2.2 hebben uit het voorbeeld maar de syntax voor het invullen ken ik niet!kun je mij daarmee helpen.

 

[Wigi]

Bvb.

Sheets(1).Range("B" & Rows.Count).End(xlUp).Offset(1).Value = "bla bla bla"

 

[jimkearney51]

Hoi Wim , ik voerde net jouw voorstel in maar de macro loopt vast:

Range("E32:I32").Select
    Selection.Copy
    Sheets("Calc.overzicht").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = "Leeg"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("calculatie").Select
    Range("D1").Select
    
End Sub

Zo heb ik deze opgesteld,er is vanuit het blad "Calculatie" gekopieerd naar "Calc.overzicht"
Wat mankeert eraan???

 

[snb]

Je wil een gebied (Range) kopiëren naar een ander gebied.
Dat doe je door ervoor te zorgen dat de plaats waarnaar gekopieerd moet worden ook in VBA als gebeid wordt aangeduid.

En..... vermijd in VBA select en activate.

Sub kopie()
  Sheets("calculatie").Range("E32:I32").Copy Sheets("Calc.overzicht").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

of

Sub kopie()
  [calculatie!E32:I32].Copy [Calc.overzicht!A65536].End(xlUp).Offset(1)
End Sub

 

[jimkearney51]

Kopieren blad naar blad

Dit werkt niet voor mij Wim,programma komt steeds met "End sub"wordt verwacht

Sub Gegevens_kopieren()
'
' Gegevens_kopieren Macro
' De macro is opgenomen op 22-3-2009 door Jim .
'
'
Sub kopie()
  Sheets("calculatie").Range("E32:I32").Copy Sheets("Calc.overzicht").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

 

[Hoornvan]

Haal de rode regel er eens uit, je zal zien dat hij de melding niet weer geeft.

Sub Gegevens_kopieren()
'
' Gegevens_kopieren Macro
' De macro is opgenomen op 22-3-2009 door Jim .
'
'
[COLOR="Red"][B]Sub kopie()[/B][/COLOR]
Sheets("calculatie").Range("E32:I32").Copy Sheets("Calc.overzicht").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

 

[jimkearney51]

Werkt nog niet,geeft bij alle cellen #VERW aan, misschien wil iemand het bestand even nakijken..

 

[Wigi]

Jij kopieert formules, dus dat gaat niet goed komen zo.$

Je kan bvb. plakken als waarden:

  Sheets("calculatie").Range("E32:I32").Copy
  Sheets("Calc.overzicht").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues

Wigi

 

[jimkearney51]

Kopieren blad naar blad

Jongens vriendelijk bedankt! Het probleem is opgelost.