"Dé grootste en gratis computerhelpdesk van Nederland"
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Gegevens kopieren naar 3e tabblad VBA
- Onderwerp starter Imod
- Startdatum
- Status
JEC.
Terugkerende gebruiker
- Lid geworden
- 27 feb 2019
- Berichten
- 4.330
- Office versie
- 365
Hier nog een kleine aanvulling waardoor je kolommen dynamisch zijn. Er wordt uitgegaan van het tabblad met de meeste kolommen in dit geval.
Edit: Toch maar even een groter deel geplaatst ter verduidelijking. Dit zijn echter nog niet alle bewerkingen.
Wanneer je uitgaat van het eerste tabblad kan het een stuk eenvoudiger
Edit: Toch maar even een groter deel geplaatst ter verduidelijking. Dit zijn echter nog niet alle bewerkingen.
PHP:
let
Bron = Excel.CurrentWorkbook(),
tbl = Table.SelectRows(Bron, each ([Name] <> "Query1")),
cols = List.Transform(
List.Accumulate(tbl[Content], {0}, (s,c) => let x = Table.ColumnCount(c) in
if x > List.Max(s) then {1..x} else s
), each Text.From(_)),
out = Table.ExpandTableColumn(tbl, "Content", cols, cols)
in
outWanneer je uitgaat van het eerste tabblad kan het een stuk eenvoudiger
PHP:
let
Bron = Excel.CurrentWorkbook(),
tbl = Table.SelectRows(Bron, each ([Name] <> "Query1")),
cols = List.Transform({1..Table.ColumnCount(tbl[Content]{0})}, each Text.From(_)),
out = Table.ExpandTableColumn(tbl, "Content", cols, cols)
in
out
Laatst bewerkt:
nog vraag
Emields toch nog 2 vragen:
De cellen kunnen uit een formule komen die gekopieerd worden.
Nu gaat de formule mee naar tabblad Doel - de waarden moeten gekopieerd worden.
Hoe kan ik het aantal kolommen die gekopieerd worden beperken?
Emields toch nog 2 vragen:
De cellen kunnen uit een formule komen die gekopieerd worden.
Nu gaat de formule mee naar tabblad Doel - de waarden moeten gekopieerd worden.
Hoe kan ik het aantal kolommen die gekopieerd worden beperken?
Emields,
Aantal kolommen die gekopieerd worden is goed(alles)
Zie bijlage 1 kopieer blijft gedeelte wat gekopieerd is aan staan.
Zie bijlage 2 Doel tab:
Gaarne zou ik in de code willen aangeven in welke kolom (voorbeeld kolom H) er gezocht moet worden naar de eerste gegevens en dat daaronder de gegevens naar toe worden gekopieerd als waarde
Aantal kolommen die gekopieerd worden is goed(alles)
Zie bijlage 1 kopieer blijft gedeelte wat gekopieerd is aan staan.
Zie bijlage 2 Doel tab:
Gaarne zou ik in de code willen aangeven in welke kolom (voorbeeld kolom H) er gezocht moet worden naar de eerste gegevens en dat daaronder de gegevens naar toe worden gekopieerd als waarde
Bijlagen
emields
emields,
Als ik deze code gebruik dan komt de tekst op cel A59 en 2e knop op A71
Mijn bedoeling is dat ik in de code de gewenste kolom kan aanpassen.
Ik zet bv in de code kolom G dan moet de code in kolom G zoek naar de laatst gevulde cel in die kolom en de waarden daaronder en rechts daarvan zetten.
emields,
Als ik deze code gebruik dan komt de tekst op cel A59 en 2e knop op A71
Mijn bedoeling is dat ik in de code de gewenste kolom kan aanpassen.
Ik zet bv in de code kolom G dan moet de code in kolom G zoek naar de laatst gevulde cel in die kolom en de waarden daaronder en rechts daarvan zetten.
Laatst bewerkt:
je weet toch dat je daarmee cellen zult overschrijven. je schrijft naar kolom B en de volgende keer naar de lege kolom A dan zaal een gedeelte van kolom B overschreven worden.
Ik begin stilaan te denken dat je weet wat je wil, of het toch niet goed kan uitleggen.
Ik begin stilaan te denken dat je weet wat je wil, of het toch niet goed kan uitleggen.
emields
Emields,
In principe werkt het nu zoals ik bedoel,
Het kopiëren naar een bepaalde kolom is dan altijd naar dezelfde kolom dus komt het onder elkaar te staan,
Een vraag nog welke code bepaald in welke kolom de gegevens in doel gezet wordt.
Private Sub CommandButton1_Click()
x = TextBox1
r = [a200].End(xlUp).Row
k = [aaa3].End(xlToLeft).Column
ActiveSheet.Range(Cells(4in , 1), Cells(r, k)).Copy
Sheets("doel").Cells(10000, x).End(xlUp).Offset(1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Unload Me
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
End Sub
Emields,
In principe werkt het nu zoals ik bedoel,
Het kopiëren naar een bepaalde kolom is dan altijd naar dezelfde kolom dus komt het onder elkaar te staan,
Een vraag nog welke code bepaald in welke kolom de gegevens in doel gezet wordt.
Private Sub CommandButton1_Click()
x = TextBox1
r = [a200].End(xlUp).Row
k = [aaa3].End(xlToLeft).Column
ActiveSheet.Range(Cells(4in , 1), Cells(r, k)).Copy
Sheets("doel").Cells(10000, x).End(xlUp).Offset(1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Unload Me
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
End Sub
- Status
