[RESOLVIDO]Inserir linhas VBA

[Wagner.cwb]

Olá Caros!

preciso inserir linhas em uma planilha via vba.
Gravei uma macro para ver como poderia fazer e obtive o resultado abaixo:

Código: Selecionar todos

    Rows("6:6").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("8:8").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Percebi um padrão... ocorre em 2 em dois {Rows("6:6").Select; Rows("8:8").Select...}

tentei fazer desta forma:

Código: Selecionar todos

Dim I As Integer
           
    i = 4
    While Range("A" & i).Value <> ""
    Rows("i:i").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    i = i + 2
    Wend

Não obtive sucesso...

erro tempo execução 10004 - erro de definição de aplicativo ou de definição de objeto.

Acredito que seja por conta da variável, mas não tenho ideia de como declará-la.

Por favor, podem me ajudar,

obrigado! abraços!

[srobles]

Wagner.cwb,

Altere a linha linha : Rows("i:i").Select para Rows(i & ":" & i).Select.
As aspas em variáveis, se aplicam quando precisamos trabalhar com Strings (Textos). Caso deseja-se trabalhar com variáveis do tipo Integer( Inteiro / Numérico), as mesmas não se aplicam.

Experimente e retorne.

Abs

[Wagner.cwb]

Maravilha, muito obrigado!