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

Olá, Carlos. Experimente o código abaixo no lugar do anterior. Acrescentei também um comando para permitir inserção de fórmulas na última linha da Tab...

sugestão - considerando a amostra que você disponibilizou no primeiro post acima, explique : 1. você quer construir a tabela S invertendo a ordem da ...

pode me mandar um arquivo de exemplo por favor? Instale o código abaixo em um módulo comum do arquivo que você deseja alterar o nome do módulo ...

Disponibilize uma amostra do seu arquivo Excel. Veja as regras do fórum sobre anexar arquivos.

alteração manual ~~~> selecione EstaPasta_de_trabalho / menu Exibir / Janela Pripriedades / no campo (Name) digite o novo nome (ex. JACARÉ) / apert...