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á