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

Experimente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Or Targ...

Experimente : Sub Agendado() If [C1] = 1 Then Plan1.Cells(Plan1.UsedRange.Rows.Count + 1, 1).Value = [e1&#...

Experimente: Sub ContaRegistros() Dim d As Long, c As Long, m As Range, nc As Long With Sheets("Plan1") .AutoFilterMode = False ...