CONTROLE DE SALÃO/P...
 
Notifications
Clear all

CONTROLE DE SALÃO/PRODUTOS

2 Posts
1 Usuários
0 Reactions
1,282 Visualizações
 RMC
(@rmc)
Posts: 54
Trusted Member
Topic starter
 

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 :D

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
 RMC
(@rmc)
Posts: 54
Trusted Member
Topic starter
 

O usuário Reinaldo havia me passando para mim alterar como data os textbox porém havia feito e não dado certo, porém reparei que o erro não estava após a formatação do textbox ja que mesmo era formatado como dd/mm/yyyy, como o Reinaldo havia dito teria converter para mm/dd/yyyy ja que a linguagem se subentende assim mas a formatação no meu caso teria ser feita dentro da propria worksheetfunction (era isso que faltava rs) mas vlw.

correto ficou assim:
resulRestante = WorksheetFunction.SumIfs(Somainterval, codCliente, "=" & criterio1, intervalDatas, ">=" & Format(criterio2, "mm/dd/yyyy"), intervalDatas, "<=" & Format(criterio3, "mm/dd/yyyy"))

 
Postado : 01/06/2016 6:02 pm