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

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