VBA vraagje, data naar ander excel bestand

[Petoi]

Vraagje voor de VBA experts

Ik gebruik de volgende code, echter voegt de VBA de data wel in het andere bestand maar niet op een nieuwe regel, deze wordt overschreven, iemand enig idee om dit op te lossen:

Sub Opvolgen()
Dim Klantnaam As String
Dim Straatnaam As String
Dim Postcode As String
Dim Woonplaats As String
Dim Telefoonnummer As String
Dim Emailadres As String
Dim Offerte As String
Dim Datum As String
Dim Opvolgen As Workbook

Worksheets("Algemene gegevens").Select
Klantnaam = Range("D10")
Straatnaam = Range("D11")
Postcode = Range("D12")
Woonplaats = Range("D13")
Telefoonnummer = Range("D14")
Emailadres = Range("D15")
Offerte = Range("K24")
Datum = Range("K15")


Set Opvolgen = Workbooks.Open("S:\Offertes\Offertes 2019\Offertemodule\Offerte opvolgen.xlsx")
Worksheets("Opvolgen").Select
Worksheets("Opvolgen").Range("C5").Select
RowCount = Worksheets("Opvolgen").Range("C5").CurrentRegion.Rows.Count
With Worksheets("Opvolgen").Range("C5")
.Offset(RowCount, 0) = Klantnaam
.Offset(RowCount, 1) = Straatnaam
.Offset(RowCount, 2) = Postcode
.Offset(RowCount, 3) = Woonplaats
.Offset(RowCount, 4) = Telefoonnummer
.Offset(RowCount, 5) = Emailadres
.Offset(RowCount, 6) = Offerte
.Offset(RowCount, 7) = Datum
End With
End Sub


Alvast bedankt

 

[SjonR]

en zo?

RowCount = Worksheets("Opvolgen").Range("C" & Rows.Count).End(xlUp).Row + 1

 

[Petoi]

Het werkt al iets beter, maar op de een of andere manier slaat hij steeds 5 regels over...

 

[SjonR]

en deze aanpassing?

With Worksheets("Opvolgen")
 .Cells(RowCount, 3) = Klantnaam
 .Cells(RowCount, 4) = Straatnaam
 .Cells(RowCount, 5) = Postcode
 .Cells(RowCount, 6) = Woonplaats
 .Cells(RowCount, 7) = Telefoonnummer
 .Cells(RowCount, 8) = Emailadres
 .Cells(RowCount, 9) = Offerte
 .Cells(RowCount, 10) = Datum
End With

 

[snb]

@Petoi

Zet svp de VBA-code in https://www.helpmij.nl/forum/showth...xcel-bestand?p=6161876&viewfull=1#post6161876 tussen code tags.
Zie ookhttps://www.helpmij.nl/forum/announcement.php?f=5

 

[snb]

@Sjon

wist je toch al ?

sheets("Opvolgen").Cells(RowCount, 3),resize(,8) = array(Klantnaam,Straatnaam,Postcode,Woonplaats,Telefoonnummer,Emailadres,Offerte,Datum)

 

[SjonR]

ja