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

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

    Compartilhe

    Geeh002
    Novato
    Novato

    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

    Mensagem  Geeh002 em Seg 25 Ago 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
    avatar
    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  LiveBrain em Seg 25 Ago 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"

    Geeh002
    Novato
    Novato

    Respeito às Regras 100%

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

    Compactada

    Mensagem  Geeh002 em Seg 25 Ago 2014, 20:06

    Opa com certeza segue em anexo.
    Anexos
    Controle 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 Seg 25 Ago 2014, 20:07, editado 1 vez(es) (Razão : Anexar arquivo)
    avatar
    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  LiveBrain em Ter 26 Ago 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"

    Geeh002
    Novato
    Novato

    Respeito às Regras 100%

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

    Obrigado

    Mensagem  Geeh002 em Ter 26 Ago 2014, 21:02

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

      Data/hora atual: Sab 24 Jun 2017, 20:09