Waarde wegschrijven naar database VBA

[CGB102]

Hoi hoi allemaal,

Graag had ik enkele gegevens weggeschreven naar een database.
Echter geraak ik er niet uit hoe ik naar de laatste rij kan gaan.
De gegevens worden uit het eerste tabblad gekopieerd en dienen in de database worden geplakt.

Volgende code heb ik:

Sheets("Factuur").Select
Range("C13:F13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Orderbestand").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Bij B6 dient dit de laatste rij te zijn. (Dus niet noodzakelijk 6)


Alvast bedankt voor jullie input!

 

[JEC.]

Plaats even je (voorbeeld)bestand. Dan heb je zo antwoord.

 

[edmoor]

Hoe je dat het beste kan doen is weer afhankelijk van meerdere zaken in het document.
Plaats dus een voorbeeld bestand.

 

[JEC.]

Gok

Sub j()
 With Sheets("Factuur")
   .Range("C13:F13").Copy
   Sheets("Orderbestand").Cells(Cells(Rows.Count, 2).End(xlUp).Offset(1).Row, 2).PasteSpecial xlValues
 End With
End Sub

 

[snb]

Geen gok:

Sub M_snb()
  Sheets("Orderbestand").Cells(Rows.Count, 2).End(xlUp).Offset(1).resize(,4)=Sheets("Factuur").Range("C13:F13").Value
End Sub

 

[CGB102]

Bedankt allemaal!

Korte vraag, waar kopieer ik deze code juist in?

 

[Haije]

 Sheets("Orderbestand").Cells(Rows.Count, 2).End(xlUp).Offset(1).resize(,4)=Sheets("Factuur").Range("C13:F13").Value

komt in de plaats van

Sheets("Factuur").Select
Range("C13:F13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Orderbestand").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

TIP: plaats in het vervolg een voorbeeldbestand, dan wordt het direct voor je op de juiste plaats gezet (als je dat vraagt)

 

[CGB102]

Ik heb het even geprobeerd om dit uit te breiden naar de andere gegevens die gekopieerd moeten worden maar merk dan een foutje.

ik had:
Sheets("Factuur").Select
Range("C13:F13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Orderbestand").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Factuur").Select
Range("C14:F14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Orderbestand").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

De gegevens moeten dus op de laatste rij komen, maar de volgende gegevens in dezelfde rij.
Probeer ik jou oplossing dan worden de gegevens eerst naar de laaste rij gekopieerd (VB B6), en de volgende naar C7. Enz.


Sorry voor de verwarring.

In bijlage het voorbeeldje

 

[VenA]

Gebruik codetags als je code op dit forum plaatst. Gebruik geen samengevoegde cellen en zeker niet in combinatie met VBA. Zet geen lege rijen in tabellen.
Veel meer dan dit heb je niet nodig

Sub VenA()
  ar = Sheets("Factuur").Range("B12:k19")
  Sheets("orderbestand").ListObjects(1).ListRows.Add.Range.Resize(, 13) = Array(ar(1, 2), ar(2, 2), ar(3, 2), ar(6, 8), _
  ar(4, 2), ar(5, 2), ar(5, 3), ar(6, 2), ar(7, 2), ar(8, 2), ar(3, 8), ar(5, 8), ar(5, 9))
End Sub