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

Coluna "D" é onde deveriam aparecer as formulas da coluna "A", só que em VBA. Experimente: Range("D3:D" & Cel...

No código que eu sugeri as fórmulas estão exatamente como você as colocou aqui, então se a segunda não está retornando o resultado correto você precis...

Você quer copiar o intervalo indicado nas células P1 e P2, é isso? Sub CopiaIntervaloV1() Range(Range("P1").Value & ":&...

Veja se aproveita. Sub InsereFórmulasValores() Range("A3:A10").FormulaLocal = "=SE(ÉCÉL.VAZIA(D3);SE(C3-HOJE()<0;&q...