LOCALIZAR E INCLUIR EM UMA UNICA CÉLULA

2024 - VBA & Macros

Post Recente por xmiguelx 6 anos atrás

3 Posts

2 Usuários

0 Reactions

1,307 Visualizações

RSS

xmiguelx

(@xmiguelx)

Posts: 34

Eminent Member

Topic starter

Olá, pessoal, poderiam me ajudar?

Tenho um grande trabalho, porém acho que é possível fazer através de um comando em VBA, vou tentar resumir.

Tenho uma planilha com uma Sheet Chamada RESUMO, nessa Sheet eu incluo manualmente os códigos de produtos na coluna B que preciso saber as notas emitidas e identifico na Sheet Notas, todas as notas emitidas para esses códigos de produto que preciso e informo na coluna C da Sheet Resumo separando por ; uma nota da outra.

Criei um pequeno exemplo para facilitar no entendimento.

Agradeço desde já quem possa ajudar.

Abs

EXEMPLO 1.xlsm

Postado : 01/08/2018 1:22 pm

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Segue:

Sub Preencher()
Dim ul, ul2 As Long
ul = Plan1.Range("B" & Rows.Count).End(xlUp).Row
ul2 = Plan2.Range("B" & Rows.Count).End(xlUp).Row

For Each celula In Plan2.Range("C3:C" & ul2)
For i = 3 To ul
If celula.Value = Plan1.Range("B" & i).Value Then
If Plan1.Range("C" & i).Value = "" Then
Plan1.Range("C" & i).Value = celula.Offset(0, -1).Value
Else
Plan1.Range("C" & i).Value = Plan1.Range("C" & i).Value & ";" & _
celula.Offset(0, -1).Value
End If
End If
Next i
Next
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 01/08/2018 3:15 pm