Hej och tack för snabbt svar!
Min VBA är begränsad men jag tolkar din kod som att du i en variabel sparar och sedan klistrar in i ny markering. Kanske var jag otydlig, ska försöka förtydliga.
I mallen i blad2 markerar jag ett antal poster med en etta, dvs de som skall flyttas till databasen blad1. Samtidigt som ettan fylls i i fält/kolumn A så hämtas till B en timestamp med NU() och C med ett artikelnummer (som användaren fyllt i C2). När jag har är klar och fyllt i ettor så låter jag makrot filtrera på 1 i A, kopiera de filtrerade posterna och klistra in i databasen i blad1. Så långt allt ok.
Sedan vill jag gå tillbaka till blad2 och tömma mallen i kolumner A, B och C så att den är klar för ifyllnad av nästa artikel. Jag behöver alltså markera dessa kolumner från rad 4 (rubrikerna är på rad 3) och deleta innehållet. Dvs ej klistra in nytt innehåll.
Koden jag har gjort hittills är nedan. Det mesta skapat genom inspelning makro.
Mycket tacksam för hjälp, du får säga stopp om det blir too much inga problem.
Sub test2()
'
' test2 Makro
'
Sheets("opdb").Select
ActiveSheet.ListObjects("opdb").Range.AutoFilter Field:=2, Criteria1:="1"
Range("opdbcc").Select
Range("C7").Activate
Selection.Copy
Sheets("combo").Select
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Sheets("opdb").Select
Application.CutCopyMode = False
Range("C5").Select
ActiveSheet.ListObjects("opdb").Range.AutoFilter Field:=2
End Sub