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

Experimente: Private Sub EntAcet_Click() EntAcet.Caption = Application.SumIf(Sheets("Lancamentos").[A:A], CD...

Considerando ao menos uma célula vazia na coluna "A". Sub OcultaVazias() Columns("A:A").Cells.EntireRow.Hidd...

=SOMARPRODUTO((ANO(BASE!A2:A25)=ANO(F2))*BASE!B2:B25)

...preciso fazer uma adaptação em uma planilha,quando a pessoa digitar a data de liberação, a planilha gera um numero de controle, que seria o código ...

Veja se ajuda. Sub ReplicaDados() Dim b As Long If [I2] <> "" Then Range("I2:M" & Cells(Rows.Cou...

Sub NumeraçãoV2() Range("B3").Value = 1 Range("B3:B4").AutoFill Destination:=Range("B3:B" &am...