Infoga 4st tomma rader i Excel VBA

[Tommy H]

Hej!

Jag har kört fast.

Jag har en lista där det ligger grupper av text på olika rader

Behöver alltid ha 4st tomma rader under en viss text som jag söker fram.

Jag söker mig fram till t.ex "QL" som då står i samma kolumn t.ex på rad 2-5.

Då vill jag ha in 4st tomma rader på rad 6-9. (och endast 4st även om makrot körs en gång till)

Jag behöver atlltså känna efter så att det ligger 4st tomma rader efter QL-texten.

Jag tänkte mig något liknande detta, men det fungerar inte.

 

    Do
    Set myrn2 = myRn.Offset(4, 0)
        If Not IsEmpty(myrn2) Then
                .Offset(4, 0).EntireRow.Insert  'Infogar extra rad
        Else
                Exit Sub
        End If
    Loop

 

/TH

[Tommy H]

Ok!

Det ser bra ut!

Lite svårt detta här med när det ska användas "IsEmpty", " " , eller annat för att se om en cell eller ett cellområde är tomt.

Men detta fungerar!

Tack!