... porém quando clico no botão pesquisar ele acusa erro na linha c.activate O erro ocorre porque não é possível ativar/selecionar um intervalo, que ...

O comando 'Find' não consegue encontrar um valor oculto pelo Auto Filtro, porém ele consegue encontrar um valor em coluna oculta, independente se a cé...

substitua esta linha For Each c In Lançamentos.Range("A2:A" & Lançamentos.Cells(Rows.Count, 1).End(24)....

Gostaria de uma ajuda para implementar contagem por data... Não considerei o Produto pois entendi erradamente que você queria somente o critério data...

Experimente Function SomaPorPeríodo() Dim i As Date, f As Date, c As Range, v As Double Application.Volatile For Each c In Range("A2�...

Olá, Daniel. Veja se ajuda. O código abaixo colocará o resultado a partir de 'L1'. Sub AgrupaNúmeros() Dim n As Long, x As Long, LR As Long, c As L...

Aceita maiúsculas e minúsculas. Experimente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Targe...

Range("A3:H3").AutoFilter 1, "mar*"

Experimente: Sub AutoFiltro() Range("A3:H3").AutoFilter 1, [A1] End Sub

Olá, Jonas. Abaixo o código comentado. Cada comentário se refere à linha do código imediatamente acima dele. Sugestão - cole o código em um módulo, a ...

Apenas uma diferença, a atividade e o bairro se forem iguais devem ficar na mesma linha, independente se tem "MAT" ou "TARD"..... ...

Veja se ajuda. Sub ReduzTextoAdicionaValores() Dim k As Long, c As Long, x As Long, m As Long Dim v As Long, y As Long, w As Long Range("E2...

em 'C3' =SE(B3="";"";B3) em 'C4' e arraste para baixo =SE(B4="";"";B4+C3) aplique solução idêntica nas fórmu...

Olá, Jonas. Veja se o código abaixo faz o trabalho desejado. Sub Replicadados() Dim wso As Worksheet, wsd As Worksheet, x As Long Dim rgAs As Rang...

Experimente: Option Explicit Dim x As Integer, a As Integer Sub Teste_1() x = InputBox("Entre com o valor de x.") Call Teste_2 MsgBox ...