Makro og VBA - Indsætning af række ud fra variende række

Indsætning af række ud fra variende række

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1131
Udskrevet den: 12.Maj.2024 kl. 21:40

Emne: Indsætning af række ud fra variende række

Besked fra: HSO
Emne: Indsætning af række ud fra variende række
Posteringsdato: 03.Mar.2013 kl. 20:32

Mine evner indenfor VBA er begrænsede og jeg er ramt en mur som jeg ikke kan komme forbi. Jeg har et excel ark hvor jeg ønsker at indsætte en række med forskellige formler og formateringer ovenover en bestemt række, denne række varier dog i række nummer og jeg har defor benyttet mig af at skrive en tekst i rækken som makro'en så finder for derved at indsætte rækken ovenover.

Sub Indsæt_række01()
'
' Indsæt_række01 Makro
'
    Dim FindString As String
    Dim Rng As Range
    FindString = "Celletest"
    If Trim(FindString) <> "" Then
        With Sheets("Del Afsnit 01").Range("A:AR")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
                .Range("M1:BC1").Copy
                ActiveCell.EntireRow.Insert
                Insert.Selection
                Application.CutCopyMode = False
                Cells(1, 1).Select
            Else
            MsgBox "Nothing found"
            End If

        End With
    End If
End Sub

Således ser makro'en ud, men jeg har et problem i at jeg får en "Run-Time error 424 - Object Required" når jeg benytter makro'en, dog fungere makro'en tildels da den indsætter det markerede område på trods af fejlmeddelsen.

Desuden kan jeg ikke få makro'en til at rydde det kopierede område og derefter stille sig i celle A1.

Til sidst, er det så muligt at kopiere alt i mit markede område (Formler, Formatering etc.), men dog at udelade de "konstante værdier" som jeg har indtastet i det markede område?

Al hjælp er værdsat!

Svar:

Besked fra: excelent
Posteringsdato: 04.Mar.2013 kl. 17:32

Sub Indsæt_række01()
'
' Indsæt_række01 Makro
'
    Dim FindString As String
    Dim Rng As Range
    FindString = "Celletest"
    If Trim(FindString) <> "" Then
        With Sheets("Del Afsnit 01").Range("A:AR")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
                ActiveCell.EntireRow.Insert
               .Range("M1:BC1").Copy ActiveCell
              Application.CutCopyMode = False
    Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row, Selection.Column + 42)).SpecialCells(xlCellTypeConstants, 23).ClearContents
                Cells(1, 1).Select
            Else
            MsgBox "Nothing found"
            End If

        End With
    End If
End Sub

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: HSO
Posteringsdato: 04.Mar.2013 kl. 22:29

Det virker, mange tak

Besked fra: excelent
Posteringsdato: 05.Mar.2013 kl. 17:02

velbekom

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!