About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2006-01-03
Se tivermos preenchidas linhas, como no exemplo



e pretendermos inserir linhas em branco após 4 linhas de dados, ou seja, sempre à próxima 5ª linha,



podemos utilizar o seguinte Código, adaptado de Dave Peterson:

Private Sub CommandButton1_Click()

'Adiciona 1 linha em branco após 4 linhas
'Código original por: Dave Peterson
    
    Dim iCtr As Long
    Dim LastRow As Long
    Dim myRng As Range
    
    With ActiveSheet
        LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
        Set myRng = Nothing
        For iCtr = 5 To LastRow Step 4
            If myRng Is Nothing Then
                Set myRng = .Cells(iCtr, "A")
            Else
                Set myRng = Union(.Cells(iCtr, "A"), myRng)
            End If
        Next iCtr
    End With

    If myRng Is Nothing Then
        'Não faz nada
    Else
        myRng.EntireRow.Insert
    End If
    
End Sub