MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ajuda para recursos de minha planilha

    Compartilhe

    Edgardido
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/10/2013

    Ajuda para recursos de minha planilha

    Mensagem  Edgardido em 28/10/2013, 13:36

    Olá, Bom Dia!
    Mais uma vez recorro a vocês do Fórum para conseguir uma brilhante Solução.
    Estou desenvolvendo um Projeto e estou precisando arrumar os seguintes recurso do projeto que estou enviando compactada;

    -peço que expliquem com detalhes pois, ainda estou engatinhando no access

    Ao abrir Projeto ele abre o FmrHorasdeUsinagem; Digite um dos valores (420013, 404013 ou 402013) e click em "OK"

    Bem aqui eu lanço as informações de horas de cada procedimento.
    e no campo Totais embaixo faço a Soma destas horas.

    1°Problema: Ao clicar no Bt "Relatório" do formulário
    Quero que abra o Relatório "RltHorasdeUsinagem" com o filtro do Formulário, neste caso com o valor da caixa de texto "TxtOS1".
    e inserir o valor dos totais de cada campo do Formulário.

    2°Problema: Para calcular os totais de cada campo, com ajuda de vocês do Fórum, inseri um comando que calcula ao abrir Form. e após o campo perder foco. Porém ele nem sempre que saio do campo esta atualizando.
    -neste problema peço que me ajudem a analisar o código e ver também se consigo reduzi-lo, afinal sei que muitas vezes faço um código enorme e no final das contas 2 linhas resolve o meu problema. rsrsrsrs

    3° Problema: Quero pode Digitar
    "30" e o campo atualizar para "0:30"    
    "1020" e o campo atualizar para "10:20"
    "12030" e o campo atualizar para "120:30"
    assim por diante.




    Agradeço a Ajuda de vocês do Fórum, e espero logo poder a contribuir também a final estou estudando muito sobre o assunto.
    Anexos
    HoradeUsinagem - Cópia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (246 Kb) Baixado 12 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Ajuda para recursos de minha planilha

    Mensagem  good guy em 28/10/2013, 16:28

    Olá Edgardido,

    Estude a função Format no Ajuda do Access (pressione a tecla F1) na segunda dúvida.


    Se seu código do botão possuir naturalmente uma InputBox.

    Dim strPergunta As String

    strPergunta = Format("Digite a hora: ","Pergunta"), "00:00")

    Me.NomedoCampo = strpergunta


    Ou o seu campo já possuir uma máscara de entrada com este formato. Modo Estrutura, propriedade do campo:

    Máscara de entrada 00:00


    No início. Entendo que seja um formulário tabular.

    Dentro do ambiente de código de seu formulário, em Form_Open():

    Dim i As Integer
    Dim strValor As Double

    i = Forms!NomedoForm!Codigo
    For i = 1 To 3
    strValor = Format(InputBox("Digite a hora:","Informação"),"00:00:00")

    Next i


    Na Fonte de controle de seu campo Total no rodapé do formulário inclua uma função que calcule as horas. Ou algo parecido.

    =SuaFunção()

    O Avelino tem um brilhante função que calcula as horas.

    [Você precisa estar registrado e conectado para ver este link.]

    Edgardido
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/10/2013

    Mensagem  Edgardido em 29/10/2013, 09:55

    Olá, agradeço sua ajuda.
    Com tudo;
    -1°Problema: ?
    -2°Problema:Pode me explicar mais detalhadamente o assunto  não consegui entender. Lembrem-se das regras do fórum "tenham paciência " kkkkkk
    -3°Problema: na textbox onde insiro o valor de OS: (TxtOs1) eu coloquei formatação para que ela inseri-se a "barra", mas para os campos com formato de "00:00"  não consigo inserir  ":"  . O que estou tentando é "0\:00" ou #\:00 não está funcionando.

    Fico no aguardo.
    Desde já muito obrigado!
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Ajuda para recursos de minha planilha

    Mensagem  good guy em 29/10/2013, 13:26

    Olá Airton,

    Como seu código é bastante extenso, não entendi onde você está tendo problemas. Por favor, destaque o código, sinalizando onde você está tendo problemas.

    Edgardido
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/10/2013

    Re: [Resolvido]Ajuda para recursos de minha planilha

    Mensagem  Edgardido em 29/10/2013, 14:23

    Tá, vamos começar pelo 1°Problema
    que é o que eu estou precisando mais.

    -Minha planilha tem mais 700.000 registros, para abrir o formulário com os registros que eu queria já consegui. Agora quero que, ao clicar no botão Relatório, abra o relatório filtrado apenas com os registro do Formulário que já esta filtrado pela caixa de texto (TxtOS1).

    Obs: Me desculpe também achei que postei muitas duvidas da primeira vez.

    Edgardido
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/10/2013

    Re: [Resolvido]Ajuda para recursos de minha planilha

    Mensagem  Edgardido em 29/10/2013, 16:27

    Solução que encontrei para o 1°Primeiro: (Abrir Relatório com o mesmo filtro do Formulário)
    Criei um botão "BtRelatorio", nele inseri no evento (Ao liberar mouse) o seguinte código;
    Código:
    Private Sub BtRelatorio_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ''Abre relatório filtrando pelo valor da caixa de texto TxtOS1
    DoCmd.OpenReport "RltHorasdeUsinagem", acViewPreview, , "[OSH]=" & Me.TxtOS1

    ''Valor do campo Total do relatório = Campo Total do Formulário
    Report_RltHorasdeUsinagem.TxtRltResultadoSubPrep = Me.TxtResultadoSubPrep
    Report_RltHorasdeUsinagem.TxtRltResultadoSubFRESA = Me.TxtResultadoSubFRESA
    Report_RltHorasdeUsinagem.TxtRltResultadoSubCNC = Me.TxtResultadoSubCNC
    Report_RltHorasdeUsinagem.TxtRltResultadoSubCNCPORTAL = Me.TxtResultadoSubCNCPORTAL
    Report_RltHorasdeUsinagem.TxtRltResultadoSubTORNO = Me.TxtResultadoSubTORNO
    Report_RltHorasdeUsinagem.TxtRltResultadoSubTORNOCNC = Me.TxtResultadoSubTORNOCNC
    Report_RltHorasdeUsinagem.TxtRltResultadoSubRETIFICAc = Me.TxtResultadoSubRETIFICAc
    Report_RltHorasdeUsinagem.TxtRltResultadoSubRETIFICAp = Me.TxtResultadoSubRETIFICAp
    Report_RltHorasdeUsinagem.TxtRltResultadoSubErFIO = Me.TxtResultadoSubErFIO
    Report_RltHorasdeUsinagem.TxtRltResultadoSubErPENETRACAO = Me.TxtResultadoSubErPENETRACAO
    End Sub
    Caso alguém consiga resumir ou melhorar este código por favor não exite em me informar.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Ajuda para recursos de minha planilha

    Mensagem  good guy em 29/10/2013, 17:31

    Olá Edgar,

    1-Neste novo código o relatório mencionado não deverá estar aberto para funcionar?

    No código inicial, algumas notas:

    2 - Dim sSQL ''VARIAVEL COMANDO SQL           'Que tipo de variável é esta? Não deixe de especificar. Neste caso, esta variável é do tipo String.

    3 - Vide item 2, primeira linha.

    Dim Organiza        'VARIAVEL COMANDO SQL ORGANIZAR

    Decidindo qual Tipo de Variável para Definir


    Visual Studio 2008




    Outras versões


    1 de 1 pessoas classificaram isso como útil - Avalie este tópico

    Quando você define uma variável, você deve decidir as seguintes características:

    • Seu tipo de dados - que tipo de dados ela deve armazenar

    • Seu tempo de vida - quanto tempo ela deve continuar existindo.

    • Seu escopo - qual código pode referenciá-la sem qualificar seu nome

    • Seu nível de acesso - qual código deve ter permissão para ler e escrever nisso.

    4 - Formate na tabela o campo referente a hora do torno, fresa, etc. Você pode impor uma máscara de entrada também.

    Fonte: [Você precisa estar registrado e conectado para ver este link.]


    Última edição por good guy em 30/10/2013, 18:44, editado 1 vez(es)

    Edgardido
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/10/2013

    Re: [Resolvido]Ajuda para recursos de minha planilha

    Mensagem  Edgardido em 30/10/2013, 17:44

    Desculpa a demora!
    Exatamente, o relatório não estará aberto,só deixarei disponível para abrir pelo formulário, mesmo porque se tentar abri-lo sem filtragem do formulário ele vai demorar dois anos para carregar todas as informações de todas as Ordens de Serviço.        

    Quanto as informações que me passou sobre as variáveis, muito obrigado, verifiquei o conteúdo que me enviou e deixei o código assim.
    Código:
    Dim sSQL  As String ''VARIAVEL COMANDO SQL
    sSQL = "SELECT CNS_OSPOS.OSH, CNS_OSPOS.POS, CNS_OSPOS.QTDE, CNS_OSPOS.POSICAO.DESCRICAO, CNS_OSPOS.MATERIAL.DESCRICAO, CNS_OSPOS.PREPARACAO, CNS_OSPOS.PREPARACAORET,CNS_OSPOS.DIMX,CNS_OSPOS.DIMY, CNS_OSPOS.DIMZ, CNS_OSPOS.Oxic, CNS_OSPOS.TT,HorasdeProcesso.PREP, HorasdeProcesso.PREPRET, HorasdeProcesso.FRESA, HorasdeProcesso.CNC,HorasdeProcesso.CNCPORTAL,HorasdeProcesso.Torno, HorasdeProcesso.TorCNC, HorasdeProcesso.RetPlana,HorasdeProcesso.RetCilindrica, HorasdeProcesso.ErFio, HorasdeProcesso.ErPen FROM CNS_OSPOS LEFT JOIN HorasdeProcesso ON (CNS_OSPOS.OSH = HorasdeProcesso.codOS) AND (CNS_OSPOS.POS = HorasdeProcesso.CodPos)WHERE (((CNS_OSPOS.OSH)="

    Dim Os As Long ''VARIAVEL COMANDO SQL NUMERO DE CRITERIO
    Os = TxtOS1.Value

    Dim Organiza As String ''VARIAVEL COMANDO SQL ORGANIZAR
    Organiza = ")) ORDER BY CNS_OSPOS.OSH, CNS_OSPOS.POS;"
    Bem meu 1° problema já esta resolvido, se houver qualquer melhoria será bem vindo.Muito obrigado!




    Edgardido
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/10/2013

    Re: [Resolvido]Ajuda para recursos de minha planilha

    Mensagem  Edgardido em 30/10/2013, 18:02

    Vamos para o 2°Problema
    Recalcular automático
    com o auxilio do Fórum criei este Código.

    Função no Modulo (mod_geral)
    Código:
    Public Function fncMinutos(Optional strCampo As String = "00:00") As Long
    Dim k
    k = Split(strCampo, ":")
    fncMinutos = k(0) * 60 + k(1)
    End Function
    Ao clicar no botão (OK) que vai filtrar meus dados e fazer somatória dos campos

    Código:
    Private Sub BtOk_OS_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '
    '
    '
    ''1á10 _Calcular Soma dos Campos ao abrir;
     ''1.Calculo - Prep
    Dim rs As dao.Recordset
    Dim SomaPrep As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaPrep = SomaPrep + fncMinutos(Nz(rs!PREP, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Sub_Descricao!TxtTotalPrep = Int(SomaPrep / 60) & ":" & (SomaPrep - (Int(SomaPrep / 60) * 60))
     
     ''2.Calculo -Fresa
    Dim SomaFresa As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaFresa = SomaFresa + fncMinutos(Nz(rs!FRESA, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Sub_Descricao!txtTotalFresa = Int(SomaFresa / 60) & ":" & (SomaFresa - (Int(SomaFresa / 60) * 60))
     
      ''3.Calculo -CNC
    Dim SomaCNC As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaCNC = SomaCNC + fncMinutos(Nz(rs!CNC, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Sub_Descricao!TxtTotalCnc = Int(SomaCNC / 60) & ":" & (SomaCNC - (Int(SomaCNC / 60) * 60))

    ''4.Calculo - CNC PORTAL
    Dim SomaCNCPORTAL As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaCNCPORTAL = SomaCNCPORTAL + fncMinutos(Nz(rs!CNCPORTAL, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Sub_Descricao!TxtTotalCncPortal = Int(SomaCNCPORTAL / 60) & ":" & (SomaCNCPORTAL - (Int(SomaCNCPORTAL / 60) * 60))
     
      ''5.Calculo - TORNO
    Dim SomaTORNO As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaTORNO = SomaTORNO + fncMinutos(Nz(rs!Torno, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Sub_Descricao!TxtTotalTorno = Int(SomaTORNO / 60) & ":" & (SomaTORNO - (Int(SomaTORNO / 60) * 60))


    ''6.Calculo - TORNO CNC
    Dim SomaTORNOCNC As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaTORNOCNC = SomaTORNOCNC + fncMinutos(Nz(rs!TorCNC, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Sub_Descricao!TxtTotalTornoCnc = Int(SomaTORNOCNC / 60) & ":" & (SomaTORNOCNC - (Int(SomaTORNOCNC / 60) * 60))
     
      ''7.Calculo - RetPlana
    Dim SomaRetPlana As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaRetPlana = SomaRetPlana + fncMinutos(Nz(rs!RetPlana, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Sub_Descricao!TxtTotalRetificaP = Int(SomaRetPlana / 60) & ":" & (SomaRetPlana - (Int(SomaRetPlana / 60) * 60))

    ''8.Calculo - RetCilindrica
    Dim SomaRetCilindrica As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaRetCilindrica = SomaRetCilindrica + fncMinutos(Nz(rs!RetCilindrica, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Sub_Descricao!TxtTotalRetificaC = Int(SomaRetCilindrica / 60) & ":" & (SomaRetCilindrica - (Int(SomaRetCilindrica / 60) * 60))
     
      ''9.Calculo - Erosão a Fio
    Dim SomaErFio As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaErFio = SomaErFio + fncMinutos(Nz(rs!ErFio, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Sub_Descricao!TxtTotalErFio = Int(SomaErFio / 60) & ":" & (SomaErFio - (Int(SomaErFio / 60) * 60))

    ''10.Calculo - Erosão a Penetração
    Dim SomaErPen As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaErPen = SomaErPen + fncMinutos(Nz(rs!ErPen, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Sub_Descricao!TxtTotalErPen = Int(SomaErPen / 60) & ":" & (SomaErPen - (Int(SomaErPen / 60) * 60))
    e no sub-Formulário inseri ao campo perder foco ele vai recalcular;
    Código:
    'Calculo ao perder foco no campo
    ''1.Calculo - Prep
    Private Sub PREP_LostFocus()
    Dim rs As dao.Recordset
    Dim SomaPrep As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaPrep = SomaPrep + fncMinutos(Nz(rs!PREP, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!TxtTotalPrep = Int(SomaPrep / 60) & ":" & (SomaPrep - (Int(SomaPrep / 60) * 60))
    End Sub
    ''2.Calculo -Fresa
    Public Sub Fresa_LostFocus()
    Dim rs As dao.Recordset
    Dim SomaFresa As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaFresa = SomaFresa + fncMinutos(Nz(rs!FRESA, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!txtTotalFresa = Int(SomaFresa / 60) & ":" & (SomaFresa - (Int(SomaFresa / 60) * 60))
    End Sub
    ''3.Calculo -CNC
    Private Sub CNC_LostFocus()
    Dim rs As dao.Recordset
    Dim SomaCNC As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaCNC = SomaCNC + fncMinutos(Nz(rs!CNC, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!TxtTotalCnc = Int(SomaCNC / 60) & ":" & (SomaCNC - (Int(SomaCNC / 60) * 60))
    End Sub
    ''4.Calculo - CNC PORTAL
    Private Sub CNCPORTAL_LostFocus()
    Dim rs As dao.Recordset
    Dim SomaCNCPORTAL As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaCNCPORTAL = SomaCNCPORTAL + fncMinutos(Nz(rs!CNCPORTAL, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!TxtTotalCncPortal = Int(SomaCNCPORTAL / 60) & ":" & (SomaCNCPORTAL - (Int(SomaCNCPORTAL / 60) * 60))
    End Sub
    ''5.Calculo - TORNO
    Private Sub Torno_LostFocus()
    Dim rs As dao.Recordset
    Dim SomaTORNO As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaTORNO = SomaTORNO + fncMinutos(Nz(rs!Torno, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!TxtTotalTorno = Int(SomaTORNO / 60) & ":" & (SomaTORNO - (Int(SomaTORNO / 60) * 60))
    End Sub
    ''6.Calculo - TORNOCNC
    Private Sub TorCNc_LostFocus()
    Dim rs As dao.Recordset
    Dim SomaTORCNC As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaTORCNC = SomaTORCNC + fncMinutos(Nz(rs!TorCNC, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!TxtTotalTornoCnc = Int(SomaTORCNC / 60) & ":" & (SomaTORCNC - (Int(SomaTORCNC / 60) * 60))
    End Sub
    ''7.Calculo - RetPlana
    Private Sub RetPlana_LostFocus()
    Dim rs As dao.Recordset
    Dim SomaRetPlana As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaRetPlana = SomaRetPlana + fncMinutos(Nz(rs!RetPlana, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!TxtTotalRetificaP = Int(SomaRetPlana / 60) & ":" & (SomaRetPlana - (Int(SomaRetPlana / 60) * 60))
    End Sub
    ''8.Calculo - RetCilindrica
    Private Sub RetCilindrica_LostFocus()
    Dim rs As dao.Recordset
    Dim SomaRetCilindrica As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaRetCilindrica = SomaRetCilindrica + fncMinutos(Nz(rs!RetCilindrica, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!TxtTotalRetificaC = Int(SomaRetCilindrica / 60) & ":" & (SomaRetCilindrica - (Int(SomaRetCilindrica / 60) * 60))
    End Sub
    ''9.Calculo - Erosão a Fio
    Private Sub ErFio_LostFocus()
    Dim rs As dao.Recordset
    Dim SomaErFio As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaErFio = SomaErFio + fncMinutos(Nz(rs!ErFio, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!TxtTotalErFio = Int(SomaErFio / 60) & ":" & (SomaErFio - (Int(SomaErFio / 60) * 60))
    End Sub
    ''10.Calculo - Erosão a Penetração
    Private Sub ErPen_LostFocus()
    Dim rs As dao.Recordset
    Dim SomaErPen As Long
    Set rs = Me.RecordsetClone
    rs.MoveFirst
    Do While Not rs.EOF
        SomaErPen = SomaErPen + fncMinutos(Nz(rs!ErPen, "00:00"))
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Me!TxtTotalErPen = Int(SomaErPen / 60) & ":" & (SomaErPen - (Int(SomaErPen / 60) * 60))
    End Sub
    Problema; ele nem sempre esta recalculando ao sair do campo ou demora para atualizar o valor,eu também acredito que temos alguma forma mais resumida para fazer este recalculo. Mas já torrei meus miolos tentando.

    Agradeço a ajuda
    e fico no aguardo.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Ajuda para recursos de minha planilha

    Mensagem  good guy em 30/10/2013, 18:47

    Olá Edgar,

    Tente adaptar para o seu código pelo aplicativo do Avelino.


    [Você precisa estar registrado e conectado para ver este link.]

    Edgardido
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/10/2013

    Re: [Resolvido]Ajuda para recursos de minha planilha

    Mensagem  Edgardido em 1/11/2013, 16:51

    Agradeço a ajuda.
    Foi de muito útil.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Ajuda para recursos de minha planilha

    Mensagem  good guy em 1/11/2013, 17:21

    Olá Edgar,

    Valew. Sucesso !!! Mas não esqueça de postar como Resolvido. Até mais !!!

    Edgardido
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/10/2013

    Re: [Resolvido]Ajuda para recursos de minha planilha

    Mensagem  Edgardido em 4/11/2013, 09:13

    obrigado!!!!

      Data/hora atual: 26/9/2018, 09:57