Alan, veja se ajuda. Substitua o seu código pelo código abaixo. Private Sub ListBox1_Click() Dim c As Long c = Sheets("ESTOQUE").Col...

Como faço para desenvolver o botão do usuário 2? Olá, Paulo. Veja se o código abaixo faz o que você quer. Sub AtivaPlanDoDia() Sheets(CStr(Day(Da...

Experimente. Acrescentei as linhas abaixo: Application.ScreenUpdating = False Application.ScreenUpdating = True ActiveWindow.SmallScroll Down:=8 >&...

Experimente Workbooks.Open "C:MinhaPastaMeuArquivo.xlsm", False

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