Boa noite Carlos, segue conforme pedido.
Sub distribui_Clientes()
On Error Resume Next
Dim FBlank, ul, ulj As Long
ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row
planilha = Array("", "JAN", "FEV", "MAR", "ABR", "MAI", "JUN", "JUL", "AGO", "SET", "OUT", "NOV", "DEZ")
For j = 1 To 12
ulj = Sheets(planilha(j)).Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(planilha(j)).Range("A5:B" & ulj).Value = ""
Next j
For i = 5 To ul
mes = Month(Plan1.Range("B" & i).Value)
FBlank = Sheets(planilha(mes)).Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(planilha(mes)).Range("A" & FBlank).Value = Plan1.Range("A" & i).Value
Sheets(planilha(mes)).Range("B" & FBlank).Value = Plan1.Range("B" & i).Value
Next i
MsgBox "Os nomes foram distribuidos com Sucesso!", vbExclamation, "Realizado!"
End Sub
Abrç!
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].
Att.
André Arruda
Postado : 05/04/2018 10:06 pm