Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketIdsætning af linje med Formel fra ovenstående..

 Besvar Besvar
Forfatter
Tor4Every1 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 15.Mar.2021
Land: Danmark
Status: Offline
Point: 47
Direkte link til dette indlæg Emne: Idsætning af linje med Formel fra ovenstående..
    Sendt: 25.Mar.2021 kl. 12:58
Hej Alle,  

Jeg er igang med at lave en kode til at kunne indsætte en række med hjælp fra en box, hvor man trykker hvilket række nummer det skal indsætte en ny række i ...  dette skal helst gøres med formlen fra under eller oven af ..  så den husker alle formler hver gang..  

Sub Tilføj_linje_tilbud()
'Opretter en ny linje til sælger på arket Tømrer.
'MGB oprettet den 24.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. 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 4-365. Prøv evt. igen."
        Exit Sub
    End If

    
    
    Rows(rækkenummer).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


Det hele gør den her,,  dog kan jeg ikke få den til at autofill  fra linjen ...  kan nogen hjælpe med dette sikkert simple problem ? 


På forhånd tak.. 
Til top



Til top
Tor4Every1 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 15.Mar.2021
Land: Danmark
Status: Offline
Point: 47
Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 26.Mar.2021 kl. 08:21
her er løsningen .... 


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



Til top
Tor4Every1 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 15.Mar.2021
Land: Danmark
Status: Offline
Point: 47
Direkte link til dette indlæg Sendt: 26.Mar.2021 kl. 07:16
var lige nød til at ændre den lidt, så den virkede :) 

Sub Tilføj_linje_tilbud()
'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

    'Tjekker om input er ud for 'Emne'
    If Cells(rækkenummer, 2) = "Emne" Or Sheets("Tilbud").Rows(rækkenummer).RowHeight = 15.75 Then
        MsgBox "Fejl: Du kan ikke indsætte en linje ud for 'Emne' eller overskrift. Prøv evt. igen."
        Exit Sub
    End If
    
    
    Rows(rækkenummer).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    

End Sub

Til top
Tor4Every1 Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 15.Mar.2021
Land: Danmark
Status: Offline
Point: 47
Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 26.Mar.2021 kl. 08:21
her er løsningen .... 


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



Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk