Ir para conteúdo
Fórum Script Brasil

pedrolantin

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

Sobre pedrolantin

pedrolantin's Achievements

0

Reputação

  1. Olá, Alyson, desculpe a demora. Eu resolvi o problema de outra forma. Obrigado pela disposição.
  2. pedrolantin

    XLS Padlock

    Boa tarde, na verdade eu usei o xls padlock porque o lock xls danificou meus forms. Segue em anexo uma foto do que deveria aparecer (uma planilha do excel) e uma foto do que está aparecendo (uma planilha do excel sem células, sem opção de edição..)
  3. Boa noite, Alyson. O código retorna valores errados e eu não identifiquei onde está o erro. Eu imagino que deve estar nessa condicional abaixo, mas já tentei de outras maneiras e também não deu. If DateValue(TxtDataInicio2.Value) <= Sheets("ALUNOS").Cells(i, "N") And DateValue(TxtDataInicio2.Value) <= Sheets("ALUNOS").Cells(i, "O") And DateValue(TxtDataFim2.Value) >= Sheets("ALUNOS").Cells(i, "O") And DateValue(TxtDataFim2.Value) >= Sheets("ALUNOS").Cells(i, "N") Then Tentando explicar melhor a situação: Imagine que numa planilha tenha uma coluna com tipo de plano do cliente (mensal, trimestral, semestral), outra com data de início e outra com data de fim. Um usuário do programa irá acessar um formulário no qual irá digitar um período para o qual quer saber o quanto de dinheiro entrou na clínica (01/02/2019 a 28/02/2019, por exemplo). O código, então, tem que pegar essa data digitada pelo usuário e comparar com as datas de início e fim do plano escolhido pelo cliente. Se o plano estiver dentro da validade, irá somar os valores pagos (com a ressalva abaixo), mas dependendo do plano, não é o valor total pago, mas uma parcela dele (como explicado na ressalva). Ressalva: Se um cliente se matricula em 01/02/2019 num plano trimestral que custe R$300, seu plano valerá até 01/05/2019, mas para a contabilidade deve-se contar que no mês 2 entrou R$100, no mês 3 entrou R$100 e no mês 4 entrou R$100. Então, se o usuário que saber o quanto de dinheiro que entrou no período de 01/02/2019 a 15/02/2019, o código deve retornar só R$100. Da mesma forma, se o período inserido for 02/03/2019 a 30/03/2019, deve retornar R$100, mas se o período inserido for 01/02/2019 a 02/03/2019, deve retornar R$200 e se o período inserido for de 01/02 a 01/05/2019, deve retornar R$300. Cálculo semelhante é feito para o plano semestral, mas a divisão é por 6 daí. OBS: para facilitar ainda mais a vida do usuário final, esse código retorna o quanto entrou no caixa na forma de dinheiro, cartão de débito e cartão de crédito. Essa informação sobre a forma de pagamento está na Sheets("alunos").cells(i,"M"). Sheets("alunos).cells(i,"N") tem a data de inicio do plano e a cells(i,"O") tem a data final do plano. Cells(i, "L") tem o valor total pago.
  4. pedrolantin

    XLS Padlock

    Boa tarde, pessoal. Gostaria de uma ajuda de vocês: Fiz um formulário no excel que tem um botão para acessar a planilha com várias sheets. Quando se clica nesse botão, o seguinte código é lido: Unload nome_do_userform Application.Visible = True Isso estava funcionando perfeitamente. Porém, usei o programa XLS padlock para por mais segurança em minha planilha para compartilhá-la e quando se clica nesse botão, uma planilha excel é aberta, mas não mostra todas as sheets que deveriam aparecer. Fiz isso em 2 formulários diferentes... em um continuou funcionando e em outro não, mesmo utilizando as mesmas opções de bloqueio do padlock para ambas. Alguém sabe o que pode estar acontecendo? obs: já usei lock xls tb, mas não deu certo para meus formulários (desconfigurou uns labels e retirou o *** das textbox q eram campos de senha )
  5. Boa tarde, pessoal. Estou há dias quebrando a cabeça com uma rotina e gostaria da ajuda de vocês. Fiz uns formulários que serão utilizados em uma clínica. Um desses formulários é o de fluxo de caixa. Nele é possível inserir despesas e ver o total de despesas por período (período que o usuário digita em 2 textbox). Isso funcionou certinho porque a inserção da despesa é em 1 dia, ficando fácil a comparação entre datas. O que não estou conseguindo fazer é um código que retorne as receitas, haja vista que a clínica tem planos individual, mensal, trimestral e semestral. Explicando melhor: Quando se faz o cadastro do paciente, se escolhe o plano no formulário (combobox) e se insere a data de início do serviço. Um código automaticamente calcula a data de fim (1 mês, 3 meses ou 6 meses) e registra isso numa planilha. A rotina das receitas, então, deve ir nessa planilha, verificar se as datas de início e fim do serviço estão dentro do período digitado pelo usuário em 2 textbox (um para início e outra para data do fim do período). Uma vez que retorne um valor verdadeiro, deve verificar o plano: Se é trimestral e o período inserido pelo usuário é de um mês, deve pegar o valor total pago e dividir por 3.. se o período inserido é de 2 meses, deve pegar o valor total, dividir por 3 e então multiplicar por 2.. se o período for igual a 3 meses ou mais, retorna o valor total pago. Há solução para isso? Desde já agradeço. OBS; segue abaixo o que tentei fazer Private Sub CmbBuscar3_Click() If TxtDataInicio2.Text <> "" And TxtDataFim2.Text <> "" Then 'datainicio2 e datafim2 são os txtbox para inserção, pelo usuários, do período desejado periodo = DateDiff("m", DateValue(TxtDataInicio2.Value), DateValue(TxtDataFim2.Value)) Else MsgBox "Digite uma data de início e fim para a pesquisa" GoTo Rotulo1 End If nalunos = Sheets("ALUNOS").Cells(Rows.Count, 1).End(xlUp).Row dinheiro = 0 debito = 0 credito = 0 Total = 0 For i = 2 To nalunos If DateValue(TxtDataInicio2.Value) <= Sheets("ALUNOS").Cells(i, "N") And DateValue(TxtDataInicio2.Value) <= Sheets("ALUNOS").Cells(i, "O") And DateValue(TxtDataFim2.Value) >= Sheets("ALUNOS").Cells(i, "O") And DateValue(TxtDataFim2.Value) >= Sheets("ALUNOS").Cells(i, "N") Then If Sheets("ALUNOS").Cells(i, "J") = "Trimestral" Then If periodo <= 1 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 3) GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 3) GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 3) GoTo continue End If End If If 1 < periodo And periodo <= 2 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 3) * 2 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 3) * 2 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 3) * 2 GoTo continue End If End If If periodo > 2 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If End If End If If Sheets("ALUNOS").Cells(i, "J") = "Semestral" Then If periodo <= 1 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + Sheets("ALUNOS").Cells(i, "L") / 6 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + Sheets("ALUNOS").Cells(i, "L") / 6 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + Sheets("ALUNOS").Cells(i, "L") / 6 GoTo continue End If End If If 1 < periodo And periodo <= 2 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 2 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 2 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 6) * 2 GoTo continue End If End If If 2 < periodo And periodo <= 3 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 3 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 3 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 6) * 3 GoTo continue End If End If If 3 < periodo And periodo <= 4 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 4 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 4 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 6) * 4 GoTo continue End If End If If 4 < periodo And periodo <= 5 Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 5 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L") / 6) * 5 GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L") / 6) * 5 GoTo continue End If End If If 5 < periodo Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + (Sheets("ALUNOS").Cells(i, "L")) GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + (Sheets("ALUNOS").Cells(i, "L")) GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + (Sheets("ALUNOS").Cells(i, "L")) GoTo continue End If End If End If If Sheets("ALUNOS").Cells(i, "J") = "Individual" Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If End If If Sheets("ALUNOS").Cells(i, "J") = "Mensal" Then If Sheets("ALUNOS").Cells(i, "M") = "Cartão Crédito" Then credito = credito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Cartão Débito" Then debito = debito + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If If Sheets("ALUNOS").Cells(i, "M") = "Dinheiro" Then dinheiro = dinheiro + Sheets("ALUNOS").Cells(i, "L") GoTo continue End If End If End If continue: Next Total = credito + debito + dinheiro TxtReceitas.Text = "Receita em cartão de crédito: R$ " & credito & vbCrLf 'txtreceitas é onde irá retornar os cálculos TxtReceitas.Text = TxtReceitas.Text & "Receita em cartão de débito: R$ " & debito & vbCrLf TxtReceitas.Text = TxtReceitas.Text & "Receita em dinheiro: R$ " & dinheiro & vbCrLf TxtReceitas.Text = TxtReceitas.Text & "Receita Total: R$ " & Total & vbCrLf Rotulo1: End Sub
  6. Esses dias entrei em um site que disse que só poderia exibir as informações caso houvesse uma atualização do adobe (creio que do flash player). atualizei e não pude mais acessar meu banco pela internet (senhas bloqueadas). E quando entro no site do banco, o site diz que tenho que fazer uma atualização de cadastro (com senha, telefone, operadora...). Também após essa atualização, uma tela aparece de tempos em tempos dizendo que o "rawcap parou de funcionar" e, após uns 3 segundos, desaparece. Já passei anti-vírus Kasperski, windows defender, malware anti-malware e nenhum deles detectou nada de anormal (todos atualizados). Em anexo estão os logs do hijackthis e Mbrscan. Desde já, grato pelo ajuda.
×
×
  • Criar Novo...