Lagerstyring med tilgang og opdatering af felterne

Lagerstyring lyder umiddelbart mere som en Access opgave end som en Excel opgave.

Dine cirkulære refrencer kan du håndtere ved at gå i Funktioner - Indstillinger. Fanebladet Beregning. Sæt flueben i Gentagelser og sæt Maks. antal til 1. Det er muligt at du også bliver nødt til at sætte beregning til Manuel.

Ok... Jeg vil nok helst løse det i Excel, men er også åben overfor et forslag tila t gøre det i access, men har bare ikke ret meget erfaring med dette.

50 varer lyder som en overkommelig opgave i Excel.

Hvis du sender dit ark, som det ser ud nu, skal jeg nok lave det færdigt.
Det vil være fint, hvis arket også indeholder en lidt mere præcis beskrivelse af det du ønsker.

Se evt. e-mail adresse under brugerinfo.

Hvis du har varen i kolonne A, standardlager i B, faktisk lager i C, ordrer i D, bestillingsforslag (=B-C-D) i E, ny bestilling i F og leveret/modtaget i G, kan du bruge disse to makroer (de forudsætter at du ikke har blanke felter i kolonne A før sidste vare, ellers kræver det lige en justering):

Sub Opdatér_ordrer()
'
Dim cll As Range
Dim nxtcll As Range
Dim ordre As Integer
Dim bestil As Integer
'
Set cll = Range("A2")
Do Until cll = ""
    ordre = cll.Offset(0, 3)
    bestil = cll.Offset(0, 5)
    cll.Offset(0, 3) = ordre + bestil
    cll.Offset(0, 5).ClearContents
    Set nxtcll = cll.Offset(1, 0)
    Set cll = nxtcll
Loop
End Sub

Sub Opdatér_lager()
'
Dim cll As Range
Dim nxtcll As Range
Dim ordre As Integer
Dim leveret As Integer
Dim lager As Integer
'
Set cll = Range("A2")
Do Until cll = ""
    lager = cll.Offset(0, 2)
    ordre = cll.Offset(0, 3)
    leveret = cll.Offset(0, 6)
    cll.Offset(0, 2) = lager + leveret
    cll.Offset(0, 3) = ordre - leveret
    cll.Offset(0, 6).ClearContents
    Set nxtcll = cll.Offset(1, 0)
    Set cll = nxtcll
Loop
End Sub

kmlp2 - mange tak...

men vil det ikke være mere logisk hvis opdater lager makroen og smider de positive tal over i søjle F (ny bestilling) så man ikke selv skal taste dem, men kan bruge de positive tal hvis man ønsker og redigere dem man ikke er enige i det?

send det evt som et svar så du kan få point :-)

på forhånd tak

I stedet for
cll.Offset(0, 5).clearcontents
skriver du
cll.Offset(0, 5).FormulaR1C1 = "=IF(RC[-1]>0,RC[-1],0)"

Men så er kolonnen med bestillingsforslag i øvrigt overflødig

mange tak :-)