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

Sub MudaCorFonte() Dim r As Range For Each r In Range("B1:D9") If r.Font.Color = 12611584 Then r.Font.Color =...

Problemas com células mescladas. Na planilha Sheet2 coloque cabeçalhos de colunas na linha 3 (abaixo das células mescladas que estão na linha 2). Exe...

O código que eu sugeri, aplicado no arquivo que você disponibilizou retorna o resultado abaixo na planilha Sheet2, que é igual ao resultado que você c...

Experimente: Sub OrganizaDados() Dim r As Range, i As Long For Each r In Sheets("Sheet1").Range("B4:B" & Sheets(...

Substitua Value por FormulaLocal: Worksheets("Mov Prod").Cells(intLinhaMovProd, 2).Value = strFormula Worksheets("Mov Prod").Cel...

Experimente: substitua as duas linhas abaixo Range("A1048576").End(xlUp).Offset(1, 0).Select ActiveCell = "subto...

Coloque exatamente na parte que você pediu: Range("A1048576").End(xlUp).Offset(1, 0).Select ActiveCell = "subtotal da coluna D ...