• 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.

informatie tabbladen naar 1

Status
Niet open voor verdere reacties.
B

bebobebo

Gebruiker
Lid geworden
2 nov 2006
Berichten
94
Hallo,

Volgende probeer ik voor elkaar te krijgen:
Informatie van 2 tabblden naar 1 tabblad overbrengen en dan sorteren.
Dit kan ik wel doen d.m.v. en macro, maar de ene keer is de informatie langer dan de andere keer, moet dan met veel extra ruimte laten neerzetten.
Volgens mij moet er een mogelijkheid zijn om te laten bepalen (na het overbrengen van de info van tablad 1) waar de eerste vrije ruimte is en daar de informatie uit het tweede tabblad neer te zetten.

Wie heeft een tip.

Gr. Bert
 

Bijlagen

Georgyboy zei:
Beste Bert,

In bijlage éérste voorbeeld

Groetjes Georgyboy
Klik om te vergroten...

Sub Knop1_BijKlikken()
'
' Knop1_BijKlikken Macro
' De macro is opgenomen op 2/12/2008 door georges.
'

'
Sheets("info1").Select
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("totaal").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("info2").Select
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("totaal").Select
Range("A16").Select
ActiveSheet.Paste
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Range("A2:F29").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Hallo Georgyboy,

Bedankt voor je reactie.:thumb:
Werkt niet helemaal zoals het zou moeten.
Als er nu gegevens op info1 en 2 bij komt, dan neemt hij niet alle info mee en sorteerd deze ook niet allemaal.
Ik ga een poging doen om te begrijpen wat de tekst in de macro doet.:o

Gr. Bert
 
bebobebo zei:
Sub Knop1_BijKlikken()
'
Code: 
' Knop1_BijKlikken Macro
' De macro is opgenomen op 2/12/2008 door georges.
'

'
    Sheets("info1").Select
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("totaal").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("info2").Select
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("totaal").Select
    Range("A16").Select
    ActiveSheet.Paste
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Range("A2:F29").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Hallo Georgyboy,

Bedankt voor je reactie.:thumb:
Werkt niet helemaal zoals het zou moeten.
Als er nu gegevens op info1 en 2 bij komt, dan neemt hij niet alle info mee en sorteerd deze ook niet allemaal.
Ik ga een poging doen om te begrijpen wat de tekst in de macro doet.:o

Gr. Bert
Klik om te vergroten...

Ik heb de macro bekeken en op mijn manier aangepast.
Nu maar hopen dat op beide infobladen niet meer informatie staat dan 30000 regels.
Iemand hier een oplossng voor, volgens mij verdiend deze oplossing niet de schoonheidsprijs.

Code: 
Sub Knop1_BijKlikken()
'
' Knop1_BijKlikken Macro
' De macro is opgenomen op 2/12/2008 door georges.
'

'
    Sheets("info1").Select
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("totaal").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("info2").Select
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("totaal").Select
    Range("A30000").Select
    ActiveSheet.Paste
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Range("A2:F65000").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub
 
Dag Bert,

Daar ik onervaren ben in VBA, neem ik aan dat een en ander
fout is.
Trouwens zit ik zelf wekelijks met enige vragen.
Hopelijk zitten er een paar regels tussen die bruikbaar zijn.

Zelf ben ik overtuigd dat je geholpen zult zijn op dit fantastisch forum.

Sorry, ik wou dat ik meer kon doen.

Groeten,
Georgyboy
 
Bebobebo, Het kan inderdaad allemaal een stuk korter. Maar bij het zien van zo'n workbook (en vraag), bekruipt me altijd het gevoel van 'waarom deze opzet'? Waarom werk je dus niet in 1 keer op 1 blad? Dan heb je verder nergens last van.

Groet, Leo
 
Georgyboy zei:
Dag Bert,

Daar ik onervaren ben in VBA, neem ik aan dat een en ander
fout is.
Trouwens zit ik zelf wekelijks met enige vragen.
Hopelijk zitten er een paar regels tussen die bruikbaar zijn.

Zelf ben ik overtuigd dat je geholpen zult zijn op dit fantastisch forum.

Sorry, ik wou dat ik meer kon doen.

Groeten,
Georgyboy
Klik om te vergroten...

Hallo Georgyboy,

Ik ben ook onervaren en probeer daarom ook hier een enander te leren.
Ik heb zeker wat bruikbaars gevonden, bedankt.

Gr. Bert
 
Ginger zei:
Bebobebo, Het kan inderdaad allemaal een stuk korter. Maar bij het zien van zo'n workbook (en vraag), bekruipt me altijd het gevoel van 'waarom deze opzet'? Waarom werk je dus niet in 1 keer op 1 blad? Dan heb je verder nergens last van.

Groet, Leo
Klik om te vergroten...

Hallo Leo,

Ik kan me je reactie heel goed voorstellen.
Ik heb te maken met twee verschillende boekingssystemen die ik uur x leeghaal.
Daar gaan macro's overheen om de gexporteerde informatie voor mij werkbaar te maken.
Nadat de macro's hun werk hebben gedaan mogen de twee info's bij elkaar en worden ze weggezet op werksheet.
Je kan je ook voorstellen dat er de ene keer meer regels uit een systeem komen dan de andere keer, ik kom dus niet weg met een basis macro maar had een iets nodig dat omgaat met de verschillende hoeveelheid.
Daar mijn kennis in deze niet ver gaat probeer ik hier info in te winnen.
Ik hoop dat het iets duidelijker voor je is geworden.

Gr. Bert
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan