MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Erro em tempo de execução ' 13' tipos incompativeis execel 2007

    avatar
    Geeh002
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/08/2014

    Erro em tempo de execução ' 13' tipos incompativeis execel 2007 Empty Erro em tempo de execução ' 13' tipos incompativeis execel 2007

    Mensagem  Geeh002 25/8/2014, 15:01

    Boa Tarde amigos,

                          Fiz um download de uma planilha referente a controle de cartão de  crédito para empresa, apos alguns lançamentos, fui utilizar o macro para gerar o fluxo e apareceu a mensagem de erro em tempo de execução ' 13' tipos incompatíveis  não entendo muito nem de excel e nem de VBA gostaria de uma ajuda. abaixo segue o codigo do vba;

    Sub cria_fluxo()

    Dim Area As Range
    Dim destino As Range
    Call Limpa_fluxo
    Set Area = Worksheets("Operações").Range("a2:f2000")
    Set destino = Worksheets("Fluxo").Range("a2:f6000")
    j = 1
    i = 1
    While Area.Cells(i, 1).Value <> ""
       ' copia os dados da transação original para a tabela de fluxo, as 6 primeiras colunas são iguais
       
       For k = 1 To 6
           destino.Cells(j, k).Value = Area.Cells(i, k).Value
       Next k
       ' agora vamos calcular as parcelas . o número de parcelas, a data, a taxa e o valor da parcela são os mesmos
       num_parcelas = Area.Cells(i, 7).Value
       data_opera = Area.Cells(i, 3).Value
       wtaxa = Area.Cells(i, 5).Value
       wvalor = Area.Cells(i, 4).Value / num_parcelas
       destino.Cells(j, Cool.Value = wvalor
      destino.Cells(j, 9).Value = data_opera + Area.Cells(i, 6).Value (este campo aparece em amarelo)
       destino.Cells(j, 10).Value = wvalor * (1 - wtaxa)
       destino.Cells(j, 7).Value = 1
           For k = 2 To num_parcelas
        j = j + 1
         For Z = 1 To 6
             destino.Cells(j, Z).Value = Area.Cells(i, Z).Value
         Next Z
         destino.Cells(j, 6).Value = k * 30
         destino.Cells(j, 7).Value = k
         destino.Cells(j, Cool.Value = wvalor
         destino.Cells(j, 9).Value = data_opera + 30 * k
         ' como estava antes
         ' destino.Cells(j, 10).Value = wvalor * (1 - wtaxa * k)
         ' como ficou depois
         destino.Cells(j, 10).Value = wvalor * (1 - wtaxa)
        Next k
       j = j + 1
       i = i + 1
    Wend
    '
    '        For intColIndex = 0 To rs.Fields.Count - 1 ' the field names
    '            TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name
    '        Next

    Call Marca_fluxo
    Call Atualiza_resumo

    End Sub
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Erro em tempo de execução ' 13' tipos incompativeis execel 2007 Empty Re: Erro em tempo de execução ' 13' tipos incompativeis execel 2007

    Mensagem  LiveBrain 25/8/2014, 17:27

    Opa amigo,
    Tem como você anexar a planilha zipada?
    Pois nesse pedaço de código, vemos que essa sub chama outras Sub ou Function

    Call Limpa_fluxo
    Call Marca_fluxo
    Call Atualiza_resumo

    Pode ser que o erro esteja ocorrendo nelas.

    abraços


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    avatar
    Geeh002
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/08/2014

    Erro em tempo de execução ' 13' tipos incompativeis execel 2007 Empty Compactada

    Mensagem  Geeh002 25/8/2014, 20:06

    Opa com certeza segue em anexo.
    Anexos
    Erro em tempo de execução ' 13' tipos incompativeis execel 2007 AttachmentControle Cartão Master Janeiro 2014.xls
    Você não tem permissão para fazer download dos arquivos anexados.
    (280 Kb) Baixado 6 vez(es)


    Última edição por Geeh002 em 25/8/2014, 20:07, editado 1 vez(es) (Motivo da edição : Anexar arquivo)
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Erro em tempo de execução ' 13' tipos incompativeis execel 2007 Empty Re: Erro em tempo de execução ' 13' tipos incompativeis execel 2007

    Mensagem  LiveBrain 26/8/2014, 16:40

    Opa amigo, tudo bem?
    Sua macro está correta, o problema está no formato de algumas datas na Planilha Operações, conforme detalhado abaixo:

    Linhas 198 e 199 (Vendas 197 e 198) >>> Data 31/09/2013
    Linha 200 (Venda 199) >>> Data 31/11/2013


    Para esses dois meses não existe o dia 31, por isso o erro ocorre.

    Alterando os dias para 30, a macro executa perfeitamente

    Abraços


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    avatar
    Geeh002
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/08/2014

    Erro em tempo de execução ' 13' tipos incompativeis execel 2007 Empty Obrigado

    Mensagem  Geeh002 26/8/2014, 21:02

    Vou alterar e ver se ocorre o mesmo.. Mais obrigado pela observação.

    Conteúdo patrocinado


    Erro em tempo de execução ' 13' tipos incompativeis execel 2007 Empty Re: Erro em tempo de execução ' 13' tipos incompativeis execel 2007

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:58