É menos trabalhoso escrever um código partindo do zero do que remendar códigos existentes e tentando adivinhar o resultado desejado. Sugiro que você d...

O que eu preciso é de uma macro que ao passar o mouse sobre as figuras do mapa O código abaixo roda ao pairar o cursor do mouse sobre um Rótulo (Lab...

Para a sua primeira questão experimente o código abaixo: Sub ListarCidades() Sheets("Lista").Range("A4:B" & Sheets...

Alternativa: Sub Macro1V2() Dim rng As Range With Sheets("Base Validação") For Each rng In .UsedRange If Application.Co...

Experimente: Sub CadastrarRepresentante() Dim m As Boolean, Ans, LR As Long If Application.CountA([W2:Y2]) < 3 Then Exit Su...

Experimente: Sub CriaHiperlinks() Dim r As Range For Each r In Range("B1:B" & Cells(Rows.Count, 2).End(3).Row) ...

Experimente: Sub contarleasesativos() Dim LR As Long With Sheets("Análise de Duplicidades") LR = .Cells(Rows.Count, 5)....

Sub ReplicaDadosV3() [C12:L16] = "": [A3:A7].Copy Cells(12, [B1] + 2) End Sub

Sub ReplicaDados() [A3:A7].Copy Cells(12, [B1] + 2) End Sub

Experimente: Range("O" & X).Value = WorksheetFunction.SumIf(Range("N16:N501"), ">=" & Range(&...

Cole o código abaixo no módulo de EstaPasta_de_trabalho. Private Sub Workbook_Open() Sheets("Plan1").[A1] = Now End Sub

Coloque aqui o código que apresenta o erro, pois eu não consigo baixar/abrir o seu arquivo Excel.

Experimente: Sheets("NomeDaPlanilha").[EndereçoDaCélula] = Format(TextBox1.Text, "mm/dd/yyyy") Exemplo: She...

No seu arquivo existe uma macro (Macro1_consulta_mensal) que estabelece o critério de busca como "jul/13", eu imagino que você vá fazer busc...

Bem, com base nas suas explicações e olhando o fluxograma do seu primeiro post, eu não consegui entender tudo mas entendi o suficiente para avaliar qu...