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 execucao '1004'

    Compartilhe

    yagolevi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 25/04/2016

    Erro em tempo de execucao '1004'

    Mensagem  yagolevi em 25/4/2016, 19:39

    Amigos está aparecendo esse erro quando tento aplicar esse Macro na minha  Planilha
    Desde já agradeço.

    ERRO EM TEMPO DE EXECUCAO '1004'


    If shtPainel.Range("Receitas") = "" Then

    shtDados.Cells(linha, "C") = shtPainel.Range("Despesas").Value
    shtDados.Cells(linha, "D") = "Despesas"
    Else
    shtDados.Cells(linha, "C") = shtPainel.Range("Receitas").Value
    shtDados.Cells(linha, "D") = "Receitas"
    End If
    shtDados.Cells(linha, "E") = shtPainel.Range("Valor").Value

    If shtPainel.Range("Mes") = "" Then
    shtDados.Cells(linha, "F") = MonthName(Month(Now))
    Else
    shtDados.Cells(linha, "F") = LCase(shtPainel.Range("Mes").Value)
    End If
    If shtPainel.Range("Ano") = "" Then
    shtDados.Cells(linha, "G") = Year(Now)
    Else
    shtDados.Cells(linha, "G") = shtPainel.Range("Ano").Value
    End If
    shtDados.Cells(linha, "H") = Format(Now, "dd/mm/yyyy")
    'CODIGO FINALIZADO COM SUCESSO


    End Sub
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3974
    Registrado : 20/04/2011

    Re: Erro em tempo de execucao '1004'

    Mensagem  Silvio em 26/4/2016, 00:59

    Olá...boa noite.

    O MaximoAccess, destina-se a MsAccess e seus afins e não ao MsExcel.

    Sugiro a busca de um fórum próprio para isso.

    Grato.

      Data/hora atual: 19/8/2018, 18:25