kopieren

[don42]

Hoi alle maal

wie kan mij helpen met het volgende
heb twee sheets gemaakt ( Van en Naar)

in van.xlsm staat onderstaande code

Private Sub CommandButton1_Click()
Workbooks.Open "c:\naar.xlsm"
ThisWorkbook.Sheets(1).Range(Range("D:D"), Range("D:D").End(xlDown)).Copy Workbooks("naar.xlsm").Sheets(1).Range("D:D")

End Sub

Alles wat in kolom D staat kopiëren naar kolom D in (naar.xlsm)
nu wil ik graag dat als ik andere gegevens in kolom D zet (Van.xlsm) deze gekopieerd worden naar de eerste vrije kolom in (Naar.xlsm) in dit geval dus naar E en dan F enz
is dat mogelijk?

bvd
Don

 

[VenA]

Je kan toch de laatste kolom bepalen door bv

Sub VenA()
  a = Blad2.UsedRange.Columns.Count
End Sub

Met een Offset kan je dan naar de volgende kolom gaan.

 

[don42]

Ik heb nu dit:
waar gaat het fout?

Private Sub CommandButton1_Click()
Workbooks.Open "d:\naar.xlsm"
ThisWorkbook.Sheets(1).Range(Range("D:D"), Range("D:D").End(xlDown)).Copy Workbooks("naar.xlsm").Sheets(1).UsedRange.Columns.Count.Offset(0, 1).Select
Range(Range("D:D"), Range("D:D").End(xlDown)).Copy Range("J:J")
End Sub

 

[VenA]

.Select selecteert iets.

Wat is precies de bedoeling? Plaats even een voorbeeldbestand.

 

[don42]

Wil graag de data die in kolom D staat van de van.xlsm naar de file naar.xlsm kopiëren ook in kolom D
Maar als ik dan nieuwe data invoer in kolom D van van.xlsm dat deze gegevens dan in kolom E komen te staan van naar.xlsm

 

[VenA]

Gemist? Plaats even een voorbeeldbestand.

 

[don42]

Bekijk bijlage van.xlsmBekijk bijlage naar.xlsm

precies zo en dan zou ik graag hebben als ik de data van kolom D verander in (van.xlsm) dit gekopieerd wordt naar kolom E en F enz in (Naar.xlsm)

 

[VenA]

Zijn de voorbeeldjes echt zoals het werkelijk is of zijn de kolommen A t/C normaal gesproken ook gevuld en zijn de rijen 2 en 3 altijd leeg? Met een gestructureerd werkblad kan er een korte code voor gemaakt worden met deze chaos gaat het een wat langere worden.

 

[don42]

De eerste reeks getallen moeten in cel C4 tot c ?? en dan de volgende getallen in D4 tot D?? enz
Bekijk bijlage voorbeeld4.xlsm

hoop dat dit iets overzichtelijkere is