code aanpassen ????
de code heb ik hier gekregen maar weet niet meer waar en van wie
hoe aan te passen dat ik een bevestiging krijg door op ( een oke knop te drukken ) dat het ook gekopieerd is
nu gaat het nog wel eens fout dat men de knop niet goed indrukt
wie kan me daar bij helpen
Sub kopygegevens()
Dim lr As Integer
lr = Sheets("berekeningen").Range("a" & Rows.Count).End(xlUp).Row + 1
Sheets("urenstaat").Range("a1:aj1").Copy
With Sheets("berekeningen")
.Range("a" & lr).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End Sub
de code heb ik hier gekregen maar weet niet meer waar en van wie
hoe aan te passen dat ik een bevestiging krijg door op ( een oke knop te drukken ) dat het ook gekopieerd is
nu gaat het nog wel eens fout dat men de knop niet goed indrukt
wie kan me daar bij helpen
Sub kopygegevens()
Dim lr As Integer
lr = Sheets("berekeningen").Range("a" & Rows.Count).End(xlUp).Row + 1
Sheets("urenstaat").Range("a1:aj1").Copy
With Sheets("berekeningen")
.Range("a" & lr).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End Sub