Este fórum está sendo desativado

[MauricioPL]

Olá,

estou criando um Workbook que será utilizado para preenchimento por várias pessoas diferentes. Ele possui um layout com 10 linhas de conteúdo e formatação predefinidos.

Gostaria de criar um botão para, caso determinada pessoa necessite, acrescentar mais linhas iguais a estas (copiar e inserir). Mas estas devem ser inseridas sempre antes de um outro bloco de linhas (se este bloco começa na linha 30, após a inserção de nova linha ele passa para a 31 e assim por diante).

É simples?
Obrigado.
Mau

[MauricioPL]

Consegui resolver da seguinte forma. Não sei se foi a solução mais eficiente, mas pelo menos funcionou...

Código: Selecionar todos

Sub Adiciona()
    Dim lRow As Long
    Dim ws As Excel.Worksheet
    Dim lLast As Long
    
    Application.ScreenUpdating = False
    
    Set ws = ActiveSheet
    With ws
        lLast = .Cells(.Rows.Count, "B").End(xlUp).Row
        For lRow = lLast To 2 Step -1
            If .Cells(lRow, "B") <> .Cells(lRow + 1, "B") Then
                .Range("Copia").Select
                .Range("Copia").Copy
                .Rows(lRow).Insert
            End If
            
        Next lRow
    End With
    
    Application.ScreenUpdating = True
    
End Sub

Abs,
Mauricio