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...

No código que eu sugeri altere > 340 para > 400 O código não irá executar se você alterar/limpar mais de uma célula de uma vez. Se não funcion...

De novo... Descreva com exatidão o que você quer que o código faça.

Olá, Pedro. Veja se é isso. O código abaixo vai inserir um texto na primeira célula vazia. Select Case cmbposto.Value 'inserir de acordo o valor ...

Daria para aplicar aqui também? Descreva com exatidão o que você quer que o código faça.