Pulando Linha a cada Cliente

[Bruno Castro Goncalves]

Boa Noite,
pretendo fazer um relatório em uma aba chamada IMPRIMIR e ela vai ser alimentada por uma outra chamada PEDIDOS.

Usei até agora o seguinte código:
 

Sub pedidos()
lin = 4
linha = 4


Do Until Sheets("PEDIDOS").Cells(lin, 1) = ""
    If Sheets("PEDIDOS").Cells(lin, 1) = Sheets("IMPRIMIR").Cells(1, 2) Then
    Sheets("IMPRIMIR").Cells(linha, 1) = Sheets("PEDIDOS").Cells(lin, 1)
    Sheets("IMPRIMIR").Cells(linha, 2) = Sheets("PEDIDOS").Cells(lin, 3)
    End If
    lin = lin + 1
    linha = linha + 1
    Loop
End Sub

Da tudo certo e tal com um mero detalhe, gostaria de pular uma linha a cada cliente novo sem que ele se repita, ou seja, escreva o nome do cliente na primeira linha e os produtos na linhas abaixo e quando acaba os produtos desse cliente, pula uma linha e faz td de novo....

Obrigado desde já

[PRMPOKER]

Boa tarde.

 

Faço trabalhos de freelancer. Caso deseje me enviar a planilha, eu posso fazer um orçamento.

 

Um abraço.

[Bruno Castro Goncalves]

Me passa seu e-mail...o meu é brunolerin@gmail.com

Editado Junho 22, 2017 por Bruno Castro Goncalves

[MarVen]

Até onde eu sei, FORUM é para esclarecimentos de dúvidas, trocas de experiencias, etc, onde fica aberto para pesquisa de TODOS os membros.
Quer vender seu serviço, põe anuncio na OLX.