Boa tarde!
Estou com um problema nos relatórios da planilha que estou desenvolvendo (pois ele ser muito grande e possuir muitos dados e para facil entendimento vou postar o link do arquivo completo pelo sendspace ok pessoal!!!), em uma determinada UserForm fiz o procedimento de chamar a função somases, nesta janela preciso que em uma determinada textbox no meu caso é por exemplo TextBox006 exiba o valor do período após a verificação de 3 critérios que são respectivamente: cod. cliente, periodo 1 e periodo 2, porém o mesmo esta retorno o valor 0 entre as datas de período (as quais são informadas manualmente) o mesmo só da certo se a data final um dia maior que o último lançamento ou mais que 1 dia do ultimo lançamento referente a busca do cod. cliente, segue abaixo o link e como foi feito o procedimento.:
obs.: fiz o código na UserForm de nome [RESUMO_CLIENTE]
Abaixo está o código do commandbutton de nome buscar da userform Resumo_Cliente
Private Sub buscar_Click()
If listaCLIENTE = "" Then
MsgBox "SELECIONE UM CLIENTE NA LISTA DE CLIENTES", vbExclamation, ""
listaCLIENTE.SetFocus
Else
If TextBox002 <> "" And TextBox003 <> "" Then
'Restante valor
Set Somainterval = Sheets("LANÇAMENTOS").Range("AX2:AX12")
Set codCliente = Sheets("LANÇAMENTOS").Range("B2:B12")
Set intervalDatas = Sheets("LANÇAMENTOS").Range("D2:D12")
criterio1 = TextBox001.Value
criterio2 = TextBox002.Value
criterio3 = TextBox003.Value
resulRestante = WorksheetFunction.SumIfs(Somainterval, codCliente, "=" & criterio1, intervalDatas, ">=" & criterio2, intervalDatas, "<=" & criterio3)
TextBox006 = resulRestante
End If
End If
End Sub
link do arquivo completo: https://www.sendspace.com/file/cmj9gc
Desde já agradeço a todos que tentarem me ajudar rs
Alguma idéia de como solucionar esse problema ou outra forma de fazer?
obs2.: Também tentei fazer em vez de somases (sumifs) usar o somaproduto(sumproduct) porém deu mesma coisa
Postado : 23/05/2016 1:57 pm