MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    Erro de propriedade NumberFormat

    avatar
    Planilheiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 21/09/2018

    Erro de propriedade NumberFormat Empty Erro de propriedade NumberFormat

    Mensagem  Planilheiro 10/10/2018, 14:55

    Olá a todos,

    Tenho um formulário que registra o tempo de estudo em uma tabela no Excel, porém, de vez em quando, ao clicar para registrar o tempo que se passou, o código retorna o seguinte erro:

    "Erro em tempo de execução 1004"
    "Não é possível definir a propriedade NumberFormat da classe Range

    A parte do código que fica em destaque é essa


    .Range("E" & LastRow).NumberFormat = "[hh]:mm;@"


    Como posso resolver esse problema?

    Código:
    Private Sub btn_TimeStamp_Click()

    Application.ScreenUpdating = False
        Dim TempoEstudado As Variant
        Dim PlanilhaHoras As Worksheet
        Dim LastRow As Long
        Dim Rng As Range

        
        Set PlanilhaHoras = ThisWorkbook.Sheets("Horas")
        Set Rng = Sheets("Horas").Cells
        LastRow = Last(1, Rng) + 1
        
        If Me.ComboBox1.Text = ("< Selecione uma matéria >") Then
            MsgBox "Antes de gravar as horas estudadas, você precisa selecionar uma matéria", vbInformation, "Aviso"
            Me.ComboBox1.SetFocus
            
        ElseIf Me.txt_assunto = ("< Digite um assunto >") Then
            MsgBox "Você precisa digitar um assunto", vbInformation, "Aviso"
            Me.txt_assunto.SetFocus
            
        Else
        
     
        With PlanilhaHoras
               .Range("E" & LastRow).NumberFormat = "[hh]:mm;@"
        End With

        
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7119
    Registrado : 15/03/2013

    Erro de propriedade NumberFormat Empty Re: Erro de propriedade NumberFormat

    Mensagem  ahteixeira 10/10/2018, 15:04

    Olá Fabrício, Bem-Vindo ao fórum.

    Lembro que este é o fórum de MS Access.

    Tópico movido para Offtopic

    Abraço
    avatar
    Planilheiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 21/09/2018

    Erro de propriedade NumberFormat Empty Re: Erro de propriedade NumberFormat

    Mensagem  Planilheiro 10/10/2018, 15:26

    Peço desculpas, pois como era uma área para VBA não achei que tivesse problema postar uma dúvida sobre VB do Excel.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7119
    Registrado : 15/03/2013

    Erro de propriedade NumberFormat Empty Re: Erro de propriedade NumberFormat

    Mensagem  ahteixeira 10/10/2018, 15:56

    Olá,

    Veja se ajuda:
    support.office.com/en-us/article/format-numbers-as-currency-0a03bb38-1a07-458d-9e30-2b54366bc7a4
    docs.microsoft.com/en-us/office/vba/api/excel.range.numberformat

    Abraço

      Data/hora atual: 6/3/2021, 11:29