Indsæt række numerisk

Der skal selvfølgelig en kontrol på om varenummer findes i forvejen!

Hvad skal der ske, hvis det findes i forvejen?

Så finder den nummeret og lægger tbAntal til det tal, der i forvejen står.

Prøv at lægge denne kode på din oprettelsesknap i formularen:

Sub t()
    a = 0
    vnr = Me!tbVarenummer
    For Each c In Range("A2:A20000").Cells
        If c.Value = Me!tbVarenummer Then
            c.Offset(0, 2).Value = c.Offset(0, 2).Value + Me!tbAntal
            a = a + 1
            Exit Sub
        End If
    Next c
    If a = 0 Then
        For Each d In Range("a2:a20000").Cells
            If d.Value < vnr And d.Offset(1, 0) > vnr Then
                d.Offset(1, 0).EntireRow.Insert shift:=xlDown
                d.Offset(1, 0).Value = vnr
                d.Offset(1, 1).Value = Me!tbVarenavn
                d.Offset(1, 2).Value = Me!tbAntal
                Exit Sub
            End If
        Next d
    End If
End Sub

jkrons> jeg har fundet ud af at i forhold til hvad jeg skal bruge regnearket til, er det ikke hensigtsmæssigt at bruge dette spørgsmål. Men du skal selvfølgelig have nogle point for dit besvær. Er 50% ok? jeg har ikke undersøgt om det virker :-)

Det er helt ok.