Twee werkbladen, diversen kolommen

[helpalex]

Hallo allemaal,

Hier ben ik weer.

Ik heb een prijslijst in één excel bestand en doormiddel van Blad1 en Blad2 etc. gescheiden van elkaar (verschillende artikel groepen vb. Hout is Blad1 en Aluminium is Blad2). Nu is het zo, dat de samenstelling van prijslijst1(Blad1) anders is dan prijslijst2(Blad2).
Alleen zit er wel in elk WerkBlad een Kollom voor "Artikel code" "Omschrijving" en "Stuksprijs", maar zit bij de één "Artikelcode" in kollom A en de ander In KollomB.

Is het ook mogelijk om een nieuw werkblad aan te maken (vb. "Import") en doorop een macro uit te laten voeren die de opdracht geeft om van alle WerkBladen Kollom "Artikel code" "Omschrijving" en "Stuksprijs" (of dit nu A of kollom B is) onderelkaar plaatst?

Nou dit was het wel zo ongeveer.

Groet,

Alex

 

[Paul-RT]

IS het de bedoeling dat je met een knop een artikel selecteerd, en dat dan de rest van de regel automatisch wordt ingevuld? Dus artikelnummer, stuksprijs etc. ?
Wordt denk ik wat lastiger. Maar met vert.zoeken kom je een heel eind.
Denk wel dat je een aparte voor-selectie moet maken, of je met hout, danwel met aluminium gaat werken.

Mogelijk is het wel.

 

[helpalex]

IS het de bedoeling dat je met een knop een artikel selecteerd, en dat dan de rest van de regel automatisch wordt ingevuld? Dus artikelnummer, stuksprijs etc. ?
Wordt denk ik wat lastiger. Maar met vert.zoeken kom je een heel eind.
Denk wel dat je een aparte voor-selectie moet maken, of je met hout, danwel met aluminium gaat werken.

Mogelijk is het wel.

Hallo Paul,

Bedankt voor je reactie.

Ik bedoel denk ik wat anders. Ik zal het proberen duidelijker uitteleggen.

Ik heb een werkmap "prijslijst", waar 10 werkbladen in staan Blad 1t/m10.
nu wil ik graag in een ander werkblad (dus Blad11) van de werkbladen 1t/m10 de kollommen A=artikelcode en Kolom B=omschrijving en KolomC=de stuksprijs in Blad11 allemaal onder elkaar gezet hebben (doormiddel van een Macro denk ik). Kollommen A onderelkaar in kollomA van Blad11

Dit wil ik graag, omdat ik dan niet 10 werkbladen steeds appart hoef te importeren in mijn administratie programma, aangezien er nogal veel informatie in zit.

Ik hoop dat ik het duidelijk heb omschreven.

Groeten Alex

 

[Robnific]

Mogelijke benadering

Wanneer je eerst een macro maakt die de 10 werkbladen gelijk van gegevens inhoud en/of kollommen opmaakt genereert.
Hierna een macro die de gegevens opslaat in blad 11.:shocked:

 

[helpalex]

Wanneer je eerst een macro maakt die de 10 werkbladen gelijk van gegevens inhoud en/of kollommen opmaakt genereert.
Hierna een macro die de gegevens opslaat in blad 11.:shocked:

Helaas kan ik geen macro code's maken, jij wel?

 

[Roncancio]

Helaas kan ik geen macro code's maken, jij wel?

Ik kan het, ik kan het

Sub Macro1()

SR = 2
For WB = 1 To 10
    Rij = 2
    While Worksheets(WB).Cells(Rij, "A") <> ""
        Worksheets(11).Cells(SR, "A") = Worksheets(WB).Cells(Rij, "A")
        Worksheets(11).Cells(SR, "B") = Worksheets(WB).Cells(Rij, "B")
        Worksheets(11).Cells(SR, "C") = Worksheets(WB).Cells(Rij, "C")
        SR = SR + 1
        Rij = Rij + 1
    Wend
Next

End Sub

Met vriendelijke groet,


Roncancio

 

[Robnific]

Bedankt Roncancio

Scheelt weer hoofdpijn!:shocked:

 

[Wigi]

Ik kan het, ik kan het

Sub Macro1()

SR = 2
For WB = 1 To 10
    Rij = 2
    While Worksheets(WB).Cells(Rij, "A") <> ""
        Worksheets(11).Cells(SR, "A") = Worksheets(WB).Cells(Rij, "A")
        Worksheets(11).Cells(SR, "B") = Worksheets(WB).Cells(Rij, "B")
        Worksheets(11).Cells(SR, "C") = Worksheets(WB).Cells(Rij, "C")
        SR = SR + 1
        Rij = Rij + 1
    Wend
Next

End Sub

Met vriendelijke groet,

Roncancio

Ron,

Waarom geen .Copy doen in VBA? (Eventueel met Plakken Speciaal - Waarden)

Met veel rijen ga je onmiddellijk het verschil zien... in het nadeel van de loop. (Vermijd trouwens loops in dit soort situaties.)

Wigi

 

[huijb]

Topic titel aangepast, anders zitten we zo meteen op "Moeilijk verhaal 1234"

 

[Roncancio]

Ron,

Waarom geen .Copy doen in VBA? (Eventueel met Plakken Speciaal - Waarden)

Met veel rijen ga je onmiddellijk het verschil zien... in het nadeel van de loop. (Vermijd trouwens loops in dit soort situaties.)

Wigi

Ik heb soms slechte ervaringen met .Copy en gebruik het persoonlijk liever niet.

Met vriendelijke groet,


Roncancio

 

[Wigi]

Ik heb soms slechte ervaringen met .Copy en gebruik het persoonlijk liever niet.

Dat is jouw goed recht uiteraard.

Het valt mij op dat ik meer en meer .Copy gebruik ipv. een loop. Iedereen volgt zijn eigen manier natuurlijk.

Greetz

Wigi

 

[helpalex]

Nog bedankt voor je macro:thumb:

Ik kan het, ik kan het

Sub Macro1()

SR = 2
For WB = 1 To 10
    Rij = 2
    While Worksheets(WB).Cells(Rij, "A") <> ""
        Worksheets(11).Cells(SR, "A") = Worksheets(WB).Cells(Rij, "A")
        Worksheets(11).Cells(SR, "B") = Worksheets(WB).Cells(Rij, "B")
        Worksheets(11).Cells(SR, "C") = Worksheets(WB).Cells(Rij, "C")
        SR = SR + 1
        Rij = Rij + 1
    Wend
Next

End Sub

Met vriendelijke groet,


Roncancio