Excel cellen exporteren naar positie in andere excel file

[etri]

Gebruik 'Sourcebook' in plaats van 'Workbooks("Factuur.xls")'. Dus:

Public Sub Maak_Factuur()
'
' Maak_Factuur Macro
' Deze macro zal er voor zorgen dat de benodigde gegevens automatisch in het factuur worden ingevuld.
'

Dim iKolom As Integer
iKolom = ActiveCell.Column
If IsEmpty(Cells(28, iKolom)) Then Exit Sub

Dim SourceBook As Workbook
'Open het werkboek
Set SourceBook = Workbooks.Open("C:\Documents and Settings\Arne Vanhoof\Bureaublad\Hoekx\Nieuw\Factuur.xls")

SourceBook.Sheets("sheet1").[C9] = [B1] 'datum
SourceBook.Sheets("sheet1").[C7] = Cells(28, iKolom) 'Naam Klant
SourceBook.Sheets("sheet1").[B12] = Cells(29, iKolom) & " " & Cells(30, iKolom) 'laadplaats
SourceBook.Sheets("sheet1").[F12] = Cells(31, iKolom) & " " & Cells(32, iKolom) 'losplaats
SourceBook.Sheets("sheet1").[G9] = Cells(33, iKolom) 'Uur
SourceBook.Sheets("sheet1").[F15] = Cells(34, iKolom) 'tel nr
SourceBook.Sheets("sheet1").[A17] = Cells(35, iKolom) 'voertuig
SourceBook.Sheets("sheet1").[A18] = Cells(36, iKolom) 'Lift
SourceBook.Sheets("sheet1").[E16] = Cells(38, iKolom) 'Chauffeur
SourceBook.Sheets("sheet1").[D17] = Cells(40, iKolom) & ", " & Cells(41, iKolom) & ", " & Cells(42, iKolom) & ", " & Cells(43, iKolom) & ", " & Cells(44, iKolom) & ", " & Cells(45, iKolom) 'Personeel

End Sub

Ik denk dat dit je probleem verhelpt...

 

[etri]

Hoi Zie bijlage voor een verbeterde versie. Let wel op dat je een klant hebt ingevuld. Als je de code doorloopt (TIP: via de F8 toets kun je dat regeltje voor regeltje doen), dan zie je dat zonder klant de code niet verder gaat. Vul je even wat klantgegevens in dan gaat de code wel verder.

Succes! :thumb:

 

[daruda]

Hoi Zie bijlage voor een verbeterde versie. Let wel op dat je een klant hebt ingevuld. Als je de code doorloopt (TIP: via de F8 toets kun je dat regeltje voor regeltje doen), dan zie je dat zonder klant de code niet verder gaat. Vul je even wat klantgegevens in dan gaat de code wel verder.

Succes! :thumb:

Enorm super hartelijk bedankt!

Weet niet of ik hier ooit was uitgeraakt zonder jou!

Merci

 

[etri]

graag gedaan! :thumb: