Auteur Topic: VB - overbrengen gegevens Workb > Workb (gelezen 3248 keer)

Hombre · « **Gepost op:** 29 oktober 2006, 08:57:08 »

Hallo

Bij twee geopende workbooks wil ik gegevens overbrengen van de een naar de ander met een macro. Met knippen en plakken lukt dit wel.......

Code: [Selecteer]

Windows("Map1-old.xls").Activate
    Sheets("Data").Select
    Range("D4").Select
    Selection.Copy
Windows("Map1.xls").Activate
    Sheets("Data").Select
    Range("D4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Maar dit zou toch korter moeten kunnen. Ik dacht ongeveer aan dit maar het werkt niet.....

Code: [Selecteer]

[D4] = Workbooks.Application.Sheets("Map1-old").Range("D4").Value

Hoe kan dit korter worden opgelost?
Bedankt al bij voorbaat

RedHead · « **Reactie #1 Gepost op:** 29 oktober 2006, 10:06:05 »

Hombre, je idee is goed maar je syntax is fout! Ik heb een voorbeeldje gemaakt met 2 nieuwe werkboeken en daar de volgende procedure in WB2 geschreven:

Sub Test()

Range("A1").Value = Workbooks("Book1").Sheets("Sheet1").Range("A1").Value

End Sub

Zo doet tie het wel....
Groet, Leo

Hombre · « **Reactie #2 Gepost op:** 29 oktober 2006, 12:09:14 »

Bedankt Leo, dat was wat ik zocht en het werkt, OK

Afgesloten onderwerp

Tot de volgende

SoftAid · « **Reactie #3 Gepost op:** 29 oktober 2006, 12:52:31 »

Hallo Hombre en RedHead,

ik moet eerlijk bekennen dat ik maar een "bleuke" ben op gebied van VBA, maar het antwoord van RedHead laat toch een ontevreden gevoel achter.

Eenvoudig is het wel, dat antwoord. Maar is er nu echt data gekopiëerd van wrkboek 1 naar werkboek2???

Neen, want in werkboek 2 staat nu een verwijzing naar werkboek1.
-. Beide werkboeken moeten nu geopent zijn opdat er data zichtbaar wordt in werkboek2.
-. Als je data in werkboek1 verandered, veranderd het ook de data in werkboek2.

Is dit wat Hombre zocht?

Citaat

Bij twee geopende workbooks wil ik gegevens overbrengen van de een naar de ander

SoftAid

RedHead · « **Reactie #4 Gepost op:** 29 oktober 2006, 13:36:13 »

Hmmmm SoftAid.... Ik ben het geloof ik niet helemaal met je reactie eens! Voorop gesteld, ik ben ook nog geen superheld in VBA, maar volgens mij zit je nu niet juist.
Het is inderdaad een zeer eenvoudige coderegel, maar die is voortgeborduurd op de regel van Hombre zelf (maar dan aangepast).

Citaat

is er nu echt data gekopiëerd van wrkboek 1 naar werkboek2???

En dus JA, er wordt middels deze regel ECHT gecopieerd van Book1 naar Book2.

Citaat

-. Beide werkboeken moeten nu geopent zijn opdat er data zichtbaar wordt in werkboek2

Voorwaarde is wel dat beide Books openstaan, maar dat stond vermeld in de 'opdracht'. Als inderdaad Book1 gesloten is, knalt de code! Je zou daar nog iets op kunnen schrijven om te checken of Book1 ook daadwerkelijk openstaat...

Citaat

-. Als je data in werkboek1 verandered, veranderd het ook de data in werkboek2

Hierop is het antwoord dus NEE. Om dit te bereiken zou je deze procedure moeten invoegen:

Sub MaakFormule()
Range("A2").Formula = "=[Book1.xls]Sheet1!A1"
End Sub

Toch??

Groet, Leo

Ps voor de verduidelijking hierbij Book1 en in de post hierna Book2....

RedHead · « **Reactie #5 Gepost op:** 29 oktober 2006, 13:37:00 »

...en dus Book2....

SoftAid · « **Reactie #6 Gepost op:** 29 oktober 2006, 16:05:47 »

Hallo RedHead,

ja, je hebt gelijk over de hele lijn. Weeral iets slimmer (als ik het nu ook maar onthou

)

Groeten,

SoftAid

RedHead · « **Reactie #7 Gepost op:** 29 oktober 2006, 22:09:39 »

SoftAid, Voor iemand die 8254 posts op z'n naam heeft staan ben ik zééééééééér vergevingsgezind....

Dank voor je reacties (want daar leer ik als nieuwkomer ook weer van!)
Groet, Leo

(laatste bericht van mij op deze reeds gesloten topic)

Help!

Menu

Hulp bij posten

Zoeken

Recente topics