Ola Pessoal, consegui fazer este relatório com a ajuda do pessoal deste forum, agora estou necessitando fazer com que seja impresso as linhas zebradas, Conforme segue um exemplo em anexo. Grato a todos que postarem no auxilio, abraço
Este o código que tenho
Sub ImprimirVDClientes()
Dim LINHA As Integer
Dim LINHAREL As Integer
Dim LINHATAB As Integer
Dim SumTotal As Double
Dim SumTotalx As Double
SumTotal = Format(SumTotal, "##,##0.00")
LINHATAB = 2 'Pegar os dados da TabVendas A2
LINHAREL = 8 'Pegar os dados da RelPedido A7
Do Until TabVendas.Cells(LINHATAB, 12) = ""
If TabVendas.Cells(LINHATAB, 12) > 0 Then
'PRODUTO
Sheets("TabVendas").Cells(LINHATAB, 1).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 1)
'DESCRICAO
Sheets("TabVendas").Cells(LINHATAB, 3).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 2)
'QUANTIDADE
Sheets("TabVendas").Cells(LINHATAB, 7).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 4)
'PRECO
Sheets("TabVendas").Cells(LINHATAB, 6).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 5)
'TOTAL
Sheets("TabVendas").Cells(LINHATAB, 8).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 6)
LINHAREL = LINHAREL + 1
End If
LINHATAB = LINHATAB + 1
Loop
End Sub
.
Só fazer formatação condicional com a formula ... =MOD(LIN();2)=1 ... e escolher a cor!!
.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Ola JSCOPA, Por gentileza, teria este código para macro vba, ou algum exemplo prático para que eu possa aprender o funcionamento, grato, abraço
.
Veja a formatação condicional ... selecionei A1:I21 e fiz a FC !!!
.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel