Olá, Cabral. A função INDIRETO não funciona no caso de Validação com Intervalo Dinâmico. Uma forma de contornar, utilizando INDIRETO, é transformar ...

Experimente substituindo estas linhas For Each Ws In Worksheets Ws.Copy before:=Destino.Sheets(1) Next por esta ActiveSheet....

(1) >> equivale a (xlToLeft) (2) >> equivale a (xlToRight) (3) >> equivale a (xlUp) (4) >> equivale a (xlDown)

Olá, Rafael. Veja se ajuda. Substitua o seu código pelo código abaixo. Private Sub CommandButton1_Click() Dim k As Long, m As Long, LR As Long, x A...

Private Sub Workbook_Open() If MsgBox("Deseja executar a Macro?", vbYesNo + vbQuestion) = vbYes Then teste End Sub

Experimente o código abaixo no lugar do seu. Sub NumeraRegistro() If ActiveCell.Address = "$A$3" Then ActiveCell.Value = 1 El...

Os dois últimos códigos são alternativas aos códigos anteriores. Faça os testes com um de cada vez e no lugar dos anteriores

Seguem 2 alternativas que não desabilitam o Ctrl+z. Dê duplo clique em qualquer célula vazia para rodar o código. O primeiro código ativa a célula 'A1...

Veja se serve assim. A figura será reposicionada ao mudar a célula selecionada após deslizar a tela. O evento "scroll" (deslizar a tela) não...

Eu prefiro buscar na última usada e colar abaixo dela. Experimente este código Sub TransfereDados() Dim localizador As Range, ENDERECO As String ...

eu estou tentando colar essas informações dentro de uma Tabela. Porém, a Macro sempre cola fora da Tabela, abaixo dela. a Tabela começa na A5:N5, e se...

Abaixo uma versão sem o uso de 'Select' Sub localizaV2() Dim localizador As Range, i As Long, ENDERECO As String i = 2 With Plan1....

Experimente acrescentando a linha abaixo em azul: Set localizador = .FindNext(localizador) If localizador Is Nothing Then Exit Sub

Conforme indicado no site abaixo não é possível ordenar por data diretamente. Transcrevi abaixo o trecho de interesse. https://support.micro...

Experimente =ÍNDICE(C2:H2;CORRESP(1;SE(C2:H2<>"";1);0)) obs. é fórmula matricial, após colar na célula aperte F2 e em segui...