code aanpassen

Status
Niet open voor verdere reacties.

lsc.b

Gebruiker
Lid geworden
4 nov 2000
Berichten
187
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
 
men drukt dus soms niet op een knop ... die er nog niet is.............. raar toch?
 
Doe het eens zo:
Code:
Sub kopygegevens()
    Dim lr As Long
    With Sheets("berekeningen")
        lr = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A" & lr & ":L" & lr) = Range("A1:AL1").Value
    End With
    MsgBox "Gereed"
End Sub
 
Laatst bewerkt:
of

Code:
Sub VenA()
  Sheets("berekeningen").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 36) = Range("A1:AJ1").Value
End Sub
 
Mooie :)
Wel even de MsgBox erbij, want daar werd om gevraagd.
 
De MsgBox voegt niets toe. Je kan dan beter de regel leegmaken of een andere controle inbouwen om het dubbel kopiëren te voorkomen.

Bv
Code:
Sub VenA()
  If [A1] <> "" Then
    Sheets("berekeningen").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 36) = Range("A1:AJ1").Value
    [A1] = ""
   Else
    MsgBox "Niet compleet"
  End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan