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

Experimente a fórmula abaixo na célula 'D2' e arraste para baixo. =ÍNDICE($A$2:$A$10;CORRESP(MAIOR($B$2:$B$10;LIN(A1));$B$2:$B$10;0)) ...

eu não sei oq é melhor varrer a lista de nomes e fazer comparação ou usar o metodo direto e depender do on erro O comando 'On Error Resume Next' evit...

Veja se ajuda. Sub VerificaIntervaloNomeado() Dim IntNom As Range On Error Resume Next Set IntNom = Range("jacaré") On Error GoTo 0 ...

Veja se ajuda. Sub GeraNúmeros() Dim vt As New Collection, i As Long, r As Long, n As Range [B5:I9].Interior.Color = xlNo...

O que quer dizer o (3) e o (2) após o End no código? (3) equivale a (xlUp) (2) equivale e Offset(1,0)

Veja se este atende. Sub ReplicaDadosV2() Range("VENDA").Copy Sheets("Vendas").Cells(Rows.Count, 3).End(3)(...

Experimente Sub ReplicaDados() Range("VENDA").Copy Sheets("Vendas").Cells(Rows.Count, 3).End(3)(2) End Sub