Repetir o nome do cliente em outra aba de acordo com uma dat

2024 - VBA & Macros

Post Recente por Carlos_MCZ 7 anos atrás

3 Posts

2 Usuários

0 Reactions

836 Visualizações

RSS

Carlos_MCZ

(@carlos_mcz)

Posts: 7

Active Member

Topic starter

Bom dia, Senhores!

Gostaria de saber se existe alguma forma para a realização do procedimento abaixo.

Aba "Clientes" na coluna A ao iniciar da linha 05 tenho nomes de clientes e na coluna B da linha 05 tenho a data de adesão.

Possuo mais 12 abas, cada uma com o nome dos meses (JAN - FEV - MAR...)

Gostaria que o nome do cliente da aba "clientes" fosse inserido na aba do mês correspondente a data de adesão um abaixo do outro, da coluna "A" a partir da linha 05.

Isso é possível?

Postado : 05/04/2018 8:45 pm

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

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