Vraag over formule

[kabus]

Hallo allemaal,

Ik kom er even niet meer uit. (Zie bijlage).

De gegevens uit Blad1 wil ik overzetten naar Blad2. Nu heb ik dit handmatig gedaan en vroeg me af of dit automatisch zo kunnen?


Ik hoor het graag.

Greets,
kab

 

[CB01]

Als het gaat om letterlijk alles te kopieren wat in blad 1 zit naar bla e dan kun je de volgende code gebruiken in een Macro:

    Sheets("Blad1").Select
    Cells.Select
    Selection.Copy
    Sheets("Blad2").Select
    Cells.Select
    ActiveSheet.Paste
End Sub

 

[kabus]

Als het gaat om letterlijk alles te kopieren wat in blad 1 zit naar bla e dan kun je de volgende code gebruiken in een Macro:

    Sheets("Blad1").Select
    Cells.Select
    Selection.Copy
    Sheets("Blad2").Select
    Cells.Select
    ActiveSheet.Paste
End Sub

In Blad2 zijn de gegevens op een andere volgorde ingedeeld. Zie bijlage

 

[CB01]

Ik zit op dit moment op mijn werk en kan daardoor geen bestanden downloaden. Wil wel vanavond voor je ernaar kijken.

 

[Roncancio]

Hallo allemaal,

Ik kom er even niet meer uit. (Zie bijlage).

De gegevens uit Blad1 wil ik overzetten naar Blad2. Nu heb ik dit handmatig gedaan en vroeg me af of dit automatisch zo kunnen?


Ik hoor het graag.

Greets,
kab

In plaats van VBA code kan je ook gebruik maken van verwijzingen.

@CB01
bvk geen .Select, .Activate in VBA code. Dit werkt vertragend en maakt de code onnodig lang.

Met vriendelijke groet,


Roncancio

 

[kabus]

In plaats van VBA code kan je ook gebruik maken van verwijzingen.

@CB01
bvk geen .Select, .Activate in VBA code. Dit werkt vertragend en maakt de code onnodig lang.

Met vriendelijke groet,


Roncancio

Ik heb zelf al het e.e.a geprobeerd met verwijzingen zoals "SOMMEN.ALS, SOMPRODUCT, INDEX.

Ik denk zelf dat een Macro met een loop een goede oplossing is alleen heb ik hier zelf geen verstand van.

 

[CB01]

@ Roncansio
ha ha klopt inderdaad. Zo werkt hij ook:

  Sheets("Blad1").Select
    Cells.Select
    Selection.Copy
    Sheets("Blad2").Select
    Cells.Select
    Sheets("Blad2").Paste
End Sub

 

[CB01]

Kabus, ik heb je bestand toch kunnen downloaden.

Ik heb eerst 2 vragen:
* De titelnamen in blad 2 niet gelijk zijn aan de titelnamen van blad 1. Waaruit bepaal je wat er in tab 2 kolom "Locatie" komt te staan?

* Blad 2 kolommen 1 t/m 9 hoe kom je aan de inhoud hiervan?

 

[kabus]

Kabus, ik heb je bestand toch kunnen downloaden.

Ik heb eerst 2 vragen:
* De titelnamen in blad 2 niet gelijk zijn aan de titelnamen van blad 1. Waaruit bepaal je wat er in tab 2 kolom "Locatie" komt te staan?

* Blad 2 kolommen 1 t/m 9 hoe kom je aan de inhoud hiervan?

Ik zie dat ik in Blad2 de kolommen A t/m M ben vergeten te plaatsen. Ik heb een nieuwe bijlage geplaatst.

Eigenlijk is het kruislings zoeken en plakken. Ik zoek in Blad1 naar datum daarna Locatie daarna rijen met cijfers. En deze plak ik in Blad2

 

[CB01]

Oké, ik zie nu wat je bedoelt. Ik ga mijn best voor je doen. Gaat alleen niet meer vandaag lukken.
Hoop morgen een mocro voor jou te kunnen up-loaden.


PS. Kunnen de kolommen in blad1 meer worden dan wat je nu hebt of blijft het bij 18 kolommen?

 

[Wigi]

@ Roncansio
ha ha klopt inderdaad. Zo werkt hij ook:

  Sheets("Blad1").Select
    Cells.Select
    Selection.Copy
    Sheets("Blad2").Select
    Cells.Select
    Sheets("Blad2").Paste
End Sub

Roncancio bedoelt dit:

Sheets("Blad1").Cells.Copy Sheets("Blad2").Range("A1")

Hij geeft aan dat je geen .Select moet gebruiken, nochtans staat die wel meermaals in je code :thumb:

 

[kabus]

Oké, ik zie nu wat je bedoelt. Ik ga mijn best voor je doen. Gaat alleen niet meer vandaag lukken.
Hoop morgen een mocro voor jou te kunnen up-loaden.


PS. Kunnen de kolommen in blad1 meer worden dan wat je nu hebt of blijft het bij 18 kolommen?

het blijft hetzelfde. dus 18 kolommen.
Hopen dat het lukt. Ik ga zelf ook wat proberen in elkaar te zetten.