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

Sim, sugiro que você encerre este tópico e abra outro com a sua nova demanda.

O código abaixo funciona conforme comentei no post anterior. Private Sub Worksheet_Calculate() Dim X, k As Long For k = 1 To 7 X = Split(Cells(1, ...

Sim realmente, mesmo depois de atualizar tanto o post ainda me esqueci de dizer que na verdade preciso da coluna A até a coluna G Você não informou se...

Private Sub Worksheet_Calculate() Dim X X = Split([A1], "@") On Error GoTo fim Application.EnableEvents = False C...

No seu exemplo os dados citados (1@2@3@4@5@6) são os que você colocou na coluna A, suponho. E o resultado desejado onde está? Na coluna F vi uma sequê...

Veja se ajuda. Cole no módulo da planilha. Lembra disso? Eu acho que não fui claro o suficiente e você colocou o código em um módulo comum ao invés de...