*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: gegevens uit andere worksheet ophalen  (gelezen 35390 keer)

0 leden en 1 gast bekijken dit topic.

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
gegevens uit andere worksheet ophalen
« Gepost op: 25 januari 2019, 11:16:14 »
ik moet gegevens van tabblad2 uit WS2 inlezen in tabblad2 van WS1.
De gegevens starten op rij 6  (dus "A6") en lopen tot kolom "H" maar het eind rijnummer is wisselend.

Heeft iemand daar een korte VBA instructie voor zonder de 2de worksheet te moeten openen/ activeren.?

Ik heb reeds volgende code maar dit geeft 'subscript error'
Pad1 verwijst naar een opgeslagen Excel-file. En tabblad 2 noemt 'Klanten'.

Code: [Selecteer]
Workbooks(pad1).Sheets("Klanten").Range("A6:H200").Copy Destination:= _
ThisWorkbook.Sheets("Klanten").Range("A6:A6").End(xlUp)
Mvg
René
Gelogd
Windows 10
Excel 2013

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: gegevens uit andere worksheet ophalen
« Reactie #1 Gepost op: 25 januari 2019, 17:41:15 »
noemt dat workbook pad1?
Gelogd

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: gegevens uit andere worksheet ophalen
« Reactie #2 Gepost op: 25 januari 2019, 17:47:07 »
neen,

pad1 is een opgebouwde string zoals  'c:/users/documenten/file'
Gelogd
Windows 10
Excel 2013

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: gegevens uit andere worksheet ophalen
« Reactie #3 Gepost op: 25 januari 2019, 18:56:28 »
Citaat
zonder de 2de worksheet te moeten openen/ activeren.
Daarmee maak het jezelf moeilijk.
Waarom niet openen en terug sluiten, screen updating op false en je ziet het zelfs niet.
Maar hier wat leesvoer over ADO als het zonder openen moet gebeuren.
https://www.rondebruin.nl/win/s3/win024.htm
Gelogd

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: gegevens uit andere worksheet ophalen
« Reactie #4 Gepost op: 26 januari 2019, 06:55:14 »
Het wil maar niet lukken

Ik heb hier 2 bestanden Map1.xlsm en Map2.xlsm.

Bedoeling is dat de gegevens (A7:A31) van Map1 naar Map2 gekopieerd worden.

In Map2 is daarvoor een macro "Overdracht"
Gelogd
Windows 10
Excel 2013

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: gegevens uit andere worksheet ophalen
« Reactie #5 Gepost op: 26 januari 2019, 10:54:54 »
Probeer deze
Code: [Selecteer]
Sub dotch()
Application.ScreenUpdating = False
Set wb1 = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Map1.xlsm")
Set wb2 = ThisWorkbook
wb1.Sheets("Blad1").Range("A7:A31").Copy wb2.Sheets("blad1").Range("A7")
wb1.Close
Application.ScreenUpdating = True
End SubHierbij ga ik van de veronderstelling uit dat Map1 in dezelfde folder zit.
Is dit niet het geval moet je het pad aanduiden
vb, Map1 zit in de folder test op de C schijf
Code: [Selecteer]
"C:\test\Map1.xlsm"
Gelogd

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: gegevens uit andere worksheet ophalen
« Reactie #6 Gepost op: 26 januari 2019, 11:49:19 »
of zo

Sla beide bestanden op in dezelfde map.
Gelogd

Offline rdcoster

  • Ervaren lid
  • ***
  • Berichten: 274
  • Geslacht: Man
  • Oplossing.be
Re: gegevens uit andere worksheet ophalen
« Reactie #7 Gepost op: 26 januari 2019, 12:17:30 »
@emields en @Dotchiejack

Beide oplossingen werken perfect.

Bedankt voor de hulp !!

Mvg
René
Gelogd
Windows 10
Excel 2013

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: gegevens uit andere worksheet ophalen
« Reactie #8 Gepost op: 26 januari 2019, 12:28:25 »
Citaat
Beide oplossingen werken perfect.
Mooi zo. Dank voor de terugkoppeling :thumbsup:
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com