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

É possível com Botão de Formulário (Botão 1, não CommandButton1 - ActiveX). Se esta for uma solução viável para você: 1. desenhe um Botão de Formulár...

...sou apaixonado por VBA ... Dicas: 1. escreva os seus códigos sem utilizar o comando Select 2. esta expressão ~~~> Range("A1048576").En...

Experimente: Private Sub CommandButton5_Click() ActiveCell.Resize(, 4).Interior.ColorIndex = 6 End Sub

opção sem Select (recomendável): Sub Copiar_primeiro() Range("J" & [P4] & ":k" & [P4])....

alternativa ~~~> em Propriedades do botão desmarque Imprimir objeto obs. a opção Imprimir objeto pode ser desmarcada ao criar cada botão ~~~> c...

Experimente: Sub ClassificarOrdemAlfabeticav2() Dim LR As Long ' ClassificarOrdemAlfabetica Macro LR = Cells(Rows.Count, 1).End(3)....