Slet række i Excel

Du er nød til at opdatere formlen, lige efter du har slettet en række, her er et eksempel.


Sub Makro1()
Dim I As Integer, Col As String
  I = 35 ' rækken der skal slættes
  Col = "D" ' formelcellens kolonne
    Rows(I).Delete Shift:=xlUp
  Cells(I - 1, Col).AutoFill Destination:=Range(Col & I - 1 & ":" & Col & I), Type:=xlFillDefault
   
End Sub

Tak for dit svar. Har løst det på en anden måde nu. Ganske vist ikke så fint men det virker.

Private Function deleteRow(row)
    Dim i As Integer
    Dim rRow(10) As String
    Dim rRowNext(10) As String
    Dim vRowNext(10) As String
    rRowIn = Range("A" & row & ":K" & row).FormulaLocal
    rRowNextIn = Range("A" & row + 1 & ":K" & row + 1).FormulaLocal
    vRowNextIn = Range("A" & row + 1 & ":K" & row + 1).Value

    i = 0
    For Each rCell In rRowIn
        rRow(i) = rCell
        i = i + 1
    Next
   
    i = 0
    For Each rCell In rRowNextIn
        rRowNext(i) = rCell
        i = i + 1
    Next
   
    i = 0
    For Each vCell In vRowNextIn
        vRowNext(i) = vCell
        i = i + 1
    Next
   
    'Sletter rækken
    Range("A" & row).EntireRow.Delete
   
    If vRowNext(0) = "" Then
        Exit Function
    End If
   
    'laver ny række
    rowA = vRowNext(0)
    rowB = vRowNext(1)
    rowC = rRow(2)
    rowD = rRow(3)
   
    If rRowNext(4) = "=HVIS(D" & row + 1 & ">=0;E" & row & "+E" & row & "*B" & row & ";0)" Then
        rowE = rRow(4)
        'Range("E" & row).FormulaLocal = rowE
    Else
        rowE = vRowNext(4)
        'Range("E" & row).Value = rowE
    End If
   
    If rRowNext(5) = "=HVIS(C" & row + 1 & ">0;E" & row & "/B" & row & "+F" & row & ";0)" Then
        rowF = rRow(5)
        'Range("F" & row).FormulaLocal = rowF
    Else
        rowF = vRowNext(5)
        'Range("F" & row).Value = rowF
    End If
   
    rowG = rRow(6)
    rowH = rRow(7)
    rowI = rRow(8)
    rowJ = rRow(9)
   
    If rRowNext(10) = "=K" & row Then
        rowK = rRow(10)
    Else
        rowK = vRowNext(10)
    End If
    resultRow = Array(rowA, rowB, rowC, rowD, rowE, rowF, rowG, rowH, rowI, rowJ, rowK)
    Range("A" & row & ":K" & row).FormulaLocal = resultRow
End Function

Test svar

Vil du ikke smide et svar?

;-))