Segue planilha

chook, favor postar o arquivo compactado ok...
qto a sua duvida ñ achei o vendedor Rodrigo nem nada parecido. será q ñ enviou a planilha errada ñ...

Dê retorno por favor

chook, Boa tarde
eu acredito que resolvi o seu problema segue em anexo
eu add comentario no local onde eu mudei verifique
por favor se deu certo retorne e feche o post
e click na maozinha okei abraço

Bom dia amigos,

mesmo com as alterações ainda continuo tendo dificuldades com a planilha. Fiz alguma adaptações no código. O que preciso é que ao selecionarmos o mês de Janeiro, por exemplo, apresente a quantidade de vendas realizadas naquele período para cada vendedor e o total de vendas em R$.

Há algum erro no código postando pelo m_araujo » Ontem, 17:17, pois o resultado correto para Janeiro e o vendedor Rodrigo é 0086 - R$ 6.945,00, no entanto no cockpit está apresentando 0042 - R$ 4.666,00

Depois das mudanças que fiz, apresentou erro na linha If Range("AE" & j).Value = "RODRIGO" And Month(Range("B" & i).Value) = 1 Then
onde honestamente não consegui identificar o erro.

Private Sub janeiro_Click()
Sheets("Pedidos").Select ' Mudei aqui
Dim Linha, i, j, contador1 As Integer
Dim media1, vendas, qtd  As Double ' Mudei aqui tambem
Linha = Range("M65536").End(xlUp).Row

'***********4º Contador
contador1 = 0
media1 = 0
For i = 3 To Linha
    If Month(Range("B" & i).Value) = 1 Then
        contador1 = contador1 + Range("L" & i).Value
        media1 = media1 + 1
    End If
Next i
media.Caption = contador1 / media1 ' Mudei aqui
media.Caption = FormatNumber(media.Caption, 2) ' Mudei aqui
vendas = 0
qtd = 0
For j = 3 To Linha
  
    If Range("AE" & j).Value = "RODRIGO" And Month(Range("B" & i).Value) = 1 Then
        vendas = vendas + Range("L" & j).Value
        qtd = qtd + 1
    End If
    If Range("AE" & j).Value = "THYAGO" And Month(Range("B" & i).Value) = 1 Then
        vendas1 = vendas1 + Range("L" & j).Value
        qtd1 = qtd1 + 1
    End If
Next j

Label16.Caption = Format(qtd, "0000")
Label17.Caption = Format(vendas, "#,##0.00")
Label18.Caption = Format(qtd1, "0000")
Label19.Caption = Format(vendas1, "#,##0.00")

End Sub

Na linha "If Range("AE" & j).Value = "RODRIGO" And Month(Range("B" & i).Value) = 1 Then"; está utilizando a variavel "i" que já está no final do arquivo (linha 1212) que tem um valor de texto e não data;
Altere a variavel i para j; ficaria assim:
If Range("AE" & j).Value = "RODRIGO" And Month(Range("B" & J).Value) = 1 Then
vendas = vendas + Range("L" & j).Value
qtd = qtd + 1
End If
If Range("AE" & j).Value = "THYAGO" And Month(Range("B" & J).Value) = 1 Then

Prezado Reinaldo,
antes de mais nada, grato pelo retorno. Sou bem iniciante no assunto e meu desenvolvimento se deve grande parte aos amigos do fórum, em especial ao Walter Morel. Bom passado os confetes, vamos em frente. Ajustei o código conforme indicado porém continua apresentando erro na mesma linha comentada anteriormente, If Range("AE" & j).Value = "RODRIGO" And Month(Range("B" & j).Value) = 1 Then
, já pensei e repensei e travei, não sei como resolver este problema.

A planilha está postada em anexo. O erro é tipos incompativeis!

Grande abraço a todos do fórum! Continuem firme pois este auxilio que oferecem é de grande importância!! (pra mim)

Private Sub janeiro_Click()
Sheets("Pedidos").Activate
Dim Linha, i, j, contador1, media1, vendas, qtd As Integer
Linha = Range("M65536").End(xlUp).Row

'***********4º Contador
contador1 = 0
media1 = 0
For i = 3 To Linha
    If Month(Range("B" & i).Value) = 1 Then
        contador1 = contador1 + Range("L" & i).Value
        media1 = media1 + 1
    End If
Next i
media.Caption = Format(contador1 / media1, "#,##0.00")

vendas = 0
qtd = 0
For j = 3 To Linha
  
    If Range("AE" & j).Value = "RODRIGO" And Month(Range("B" & j).Value) = 1 Then
        vendas = vendas + Range("L" & j).Value
        qtd = qtd + 1
    End If
    If Range("AE" & j).Value = "THYAGO" And Month(Range("B" & j).Value) = 1 Then
        vendas1 = vendas1 + Range("L" & j).Value
        qtd1 = qtd1 + 1
    End If
Next j

Label16.Caption = Format(qtd, "0000")
Label17.Caption = Format(vendas, "#,##0.00")
Label18.Caption = Format(qtd1, "0000")
Label19.Caption = Format(vendas1, "#,##0.00")

End Sub

chook

em sua planilha na coluna AE (Vendedor) nas linhas:755,1011,1054,1076,1079,1084,11560e 1165 estão com "#N/D", então o loop ao chegar nesse primeiro #N/D, já retorna com valor de erro.Altere essas informações que irá rodar. Apaguei essas informações das celulas e executou normal.

Resolvido!!!!!! Valeu Reinaldo!!