Ik gebruik de volgende code om gegevens te verplaatsen naar een lijst dit werkt goed.
Alleen zou ik nog 1 functie er bij willen en dat is als de waarde <> Sheets("invoerblad").Range("C6")<> gelijk is aan de waarde in de lijst kolom B
dan moet hij deze overschrijven. Zo niet mag hij gewoon zijn werk blijven doen. De Code kan wat rommelig en lang lijken maar de cellen kunnen nog meer worden of veranderen en zo kan ik ze zelf makkelijk contoleren.
Alleen zou ik nog 1 functie er bij willen en dat is als de waarde <> Sheets("invoerblad").Range("C6")<> gelijk is aan de waarde in de lijst kolom B
dan moet hij deze overschrijven. Zo niet mag hij gewoon zijn werk blijven doen. De Code kan wat rommelig en lang lijken maar de cellen kunnen nog meer worden of veranderen en zo kan ik ze zelf makkelijk contoleren.
Code:
Public Sub VerwerkenKlasse1()
With Sheets("lijst")
lRegel = Application.WorksheetFunction.CountA(.Range("B:B"))
.Range("B1").Offset(lRegel, 0) = Sheets("invoerblad").Range("C6")
.Range("B1").Offset(lRegel, 1) = Sheets("invoerblad").Range("E6")
.Range("B1").Offset(lRegel, 2) = Sheets("invoerblad").Range("G6")
.Range("B1").Offset(lRegel, 3) = Sheets("invoerblad").Range("I6")
.Range("B1").Offset(lRegel, 4) = Sheets("invoerblad").Range("K6")
.Range("B1").Offset(lRegel, 5) = Sheets("invoerblad").Range("M6")
.Range("B1").Offset(lRegel, 6) = Sheets("klasse1").Range("D2")
.Range("B1").Offset(lRegel, 7) = Sheets("klasse1").Range("F2")
End With
MsgBox "Gegevens opgeslagen.", vbInformation, "Klaar"
Sheets("invoerblad").Range("C15").Value = Sheets("invoerblad").Range("C6")
Sheets("invoerblad").Range("C6,E6,G6,I6,K6,M6").ClearContents
Sheets("klasse1").Range("D8,F8").ClearContents
End Sub
