Lagerstyring/optæling

Ja - det skulle nok være muligt.

Sker der kun een reg. af af- og tilgang pr. dag?
Der skal vel også være kolonne til VareNr/Varetekst?

Kunne du forestille dig at indtaste via en "Userform"?

Det er tænkt at der kun skulle være en indtastning pr dag
og der skal også være VareNr/Varetekst men det er jo kun
funktionen mellem de 3 kolonner der giver mig problemmer

Userform er det en formular man kan indtaste i og hvor man først kan søge på vare?

Det er tænkt at der kun skulle være en indtastning pr dag
og der skal også være VareNr/Varetekst men det er jo kun
funktionen mellem de 3 kolonner der giver mig problemmer

Userform er det en formular man kan indtaste i og hvor man først kan søge på vare?

Ja jeg fik vist svaret forkert

Vedr. userform - ja korekt.

Hvis du har en model m/lidt data i - må du gerne sende den til: pb@supertekst-it.dk -så kan jeg prøve at indlægge det nødvendige...

Har ikke kunne sende pr. mail efter 19:00 - derfor følgende:

Det skulle fungere således:
Indtast afgang - afslut med <Enter>
Indtast tilgang - do.
Lagerbeh. opdateres

Sådan oplever jeg det.......
Åbner du filen som en 2007 eller 2003

Med venlig hilsen

ThisWorkbook:
Sub workbook_activate()
    Load UserForm1
    UserForm1.Show 0
End Sub

Userform:
Rem Version 2
Rem =========
Const vlisteStart = 4                              'start-række for vareliste
Const rød = &HFF&
Const grøn = &HFF00&
Const grå = &H8000000F
Dim ix
Private Sub afgang_Enter()
    Me.afgang.SelStart = 0
    Me.afgang.SelLength = Len(Me.afgang)
End Sub
Private Sub luk_Click()
    Unload UserForm1
End Sub
Private Sub ok_Click()
    If IsNumeric(Me.afgang) = True And IsNumeric(Me.tilgang) = True Then
        Cells(ix, 4) = Cells(ix, 4) - Val(Me.afgang) + Val(Me.tilgang)
        Me.LagerAntal = Cells(ix, 4)
        Me.afgang = "0"
        Me.tilgang = "0"
       
        checkGB
    Else
        MsgBox ("Til- eller afgang ikke numerisk")
    End If
End Sub
Private Sub checkGB()
Rem check genbestillingspunkt
        If Cells(ix, 4) < Cells(ix, 5) Then
            Cells(ix, 8) = "Genbestil"
            Me.gb.BackColor = rød
        Else
            Cells(ix, 8) = ""
            Me.gb.BackColor = grøn
        End If
End Sub
Private Sub VareListe_Click()
    ix = VareListe.ListIndex + vlisteStart
    Me.LagerAntal = Cells(ix, 4)                    'lager antal
    Me.genbestilling = Cells(ix, 5)                'genbestillingspunkt
    Me.afgang = "0"
    Me.tilgang = "0"
   
    checkGB
   
    Me.afgang.SetFocus
End Sub
Private Sub userform_activate()
Dim xRæk
    ActiveWorkbook.Sheets(1).Activate
    xRæk = ActiveCell.SpecialCells(xlLastCell).Row
    Me.VareListe.ColumnCount = 2
    Me.VareListe.ColumnWidths = "100;150"
   
    For r = 4 To xRæk
        If Cells(r, 2) <> "" Then
            Me.VareListe.AddItem Cells(r, 2)
            Me.VareListe.List(Me.VareListe.ListCount - 1, 1) = Cells(r, 3)
        End If
    Next r
End Sub

Evt. andre interesserede er velkomne til få en kopi af modellen.

Det var lige sådan det skulle være superflot supertekst