Set W = Sheets("Somatória") ( erro em tempo de execução 9) justamente neste comando que o erro ocorre. Por acaso na mensagem de erro aparec...

Veja se este código abaixo faz o que você precisa Sub GeraVendaV2() Sheets("Lançamentos").Range("B5,B7,B9").Copy ...

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!