VBA code aanpassen voor data weg te schrijven

[Gielleke25]

Hallo iedereen,

Kan iemand mij helpen aub?

Ik heb een VBA code die ik gebruik enige tijd goed gebruik, enkel heb ik opgemerkt na enkele maanden dat deze wegschrijft naar cellen die nog geen opmaak bevatten of test bevatten (enkel lege cellen alleen)
Ik zou echter mij data willen wegschrijven vanaf cel A5 en dat hij geen rekening houd met opmaak van de cellen (randen, kleur,...) dus verplicht A5, A6, A7, enz...


Private Sub Factuurinboeken_Click()
Dim nwRegel As Integer


If ActiveSheet.Range("W5") <> "" Then
nwRegel = Sheets("Overzicht facturen").UsedRange.Rows.Count + _
Sheets("Overzicht facturen").UsedRange.Row


With Sheets("Overzicht facturen")
.Range("A" & nwRegel).Value = ActiveSheet.Range("W5")
.Range("B" & nwRegel).Value = DateValue(ActiveSheet.Range("W6"))
.Range("C" & nwRegel).Value = ActiveSheet.Range("W7")
.Range("D" & nwRegel).Value = ActiveSheet.Range("W8")
.Range("E" & nwRegel).Value = ActiveSheet.Range("W9")
.Range("F" & nwRegel).Value = ActiveSheet.Range("W10")
.Range("G" & nwRegel).Value = ActiveSheet.Range("W11")
.Range("H" & nwRegel).Value = ActiveSheet.Range("W12")
.Range("I" & nwRegel).Value = ActiveSheet.Range("W13")
.Range("J" & nwRegel).Value = ActiveSheet.Range("W14")
.Range("K" & nwRegel).Value = ActiveSheet.Range("W15")
.Range("L" & nwRegel).Value = ActiveSheet.Range("W16")

End With

Alvast bedankt! voor jullie hulp

 

[edmoor]

De code die je plaatste kijkt helemaal nergens naar en plaatst alleen waarden.
Dus wat bedoel je precies?

Als het verplicht naar verplicht A5, A6, A7 enz. moet hoef je uiteraard die nwRegel variabele niet te gebruiken.

Daarnaast mist er een End If en een End Sub.

 

[Gielleke25]

Hallo,

Zou er eventueel iemand voor mij een aanpassing kunnen doen aub?
Zelf ben ik niet zo goed op de hoogte van alle VBA coderingen, ik gebruik voornamelijk de sheet...

De code zou dus de data moeten weg schrijven naar de sheet (overzicht facturen) en beginnen vanaf de eerste regel:
data 1 = A5 - B5 - C5 - D5 - E5 ...
data 2 = A6 - B6 - C6 - D6 - E6 ....
data 3 = A7 - B7 - C7 - D7 - E7 ...
enz...

Alvast hartelijk bedankt!

 

[edmoor]

En wat is data 1, data 2, data 3 enz?
Plaats een voorbeeld documentje.

 

[Gielleke25]

Beste,

Bedankt voor u reactie,
in bijlage het betreffende document, het uitzicht ziet er wat raar uit maar heb enkele persoonlijke zaken moeten verwijderen omwille van klanten gegevens enz...
Op tabblad 1 en 2 staan de waarden in het blauw aangeduid die worden weggeschreven naar het tabblad "factuur overzicht"
Alleen zet hij nu deze gegevens volledig onderaan de opgemaakte lijst en er niet in...

Alvast bedankt!
Mvg,

 

[edmoor]

Vervang:

nwRegel = Sheets("Overzicht facturen").UsedRange.Rows.Count + _
          Sheets("Overzicht facturen").UsedRange.Row

Door:

nwRegel = Sheets("Overzicht facturen").range("A:A").End(xlDown).row + 1

 

[Gielleke25]

Beste,

De code werkt perfect!
Hartelijk dank voor de moeite!

Mvg,