jverstraten
Gebruiker
- Lid geworden
- 31 dec 2009
- Berichten
- 154
Probeer het dan zo eens, ik heb zo weinig mogelijk aan jouw macro gewijzigd:
Code:Sub MacroKopie() ' MacroKopie Macro Range("G13").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("Verl & Ink").Select Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Range("B21").Select Sheets("VBH").Select Application.CutCopyMode = False Range("G8").Select End Sub
Hoi AHulpje:
Heel, heel diepe buiging dit werkt perfect.
Ik had al bijna de moed opgegeven, uiteindelijk was mijn idee met macro de oplossing, maar zonder jouw hulp en aanpassing in de macro was het mij nooit gelukt.
Heel hartelijk dank daarvoor.
mvrg.
Johan