Eén overzicht van twee magazijnen met verschillende artikelen/voorraden

[KDT]

Ik ben er een tijdje mee aan het klooien geweest maar ik kom er niet uit. Vandaar de vraag.
Het gaat straks om een overview van automatisch gegenereerde data uit het ERP.
Daarbij in 1 tabblad van 2 magazijnen zien wat voorraad is, hoe de voorraad geboekt staat etc.
Sommige voorwerpen liggen in beide magazijnen, sommige niet.


Het derde tabblad in dit document moet bevatten:
- Alle artikelnummers uit tabblad 1 en 2 (waarbij ze er allemaal één keer in mogen staan omdat het om unieke nummers gaat).
- Daarna kan ik met vert.zoeken het tariefnummer erbij halen. Als ze leeg zijn, blijven ze leeg.
- Evenals de beschrijving (bij de beschrijving een controle of van beide tabbladen de beschrijving wel echt hetzelfde is)
- De voorraad van het artikelnummer mag bij elkaar opgeteld worden (of afgehaald mocht 1 tabblad een negatieve voorraad hebben).
- De bijbehorende eenheid achter het artikelnummer (daarbij ook aangeven als er tussen tabblad 1 en 2 verschillen zitten).


Ik hoop dat iemand mij hierbij kan helpen!
Ik hoor graag van jullie

 

[VenA]

Hoe kan een uniek item wat een artikelnummer is verschillende omschrijvingen of eenheden hebben? Hoe kan een voorraad negatief zijn? Ik zou eerst de inrichting van jullie systeem op orde brengen. Voor nu heb ik even de data uit de 2 tabellen onder elkaar gezet en een draaitabel gebruikt.

Voor jouw vragen is best wel een macrotje te maken, maar ik zou er eerst voor zorgen dat het systeem goed ingericht is en dan zijn dit soort achteraf handelingen niet nodig.

 

[HSV]

Een macrootje.

Wanneer de beschrijving en/of eenheid afwijkt wordt dat in blad TSN+TSZ aangeven d.m.v. een slash als scheidingsteken tussen beide verschillen.

 

[KDT]

Hoe kan een uniek item wat een artikelnummer is verschillende omschrijvingen of eenheden hebben? Hoe kan een voorraad negatief zijn? Ik zou eerst de inrichting van jullie systeem op orde brengen. Voor nu heb ik even de data uit de 2 tabellen onder elkaar gezet en een draaitabel gebruikt.

Voor jouw vragen is best wel een macrotje te maken, maar ik zou er eerst voor zorgen dat het systeem goed ingericht is en dan zijn dit soort achteraf handelingen niet nodig.

Dank voor je reactie. Wat betreft je vragen:
Unieke nummers met andere beschrijving/eenheid komt omdat we per 'magazijn' (administratie). Handmatig in moeten voeren. Normaliter is alles hetzelfde, echter wil ik hier en dubbele controle op.
In ons systeem hebben we verschillende soorten voorraad. Voorraad vrij, voorraad gereed, etc. etc. Bij meer claimen dan in het magazijn ligt, wordt een 'voorraad' negatief. De inkoper ziet dan meer behoefte dan materialen en wordt aangestuurd. In dit voorbeeld heb ik gewoon 1 voorraad genomen. Uiteraard hebben we geen negatieve voorraad.

Denk je dat het ook mogelijk is zonder draaitabel?

 

[KDT]

Een macrootje.

Wanneer de beschrijving en/of eenheid afwijkt wordt dat in blad TSN+TSZ aangeven d.m.v. een slash als scheidingsteken tussen beide verschillen.

Beste Harry,

Heb je misschien een verkeerd bestand geupload? Ik zie niks in TSN+TSZ

 

[HSV]

Je moet wel macro's inschakelen.
Druk alt+f8 en daarna op uitvoeren.

 

[KDT]

Je moet wel macro's inschakelen.
Druk alt+f8 en daarna op uitvoeren.

Ik had de macro's inderdaad uitstaan. Excuses.
In het derde tabblad ben ik nu wel de kolomnamen kwijt zoals eenheid, stuks etc.

 

[HSV]

Er staat één regeltje in de code die je dan moet aanpassen.

Van....

sv = Sheets(x).ListObjects(1)[COLOR=#ff0000].DatabodyRange[/COLOR]

....naar.

sv = Sheets(x).ListObjects(1)[COLOR=#ff0000].Range[/COLOR]

Wil je er ook nog een mooie tabel van, verander dan het laatste stukje in.

With Sheets("TSN+TSZ")
  .Cells(1).CurrentRegion.ClearContents
  .Cells(1).Resize(obj.Count, 5) = Application.Index(obj.items, 0, 0)
  .ListObjects.Add xlSrcRange, .Cells(1).CurrentRegion, , xlYes
End With

 

[KDT]

Er staat één regeltje in de code die je dan moet aanpassen.

Van....

sv = Sheets(x).ListObjects(1)[COLOR=#ff0000].DatabodyRange[/COLOR]

....naar.

sv = Sheets(x).ListObjects(1)[COLOR=#ff0000].Range[/COLOR]

Wil je er ook nog een mooie tabel van, verander dan het laatste stukje in.

With Sheets("TSN+TSZ")
  .Cells(1).CurrentRegion.ClearContents
  .Cells(1).Resize(obj.Count, 5) = Application.Index(obj.items, 0, 0)
  .ListObjects.Add xlSrcRange, .Cells(1).CurrentRegion, , xlYes
End With

Ik probeer met

    ActiveWorkbook.Worksheets("TSN+TSZ").ListObjects("Tabel23").Sort.SortFields. _
        Add2 Key:=Range("Tabel23[[#All],[Tarief code]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("TSN+TSZ").ListObjects("Tabel23").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

de tabel automatisch te laten sorteren (van A tot Z). Dat krijg ik alleen nog niet werkend. Verder werkt het naar behoren! Dank hiervoor

 

[ExcelAmateur]

Ik heb vanmorgen je bestandje getest en volgens mij maakt Tabel3 aan en geen Tabel23.
Misschien werkt het daarom niet.

 

[VenA]

Elke keer als je de code draait krijgt de tabel een nieuwe naam.

Dit kan je oplossen door de tabel een naam te geven

.ListObjects.Add(xlSrcRange, .Cells(1).CurrentRegion, , xlYes).Name = "mijntabel"
  .ListObjects("mijntabel").Range.Sort .[A1], , , , , , , xlYes

Of

.ListObjects.Add xlSrcRange, .Cells(1).CurrentRegion, , xlYes
  .ListObjects(1).Range.Sort .[A1], , , , , , , xlYes

 

[HSV]

@KDT,

Reageren doe je met de knop "Reageer op bericht" en niet met de quoteknop.
Bvd.