Na sub Alterar, o comando Exit Sub está encerrando a sub sem chavear a propriedade Enable.Events de volta para True. MsgBox "Dados alterados com...

Na meio de tantas coisas para resolver eu acabei informando a planilha errada, por favor, me desculpe. Relaxe, todo gênio é distraído. Dúvida...

Private Sub CommandButton1_Click() Dim cod As Range, codAdd As String, m As Long, p As String, c As Long, pr As Range, r As Long r = Cells(Rows...

Na imagem anexa, contém mais dados para entendimento dos colegas. A imagem é inútil, disponibilize uma amostra do seu arquivo Excel com o código inst...

Selecione qualquer célula da linha onde deseja inserir a nova linha e rode o código abaixo. Sub InsereLinhaColaFórmulas() Rows(ActiveCell.Row)&...

Esta questão está sendo tratada em outro fórum conforme link abaixo. Marcos, você tem o péssimo hábito de espalhar as suas questões por vários fóruns...

Precisa ser via macro? =SOMARPRODUTO((MÊS(Plan2!A5:A26)=1)*Plan2!C5:C26)

Amigo, você poderia disponibilizar uma amostra do seu arquivo?

"#,##0.000"

Experimente: ... ... Application.Wait Now + TimeSerial(0, 0, Sheets("Menu").[G6]) Loop &#...

Experimente substituir as aspas em vermelho. substitua estas ... “Atualiza_TD” por estas ..."Atualiza_TD"

Experimente: Sub GeraArquivos() Dim v As Long, LR As Long, c As String, wb As Workbook Dim cab As Variant, ws As Worksheet, n As Long Application...

... não estava funcionando porque eu estava usando o botão para selecionar todas as células de uma vez, Que botão é esse quando fiz a seleção...

Instale o código em um módulo comum, assim: 1. copie o código daqui 2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o edito...

... alguém tem uma macro para deletar as células que estiverem em branco e movimenta as demais para a direita até o fim da seleção? Tenho uma aqui qu...