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

Considerei que todos os TextBoxes estão em um UserForm. Veja se o código abaixo ajuda. Se você não conseguir sugiro que você disponibilize uma amostra...

Olá, Isidro. 1. Fica mantida a sugestão anterior de eliminar o comando 'c.Activate' no código do botão "Pesquisar". 2. Agora, no código d...

Olá, Miguel. Experimente Range("D6") = TextBox1.Value ou Range("D6") = CDbl(TextBox1.Value)

Olá, Isidro. Eu só verifiquei o problema com o c.Activate, que foi o título do seu post. Se há outros problemas eu sugiro que você seja específico p...