Este fórum está sendo desativado

[alexpaulo]

BOM DIA:

Preciso de uma macro que inclua uma nova linha vazia, a cada dez linhas.
Criei uma Macro para inserir uma linha sempre a partir da A12, por exemplo. Acontece que muitas vezes a tabela está com filtro e a última linha da página não é necessariamente a A12, por exemplo. Preciso que a nova linha fique sempre a cada dez linhas digitadas.


Desde já, grato pela atenção e parabéns por compartilharem o conhecimento.



***********************************************
ALEX PAULO

[alexandrevba]

Bom dia!!!

Código: Selecionar todos

Sub TenteIsso()
Dim r As Long, lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
    For r = 10 To lr Step 10
        Rows(r).Insert Shift:=xlDown
    Next r
End Sub

Att

[alexpaulo]

Grato pela ajuda.
Mas estou com um pequeno problema: Uso filtro, que dependendo do critério de pesquisa, oculta algumas linhas. Acontece que a Macro está contando todas as linhas, inclusive as ocultas. Haveria a possibilidade de ela apenas contar as linhas que estão sendo exibidas ?
Na verdade, preciso inserir uma linha em branco na primeira linha de cada página, a partir da segunda página.

Grato pela atenção.