substitua esta linha ActiveCell.Offset(1, 0).Range("B5").Select ' posiciona na primeira livre por esta ActiveCell.Offse...

Abaixo o código para deletar/excluir linhas. As referências estão de acordo com a sua planilha "Base". Se atender a sua necessidade é só en...

Olá, Jonas. Além de algumas divergências entre o seu primeiro e o seu último post, o loop que visa deletar/excluir linhas só é eficiente se for de bai...

Um código Worksheet_Change é disparado em decorrência de qualquer alteração em célula que não seja alteração ocorrida por resultado de fórmula. Um có...

Experimente o Worksheet_Calculate

Experimente: Sub DeletaLinha() Dim LR As Long, k As Long LR = Cells(1, 1).End(4).Row For k = LR To 2 Step -1 If Application.Count...

Olá, Dutra. O código abaixo faz cópias somente das planilhas "Sheet2" e "Sheet3". Sub SalvandoBasesEmplacamentos() ' SalvandoBases...

Olá. Experimente: Sub SalvandoBasesEmplacamentosV2() ' SalvandoBasesEmplacamentos Macro ' Keyboard Shortcut: Ctrl+Shift+O Dim ws As Worksheet ...

Olá. Experimente substituir estas linhas lastResultRow = lastResultRow + 1 End If Next MsgBox ("Os dados solicitados estão prontos") por e...

Olá, Wilson. Veja se ajuda. Sub ConsolidarDados() Dim LR As Long, m As Long, c As Long Range("G2:H" & Cells(Rows.Count, 7)&...

sugestão - disponibilize uma amostra do seu arquivo, com 15 a 20 linhas contendo dados e com o resultado esperado; explique o critério que você adotou...

Experimente : Sub ProcuraArquivo() Dim strPath As Variant, emp As Range For Each emp In Range("A2:A" & Cells(Rows.Count, 1)&#...

Se alguém quiser tentar ajudar fique à vontade.I'm out!

(xlToLeft)

Quando as células B5, B8, B11, B14, B17...... até B400 (saltando sempre duas) na plan1 forem alteradas ou apagadas. ou quando a célula B22 na plan2 fo...