Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Stock telling analyseren met een formule of toch VBA ?  (gelezen 19835 keer)

0 leden en 1 gast bekijken dit topic.

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Stock telling analyseren met een formule of toch VBA ?
« Gepost op: 20 juli 2019, 17:23:03 »
Hallo,

Momenteel nemen we dagelijks stock om te kijken waar we verschillen hebben en kunnen bijsturen.
De gegevens komen uit een ERP systeem en analyseren we via excel.

Als voorbeeld 3 dagen van vrijdag T/M dinsdag.
1 Tabblad "Totalen" welke we graag willen automatiseren via zoekformule of indien nodig met VBA.

Van het tabblad totalen kunnen we dan via een draaitabel analyses maken.

In bijlage een beperkt aantal gegevens van maar 3 dagen en een beperkt aantal artikels.

Tabblad totalen in voorbeeld nu handmatig ingevuld.

alvast bedankt !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #1 Gepost op: 20 juli 2019, 22:12:57 »
Met een kleine procedure is het zo gepiept...
Sub MaakTotaalSheet()
Dim OutputTable() As Variant

    For Each sh In ThisWorkbook.Sheets
        If (sh.Name <> "Tabel v totalen" And sh.Name <> "Totalen") Then
            TempTable = sh.Cells(1).CurrentRegion
            For i = 2 To UBound(TempTable, 1)
                Art = IIf(Not IsEmpty(TempTable(i, 1)), TempTable(i, 1), Art)
                Oms = IIf(Not IsEmpty(TempTable(i, 1)), TempTable(i, 2), Oms)
                If IsEmpty(TempTable(i, 1)) Then
                    x = x + 1
                    ReDim Preserve OutputTable(1 To 7, 1 To x)
                    OutputTable(1, x) = sh.Name
                    OutputTable(2, x) = Art
                    OutputTable(3, x) = Oms
                    OutputTable(4, x) = TempTable(i, 2)  ' lotnr
                    OutputTable(5, x) = TempTable(i, 3)  ' aantal
                    OutputTable(6, x) = TempTable(i, 4)  ' werkelijk
                    OutputTable(7, x) = TempTable(i, 4) - TempTable(i, 3)  ' verschil
                End If
            Next i
        End If
    Next sh
   
    Sheets("Totalen").Cells(2, 1).Resize(UBound(OutputTable, 2), UBound(OutputTable, 1)) = Application.Transpose(OutputTable)
   
End Sub
Zie ook de bijlage.

UITERAARD WÉL UITTESTEN OP EEN KOPIE VAN JE WORKBOOK EN NIET RECHTSTREEKS IN HET "ECHTE"
______________________________

Groet, Leo

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #2 Gepost op: 21 juli 2019, 09:24:08 »
Hartelijk dank RedHead,  :thumbsup:

Je hebt me al een hééééél eind geholpen :)
Werkt inderdaad "zo gepiept"

Bij een 2° test heb ik een foutopsporing "13" welke ik nog niet gevonden heb wat ik verkeerd doe

For i = 2 To UBound(TempTable, 1)
Ondanks je vele moeite, mag ik nog vragen wat die fout kan zijn ?

Of beter nog kan er per regel uitgelegd worden wat de betekenis van de codes zijn (indien niet té veel gevraagd)


Alvast bedankt

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #3 Gepost op: 21 juli 2019, 10:06:13 »
Fijn dat het werkt voor je.
Die error? Kreeg je die in je originele workbook?

Misschien dat ik vanavond ff tijd heb voor wat comments bij de code. Nu eerst het oude lijf naar de sportschool brengen en 2 uurtjes onder de ijzers knallen.  ;D
______________________________

Groet, Leo

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #4 Gepost op: 21 juli 2019, 10:34:52 »
Fijn dat je antwoord Leo  :thumbsup:
Geniet van je sporten

Heb een kopie gemaakt om te begrijpen

Bedankt, maar het is ook zondag voor je (jullie) :)
Misschien dat ik vanavond ff tijd heb voor wat comments bij de code

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #5 Gepost op: 21 juli 2019, 10:57:49 »
Ziet die kopie er identiek uit als het voorbeeld dat je netjes bij je vraag had gepost? Of heb je er bijvoorbeeld nog andere sheets dan de 2 specifieke en de datum sheets?
Ik gok dat daar ergens het probleem moet zitten.
(Bericht vanuit de gym) 😎
______________________________

Groet, Leo

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #6 Gepost op: 21 juli 2019, 11:21:09 »
Hoi,

Laten we RedHead even gewoon zijn ding doen in de gym. Ik snel bij deze graag even ter hulp... (moet er zelf overigens straks ook vandoor!)
In je code wordt gecheckt of het werkblad "Totalen" heet maar in je werkboek heet het "TOTALEN"
Eén van beide aanpassen zou moeten volstaan. Hopelijk is dat het enige dat nog scheelt.
Het lag m.a.w. inderdaad aan een verschil tussen de 2 meegestuurde bestanden!

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #7 Gepost op: 21 juli 2019, 12:54:14 »
Hoi pitufo  :)

Werkt nu inderdaad als een fluitje van …..  :thumbsup:

werkblad "Totalen" heet maar in je werkboek heet het "TOTALEN"
Bedankt ! ook alle eer aan Redhead hé

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #8 Gepost op: 21 juli 2019, 13:58:39 »
@Pitufo, dank voor je tussenkomst. ;)

@Georgyboy, in de bijlage de procedure met wat comments erbij. Misschien dat je 'm zo beter kan volgen. Daarnaast heb ik nog een kleine modificatie gemaakt om er voor te zorgen dat het gebruik van hoofdletters of kleine letters in de sheet-naam goed worden opgevangen. Overigens ben ik zelf altijd meer voorstander van de "sheet-code-name" als je een worksheet wilt aanspreken. Dan mag de naam aan de gebruikerskant élke vorm aannemen, maar blijft de VBA procedure overeind. Dit kan alleen als je een workbook gebruikt als basis waarvandaan je steeds in een week nieuwe dag-sheets gaat toevoegen. Als je alleen maar de procedure in een nieuw workbook zet, kan het dan weer fout lopen.
______________________________

Groet, Leo

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #9 Gepost op: 21 juli 2019, 15:35:50 »
Waw hartelijk dank Leo voor de uitleg, daar leer je veel van  :thumbsup:

Hopelijk goed gesport, zonder zorgen om al te willen antwoorden :)

@ pitufo  :thumbsup:

Groetjes
Georgyboy

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #10 Gepost op: 22 juli 2019, 08:02:26 »
Graag gedaan, Georgyboy.

Citaat
ook alle eer aan Redhead hé
AB-SO-LUUT !
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Stock telling analyseren met een formule of toch VBA ?
« Reactie #11 Gepost op: 22 juli 2019, 18:27:20 »
Alhoewel ik jullie niet ken mag ik zeggen dat jullie toffe gasten zijn op dit Topforum.
Ook voor een aantal andere forums mijn dank ! :)

 


www.combell.com