Toevoeging aan macro mbt gegevens naar bestaande rij op ander tabblad kopieren

[Janssentje321]

Hallo allemaal,

ik heb laatst hulp gehad met een macro, maar wil er nu iets aan toevoegen.

De macro voegt gegevens toe aan een al bestaande rij op een ander tabblad.

Het tabblad waar het vandaan moet komen heet: Invulformulier factuur
Het tabblad waar het naar toe moet heet: Lijst

Het geen wat ik nog aan de macro wil toevoegen is dat de inhoud van cel T8(van Invulformulier factuur) naar kolom BH op tabblad Lijst(de 60e rij vanaf links) in de desdetreffende rij wordt geplaatst.
Het zelfde geldt voor T9 -> kolom BI(61e kolom) en T10 -> BJ(62e).

Hieronder staat de al bestaande formule.

Graag jullie hulp hierbij.

Alvast bedankt!

Sub InvulformulierFactuurDoorvoeren()
Dim Br(23)
Dim i As Integer
Dim Cl As Range

With Sheets("Invulformulier factuur")
For i = 0 To 11
Br(2 * i) = .Cells(8 + i, 1)
Br(2 * i + 1) = .Cells(8 + i, 6)
Next
Set Cl = Sheets("Lijst").Columns(1).Find(.Range("C2"), LookAt:=xlWhole)
If Cl Is Nothing Then
MsgBox "factuurnummer bestaat niet!"
Else
Cl.Offset(, 18).Resize(, 24) = Br
End If
End With
End Sub

 

[tkint]

Beste,

Een voorbeeldbestand is altijd handig!

 

[Janssentje321]

Hierbij het bestand, hopelijk kunnen jullie wijs uit alle tabbladen en macro's

Het betreft het macro: InvulformulierFactuurDoorvoeren

Bekijk bijlage Offertes en facturen.xlsm

 

[JeanPaul28]

kijk eens of dit voor jou een oplossing is

 

[Janssentje321]

Hallo JeanPaul,

volgens mij is dit hem!

Fantastisch!

Bedankt!