Troque o codigo que esta dentro do evento clique da listbox por este
Ele vai somar sua planilha, e preencher a partir da linha 8.
Private Sub ListBox1_Click()
Dim Nome As String
Dim WSh As Worksheet
Dim Linha As Long
Dim ULinha As Long
Dim Listboxlinha As Long
Dim Valor As Currency
Dim Soma As Currency
Dim Preço As Currency
Dim WS As Worksheet
Dim WSLinha As Long
Unload Me
Set WSh = Sheets("RelatórioSemanal")
Set WS = Sheets("clientevalor")
WSh.Range("E8:G" & Rows.Count).ClearContents
Linha = 2
WSLinha = 2
Listboxlinha = ListBox1.ListIndex
Nome = ListBox1.List(Listboxlinha, 0)
WSh.Range("I6").Value = Nome
Do While Cells(Linha, 1).Value <> ""
ULinha = WSh.Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Row
If WSh.Cells(Linha, 1).Value = Nome Then
WSh.Cells(ULinha, 5).Value = WSh.Cells(Linha, 1).Value
WSh.Cells(ULinha, 6).Value = WSh.Cells(Linha, 2).Value
WSh.Cells(ULinha, 7).Value = WSh.Cells(Linha, 3).Value
Valor = WSh.Cells(Linha, 2).Value
Soma = Soma + Valor
Linha = Linha + 1
Else
Linha = Linha + 1
End If
Loop
Do While WS.Cells(WSLinha, 1).Value <> ""
If WS.Cells(WSLinha, 1).Value = Nome Then
Preço = WS.Cells(WSLinha, 2).Value
Exit Do
Else
WSLinha = WSLinha + 1
End If
Loop
WSh.Cells(ULinha + 4, 5).Value = "TOTAL:"
WSh.Cells(ULinha + 4, 6).Value = Soma
WSh.Cells(ULinha + 4, 7).Value = Soma * Preço
End Sub
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 03/10/2017 3:18 pm