Alyson Ronnan Martins

Qual o valor que esta retonando? <?php $consultCursoAluno = "select * from cursos inner join curso_escolhido ON (cursos.idCurso = curso_escolhido.idCursoPretendidoEscolhido) where idCursoAlunoEscolhido = '$idAluno' and checkedCursoEscolhido = '1'"; $conectaCursoAluno = $conecta->query($consultCursoAluno); while($resultCursoAluno = $conectaCursoAluno->fetch_object()){?> NomeCurso:<?= $resultCursoAluno->nomeCurso; //Consigo pegar os cursos que o aluno está fazendo ?><br> <?php $sqlCurso = "select * from carga_horaria where idAlunoCargaHoraria = '$idAluno' and idCursoCargaHoraria = '".$resultCursoAluno->idCurso."'"; $conectaCurso = $conecta->query($sqlCurso); $soma = 0; while($result = $conectaCurso->fetch_object()){//nesse while ele está transformando as horas em string e somando ele me da as horas em segundos total $horaPra = strtotime($result->horaPraticaCargaHoraria); $soma += $horaPra; $total = $soma; ?> HoraNormal - <?= $result->horaPraticaCargaHoraria;?> - - - HoraString (<?= $horaPra?;>)<br> <?php } echo $soma + "<br>";//O problema esta aqui, quando vou transformar esta hora que esta em segundos para a hora normal (date('H:i:s', $soma)) não transforma e quando transforma fica tipo com um hora a mais, ai da uma bagunçada }?>

poderia me mandar a foto do erro para olhar?

Boa noite @Agnaldo Pinheiro Eu não conseguir fazer esse erro acontecer no meu computador. Se possível tenta enviar a planilha com o erro. A sua segunda formulá esta errada: Range("D" & 4, "D" & 10).FormulaR1C1 = "=SGN(RC[-1])" Abaixo a maneira certa: Range("D4").FormulaR1C1 = "=SIGN(RC[-1])"

Boa noite. Sim é possivel fazer o que precisa só precisa especificar mais o seu "algoritimo", melhor dizendo a sequência que cada coisa tem que aconteceu para seu código funcionar. Procv em VBA: Application.VLookup Segue abaixo um exemplo de procv em VBA: Sub vbaProcv() Dim codigo_produto As Integer codigo_produto = Range("A2").Value resultado_procv = Application.VLookup(codigo_produto, Sheets("Planilha2").Range("A:B"), 2, False) Range("C2").Value = resultado_procv End Sub Se ainda precisa de ajuda continuamos aqui.

Boa noite. Teria como mandar essa planilha para tentar replicar isso que esta acontecendo?

alysonronnan@gmail.com

Boa noite. Teria como mandar uma foto ou a planilha para tentar te ajudar. E posso te ajudar a fazer.

Não entendi aonde esta o problema pelo código. poderia enviar a planilha para dar uma olhada?

Boa tarde. Tenta executar um "echo" na sua sql ($result_usuario)para ver se estar pegando todos os dados corretamente.

Boa tarde. Teria como disponibilizar a planilha para avaliar essa informação.

Boa tarde. Tenta abrir seu sistema em outro navegador para ver se vai indicar alguma valor no campo. Aguardo. Tebta no seu formulário o seguinte código: autocomplete="off Exemplo: <form method="post"> <input type="email" name="email" id="email_fake" class="hidden" autocomplete="off" style="display: none;" /> <input type="email" name="email" id="email" autocomplete="off" /> <input type="password" name="password" id="password_fake" class="hidden" autocomplete="off" style="display: none;" /> <input type="password" name="password" id="password" autocomplete="off" /> <input type="submit" value="Submit" /> </form>

Vou adiantando as informações. Código de Cadastro: Sub CadastrarSolicitacao() Dim LINHAS As Integer Dim NDay As Double Dim NDayPrev As Double If frm_ficha_solicitacao.ComboBox_TipoDeCHAMADO.Value = "" Then MsgBox ("Favor preencher o Tipo de Chamado."), vbCritical, Msg frm_ficha_solicitacao.ComboBox_TipoDeCHAMADO.SetFocus ElseIf frm_ficha_solicitacao.txt_cnpj.Value = "" Then MsgBox ("Favor preencher o CNPJ do destinatário."), vbCritical, Msg frm_ficha_solicitacao.txt_cnpj.SetFocus ElseIf frm_ficha_solicitacao.txt_empresa.Value = "" Then MsgBox ("Favor preencher a Empresa."), vbCritical, Msg frm_ficha_solicitacao.txt_empresa.SetFocus ElseIf frm_ficha_solicitacao.txt_chamado.Value = "" Then MsgBox ("Favor descrever á solicitação."), vbCritical, Msg frm_ficha_solicitacao.txt_chamado.SetFocus Else With Sheets("SOLICITACAO") 'Pesquisa a ultima linha para adcionar as informações 'LINHA = Sheets("SOLICITACAO").Range("B30000").End(xlUp).Row + 1 LINHA = .Cells(Rows.Count, "B").End(xlUp).Row + 1 'Iniciar o cadastro das informações .Range("B" & LINHA).Value = frm_ficha_solicitacao.NCHAMADO.Value .Range("C" & LINHA).Value = Now() 'Recebe o valor do dia util mais próximo: If Weekday(Now()) > 1 And _ Weekday(Now()) < 7 And _ WorksheetFunction.VLookup(CDbl(Now()), [DSR], 1, 1) <> Int(CDbl(Now())) Then NDay = Now() Else NDay = WorksheetFunction.WorkDay(Now(), 1, [DSR]) + _ fnTipoChamadoHoras(frm_ficha_solicitacao.ComboBox_TipoDeCHAMADO.Value, "Início") NDayPrev = NDay + _ fnTipoChamadoHoras(frm_ficha_solicitacao.ComboBox_TipoDeCHAMADO.Value, "Prazo") End If .Range("D" & LINHA).Value = NDay 'Colunas sem informações: (Marcadas em amarelo) 'E 'F 'G 'H .Range("I" & LINHA).Value = frm_ficha_solicitacao.ComboBox_TipoDeCHAMADO.Value For Contador = 3 To Sheets("CATEGORIA").Range("B100").End(xlUp).Row If Sheets("CATEGORIA").Range("B" & Contador).Value = frm_ficha_solicitacao.ComboBox_TipoDeCHAMADO.Value Then .Range("J" & LINHA).Value = Sheets("CATEGORIA").Range("D" & Contador).Value .Range("K" & LINHA).Value = Sheets("CATEGORIA").Range("C" & Contador).Value End If Next Contador 'Recebe o valor do dia util mais próximo: Sheets("SOLICITACAO").Range("L" & LINHA).Value = NDayPrev 'Colunas sem informações: (Marcadas em amarelo) 'M 'N .Range("O" & LINHA).Value = frm_ficha_solicitacao.txt_cnpj.Value .Range("V" & LINHA).Value = frm_ficha_solicitacao.txt_empresa.Value .Range("W" & LINHA).Value = frm_ficha_solicitacao.txt_chamado.Value End With MsgBox ("Seu chamar foi aberto sob NÚMERO: " & frm_ficha_solicitacao.NCHAMADO.Value + vbCrLf + vbCrLf + _ " Prazo para atendimento: " & XXXXXX), vbExclamation, Msg Unload frm_ficha_solicitacao End If End Sub Função para identificar a Horas pela Categoria: Public Function fnTipoChamadoHoras(TipoChadado As String, Tipo As String) As Double Dim NLinha As Integer Dim NLinhaAtual As Integer Dim TipoLinhaAtual As String NLinha = Sheets("CATEGORIA").Cells(Rows.Count, "B").End(xlUp).Row For NLinhaAtual = 3 To NLinha Step 1 TipoLinhaAtual = Sheets("CATEGORIA").Range("B" & NLinhaAtual).Value If TipoLinhaAtual = TipoChadado Then If Tipo = "Prazo" Then fnTipoChamadoHoras = Sheets("CATEGORIA").Range("C" & NLinhaAtual).Value ElseIf Tipo = "Início" Then fnTipoChamadoHoras = Sheets("CATEGORIA").Range("E" & NLinhaAtual).Value End If End If Next NLinhaAtual End Function Arquivo: EXEMPLO_DATA&HORA.xlsm @xmiguelx

Bom dia. Esta disponível para explicar a formulá que quer fazer em VBA?

Boa noite. @xmiguelx Só para questão de duvida. Você usa qual office? Exemplo: 2010, 2007, 2016...

Recomendo o Select2(jquery)

Com os dados em array você já consegue montar gráfico: Exemplo de gráfico de barras SetFileFormat("png"); #Indicamos o títul do gráfico e o título dos dados no eixo X e Y do mesmo $grafico->SetTitle("Gráfico de exemplo"); $grafico->SetXTitle("Eixo X"); $grafico->SetYTitle("Eixo Y"); #Definimos os dados do gráfico $dados = array( array('Janeiro', 10), array('Fevereiro', 5), array('Março', 4), array('Abril', 8), array('Maio', 7), array('Junho', 5), ); $grafico->SetDataValues($dados); #Neste caso, usariamos o gráfico em barras $grafico->SetPlotType("bars"); #Exibimos o gráfico $grafico->DrawGraph(); ?> Fonte: https://www.devmedia.com.br/criando-gráficos-com-php/11466

@manogaucho boa noite. Dica 1: você usando o javascript pode fazer essa interação ser mais rapida (para não recarregar a pagina e perder a pesquisa) Dica 2: mesma coisa para o checkbox o javascript pode olhar para todas as linhas para sair apagando as selecionadas. FONTE: https://pt.stackoverflow.com/questions/25088/como-contar-quantidade-de-checkbox-selecionados

O nome da Classe esta com o mesmo nome do objeto. Até as letras mauisculas e minusculas.

Tenta "gravar" uma macro fazendo o filtro e vai ver que tem mais opções. Tentar preencher todos as opções para parar o erro.

Não entendi o problema. Já colocou para armazernar na planilha?

Boa noite. já entrei uns problemas que realmente fica aberto mais não esta aberto em canto nenhum. A opção que penso é criar aba (oculta) para armazer: data; hora; computador; usuario. Se fizer isso na hora que abre e salvar você abre somente leitura e verifica aonde foi aberta pela ultima vez

Desculpa a demora. Ainda precisando da ajuda?

Tenta usar o Application.Calculation = xlManual

@Rheden Boa noite. Eu vi o código e no ponto 2 você diz que quer colocar o código na k9 do "MacroImprimir" ... Sheets("MacroImprimir").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Seria nescessário informar a area que vai colocar: ... Sheets("MacroImprimir").Select 'Agora seleciona aonde vai colocar oa dados: Range("K9").select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Mudando um pouco o código você pode colocar o valor diretamente na plnilha que deseja da seguinte maneira: sheets("CalcularMacro").Range("K9").value = sheets("Cálculo").Range("P2").value Assim você coloca o valor diretamente no campo que precisa.

Boa tarde. Olha se consegue utilizar esse link: https://www.usandoaccess.com.br/Dicas/filtrar-independente-acentuacoes-access.asp?id=1