Hulp bij gereedschapbeheer

[AD1957]

Ton,

Kijk eens naar de code in post 72 ??

 

[AD1957]

Ton,

Voor de volledigheid.
Kijk naar post 58,70,72
Aangezien je de administratie al enkele maanden met een foute code hebt verwerkt
zal er zeer waarschijnlijk heel veel niet meer juist zijn.

 

[AD1957]

Vervelend als er geen reactie meer komt.

 

[ton plu]

Beste AD1957. Dank voor jouw reactie. ik ben even een aantal dagen buiten de deur geweest, vandaar mijn late reactie. ik ga hier meteen mee aan de slag. Dank hiervoor alvast

 

[ton plu]

Toen ik deze draad bezag schrok ik van twee dingen: eerst en vooral dat men een systeem opzet parallel met het bestaande ERP systeem. Het zou me verwonderen als het ERP systeem alleen een aankoop module heeft zonder een voorraadmodule. En als men dat dan doet, dat men een database systeem opzet in Excel in plaats van een database applicatie te gebruiken (in Office heeft men hiervoor Access).

Ons ERP systeem heeft uiteraard wel een voorraad systeem. Dit wordt gebruikt voor al onze artikelen en onderdelen. echter vallen de gereedschappen niet op deze manier te verwerken inclusief een registratie voor keuringen incl vervaldatums. De keuringen worden nu apart in een ISO registratie gedaan. Deze excel wordt hiervoor nu in de plaats ingezet. zo houden wij dan apart overzicht wie welke gereedschappen hebben en houden wij een simpel overzicht welke gereedschappen gekeurd dienen te worden en wanneer.

 

[ton plu]

Ik heb eens even gekeken in mijn oude bestanden.
Je gebruikt een oudere code en die ging fout.
Dit heb ik als laatste code voor het terugboeken.
Zelf maar testen.

If Opb_In = True Then
   
    With ListBox1
        For i = .ListCount - 1 To 0 Step -1
            If .Selected(i) Then
               
                Set c = Range("Tabel1[artikelnummer]").Find(.List(i, 0), lookat:=xlWhole)
           
                c.Offset(, 3) = c.Offset(, 3) + .List(i, 5) 'boek terug in magazijn
                c.Offset(, 4) = c.Offset(, 4) - .List(i, 5) 'boek af bij personeel
               
                For Each it In Range("Tabel3[artikelnummer]")
                    If it = .List(i, 0) And it.Offset(, 6) = ComboBox1.Value Then
                        it.EntireRow.Delete
                    End If
                Next
                .RemoveItem (i)
            End If
               
        Next
    End With
End If

TOP. Dit werkt weer zoals het hoort. Super bedankt

 

[AD1957]

Dan is er nu aardig wat werk te verzetten.
Lees post 58.
Niet alleen de magazijnvoorraad klopt niet maar ook de uitgegeven gereedschappen
aan het personeel. (mogelijk zijn er gereedschappen afgeboekt bij de verkeerde medewerkers)

 

[ton plu]

Dan is er nu aardig wat werk te verzetten.
Lees post 58.
Niet alleen de magazijnvoorraad klopt niet maar ook de uitgegeven gereedschappen
aan het personeel. (mogelijk zijn er gereedschappen afgeboekt bij de verkeerde medewerkers)

weet ik. ben alles al aan het nalopen. moet ook nog van alle monteurs een compleet overzicht trekken en invoeren. hoop voor eind dit jaar alles op orde te hebben. Dan kan ik de totaal voorraad aanpassen en wat we in het magazijn hebben. Heb nog ff wat te doen. maar ben hier heel blij mee.
Heb nu besloten om geen aparte bestel worksheet te maken met ook weer in en uitboeken. ik pas nu handmatig de aantallen in de uitgifte aan van 1 naar een inkoopnnummer. dit werkt voor nu prima.
misschien dat ik in de toekomst ook bestellingen kan boeken op naam en deze na binnenkomst kan boeken op de voorraad van de monteur.

 

[NoellaG]

misschien toch eens kijken naar Access als applicatie om dit alles te organiseren. Er zijn op deze site een hoop Access handleidingen beschikbaar, en op het Access forum vind je vast een paar helpers die staan te popelen om je te helpen.

 

[ton plu]

Helaas heb ik geen toegang tot Access op mijn werkomgeving. :-(

 

[peter59]

Misschien is het ook nog een mogelijkheid met power query.
Deze is als het goed is wel beschikbaar voor jullie want deze zit vanaf excel 2016 standaard in excel.
Hier mee is het ook mogelijk om vanaf div. applicatie (b.v. ERP) de gegevens in te laden d.m.v. power query.
Ik heb helaas het gehele draadje niet gevolgd dus weet niet welk format je als output wil.