Indsæt automatisk en ny linje ved et nyt varenummer

Stil dig i den kolonne, hvor din ID er og kør makroen, du må ikke køre den 2 gange, så får du flere tomme liner.


Public Sub IndsætTomRække()
    Dim Rk As Long, I As Long, Col As Integer
    Rk = ActiveSheet.UsedRange.Rows.Count
    Col = ActiveCell.Column
    For I = Rk To 2 Step -1
        If Cells(I, Col) <> Cells(I - 1, Col) Then
            Rows(I).Insert Shift:=xlDown
        End If
    Next
End Sub

#1

If Cells(I, Col) <> Cells(I - 1, Col) Then

for at tage højde for ikke at sætte linier in hvis det er en tom linie
If Cells(I, Col) <> Cells(I - 1, Col) AND Cells(I,Col).Value <> "" Then

har jeg ikke ret?

mvh Jan

#1
det er ikke nok, sådan

Her virker det

Public Sub IndsætTomRække()
    Dim Rk As Long, I As Long, Col As Integer
    Rk = ActiveSheet.UsedRange.Rows.Count
    Col = ActiveCell.Column
    For I = Rk To 2 Step -1
        If (Cells(I, Col) <> Cells(I - 1, Col)) And (Cells(I, Col).Value <> "" And Cells(I - 1, Col).Value <> "") Then
            Rows(I).Insert Shift:=xlDown
        End If
    Next
End Sub

Spam

Det Script du har givet mig Kabbak, det fungerer. Men hvad skal jeg gøre hvis jeg gerne vil have makroen til at køre i forbindelse med "opdatere alle" funktionen i excel ?