Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Kopieren van bestand A naar bestand B  (gelezen 1321 keer)

0 leden en 1 gast bekijken dit topic.

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Kopieren van bestand A naar bestand B
« Reactie #15 Gepost op: 07 oktober 2021, 16:57:37 »
Code achter een module zetten in bestand week 1.
Het bestand week 2 moet gesloten zijn voordat je de macro runt.

Wel even het pad aanpassen naar het juste in onderstaande code.

Sub jvr()
 Application.ScreenUpdating = False
 Set objWb = ThisWorkbook.Sheets(1)
 c00 = "C:\Users\xxx\Downloads\WEEK2.xlsx"
 
 With Workbooks.Open(c00).Sheets(1)
  .Range("C3").Resize(, 3) = objWb.Range("C14").Resize(, 3).Value
  .Range("E19") = objWb.Range("E24").Value
  .Parent.Close 1
 End With
End Sub

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Kopieren van bestand A naar bestand B
« Reactie #16 Gepost op: 07 oktober 2021, 20:54:52 »
Hallo Veerj,

Bedankt voor de oplossing. Hij doet het wel  :) en doet het niet. :help:
Heb button geplaatst op WEEK1op de macro te activeren
Als ik vanuit WEEK1 op de button klik op de macro te activeren, doet hij wel iets maar kan niet zien wat. Opent geen bestand.
Ga ik vanuit de macro module en laat de macro regel voor regel (F8) lezen dan doet hij het wel, maakt bestand WEEK2 open en plaats de gewenste cellen op de juiste plaats.
Gr. Math

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Kopieren van bestand A naar bestand B
« Reactie #17 Gepost op: 07 oktober 2021, 20:59:08 »
Hij doet het wel op de achtergrond. Hij sluit het bestand weer af na de routine.

Als je de regel .parent.close 1 weghaalt zie je het

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Kopieren van bestand A naar bestand B
« Reactie #18 Gepost op: 07 oktober 2021, 23:02:03 »
Veerj,

Hij doet het nu voor 100 %.
Bedankt voor snelle oplossing.

Kun je ook de waarde's plakken met koppeling plakken ? Zodat wijzigingen worden doorgevoerd.

Gr. Math \o/ \o/ \o/

 


www.combell.com