Indsætning af linje med Formel fra ovenstående..(VBA)

Hvad er det du skal auto fylde, hvor, og fra??
Og så virker din check af om hvor den indsætter linjen, ikke. Du kan indsætte hvor du vil.

Hej Ebea,

Det hele rækken jeg skal indsætte fra formlen oppe over eller neden under ...

burde den gøre nu :)

myInput = InputBox("Indtast rækkenummer for, hvor ny linje skal være f.eks. '79'." & vbNewLine & vbNewLine & "Min. 37 og maks. 365.", "Tilføj ny linje")

    'Tjekker om input er et tal.
    If Not IsNumeric(myInput) Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer. Prøv evt. igen."
        Exit Sub
    Else
        rækkenummer = CInt(myInput)
    End If
   
    'Tjekker om input er et tal i det rigtige interval.
    If Not rækkenummer = 365 And rækkenummer < 36 Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer i intervallet 36-365. Prøv evt. igen."
        Exit Sub
    End If

men så virkede den kun på mindre end de 37,  hvis jeg gør sådan her..  så kan jeg bruge begge tal.. 

Dim myInput As Variant
Dim rækkenummer As Integer

myInput = InputBox("Indtast rækkenummer for, hvor ny linje skal være f.eks. '79'." & vbNewLine & vbNewLine & "Min. 37 og maks. 365.", "Tilføj ny linje")

    'Tjekker om input er et tal.
    If Not IsNumeric(myInput) Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer. Prøv evt. igen."
        Exit Sub
    Else
        rækkenummer = CInt(myInput)
    End If
   
    'Tjekker om input er et tal i det rigtige interval.
    If Not rækkenummer = 365 And rækkenummer < 36 Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer i intervallet 36-365. Prøv evt. igen."
        Exit Sub
    End If

    'Tjekker om input er et tal i det rigtige interval.
    If Not rækkenummer = 365 And rækkenummer > 365 Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer i intervallet 36-365. Prøv evt. igen."
        Exit Sub
    End If

Dim myInput As Variant
Dim rækkenummer As Integer

myInput = InputBox("Indtast rækkenummer for, hvor ny linje skal være f.eks. '79'." & vbNewLine & vbNewLine & "Min. 4 og maks. 666.", "Tilføj ny linje")

    'Tjekker om input er et tal.
    If Not IsNumeric(myInput) Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer. Prøv evt. igen."
        Exit Sub
    Else
        rækkenummer = CInt(myInput)
    End If
   
    'Tjekker om input er et tal i det rigtige interval.
    If Not rækkenummer = 666 And rækkenummer < 4 Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer i intervallet 4-666. Prøv evt. igen."
        Exit Sub
    End If

    'Tjekker om input er et tal i det rigtige interval.
    If Not rækkenummer = 666 And rækkenummer > 666 Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer i intervallet 4-666. Prøv evt. igen."
        Exit Sub
    End If
   
   
    Rows(rækkenummer).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range(rækkenummer).Select
    Selection.AutoFill Destination:=Range(rækkenummer), Type:=xlFillDefault



End Sub

Hej Ebea,

Jeg tror jeg løste problematikken på denne måde.. 

(dog har jeg et problem, hvis jeg sletter en helt Row, kan den ikke køre efterfølgende)


Sub Tilføj_linje_tilbud111()
'Opretter en ny linje til sælger på arket Tilbud.
'MGB 26.03.2021


Dim myInput As Variant
Dim rækkenummer As Integer

myInput = InputBox("Indtast rækkenummer for, hvor ny linje skal være f.eks. '79'." & vbNewLine & vbNewLine & "Min. 4 og maks. 666.", "Tilføj ny linje")

    'Tjekker om input er et tal.
    If Not IsNumeric(myInput) Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer. Prøv evt. igen."
        Exit Sub
    Else
        rækkenummer = CInt(myInput)
    End If
   
    'Tjekker om input er et tal i det rigtige interval.
    If Not rækkenummer = 666 And rækkenummer < 4 Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer i intervallet 4-666. Prøv evt. igen."
        Exit Sub
    End If

    'Tjekker om input er et tal i det rigtige interval.
    If Not rækkenummer = 666 And rækkenummer > 666 Then
        MsgBox "Fejl: Du skal indtaste et rækkenummer i intervallet 4-666. Prøv evt. igen."
        Exit Sub
    End If
   
   
    Rows(rækkenummer).Select
    Selection.Copy
    Selection.Insert Shift:=xlDown

Range(Cells(rækkenummer, 1), Cells(rækkenummer, 3)).Select
Selection.Clear

Range(Cells(rækkenummer, 8), Cells(rækkenummer, 9)).Select
Selection.Clear

End Sub