Judithdoek
Gebruiker
- Lid geworden
- 9 mrt 2021
- Berichten
- 70
Hallo allemaal,
In bijgevoegd Excel bestand staan 2 werkbladen. in 1 werkblad worden gegevens ingevoerd en in het andere werkblad moeten vervolgens de gegevens worden opgeslagen. Het werkt als volgt: 1. Er worden gegevens ingevoerd (het nummer staat er al, want deze wordt automatisch aangemaakt) 2. Wanneer alle gegevens zijn ingevoerd klik je op de command button doorvoeren. 3. In de knop staat een code die er nu voor zorgt dat het nummer op de juiste plek wordt opgeslagen en dat er automatisch een nieuw uniek nummer in beeld komt te staan (zodat er geen dubbele waarden ontstaan). De naam op het invoerbestand in cel D4 moet soms wel worden ingevoerd, maar soms ook niet. Het probleem is dat het met de code die ik nu gebruik niet in de juiste rij wordt opgeslagen in het overzicht.
Heeft iemand de oplossing voor mij?
Alvast bedankt.
In bijgevoegd Excel bestand staan 2 werkbladen. in 1 werkblad worden gegevens ingevoerd en in het andere werkblad moeten vervolgens de gegevens worden opgeslagen. Het werkt als volgt: 1. Er worden gegevens ingevoerd (het nummer staat er al, want deze wordt automatisch aangemaakt) 2. Wanneer alle gegevens zijn ingevoerd klik je op de command button doorvoeren. 3. In de knop staat een code die er nu voor zorgt dat het nummer op de juiste plek wordt opgeslagen en dat er automatisch een nieuw uniek nummer in beeld komt te staan (zodat er geen dubbele waarden ontstaan). De naam op het invoerbestand in cel D4 moet soms wel worden ingevoerd, maar soms ook niet. Het probleem is dat het met de code die ik nu gebruik niet in de juiste rij wordt opgeslagen in het overzicht.
Code:
Option Explicit
Private Sub CommandButton1_Click()
'UNIEK NUMMER
With Sheets("Overzicht afspraken test2")
.Cells(.Rows.Count, "D").End(xlUp).Offset(1).Value = Sheets("Invoerbestand test2").Range("B4").Value
End With
If Range("B4").Value = "" Then Range("B4").Value = 0
Range("B4").Value = Year(Date) & "-" & Format(Int(Right(Range("B4").Value, 4)) + 1, "#0000")
With Sheets("Overzicht afspraken test2")
.Cells(.Rows.Count, "J").End(xlUp).Offset(1).Value = Sheets("Invoerbestand test2").Range("D4").Value
End With
End Sub
Heeft iemand de oplossing voor mij?
Alvast bedankt.