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

antes você postou esta edieta = Application.WorksheetFunction.VLookup(Range(eCelE).Value, Dietas, 2, False) depois postou esta ??? edieta = Applicati...

Experimente: substitua esta linha edieta = Application.WorksheetFunction.VLookup(eCelE, Dietas, 2, False) por esta edieta = Application.WorksheetFun...

O código abaixo retorna a linha da coluna A que contiver o número 5. Retorna erro se não encontrar. Sub Teste() Dim CÓDIGO As Integer, k As Long C...