none
EXCEL - erro em tempo de execuçao '13' RRS feed

  • Pergunta

  • o Código é super simples, porém quando o usuario não insere valor algum, clica em cancelar ou fecha o Input gera o erro

    Erro em Tempo em tempo de execução '13':

    Tipo Incompatíveis.

    Ao abrir a planilha ele verifica em uma célula se existe a data inicial:

    Sub vData()
        If IsEmpty(Sheets("O").Range("B3")) = True Then
        Call Data_Inicial
        Exit Sub   
      End If
    End Sub

    se não existir ele chama o input (que também pode ser chamado por um botão) para alterar o valor pois a celula é travada para

    ter certeza da alteração da data.

    Código:

    Sub Data_Inicial()
    Dim data As Date

    data = InputBox("Digite a Data Inicial da Planilha:", "Data Inicial ", "01/01/1953")
        ThisWorkbook.Worksheets("O").Range("B3").Value = data

    End Sub

    Gostaria que ao fechar ou cancelar não aparecer o erro.

    Desde já Agradeço a Ajuda.


    terça-feira, 5 de janeiro de 2016 17:52

Respostas

  • Sub Data_Inicial()
    
    Dim data As Variant
    
    data = InputBox("Digite a Data Inicial da Planilha:", "Data Inicial ", "01/01/1953")
    
    If IsNull(data) Or data = "" Or Not IsDate(data) Then
        MsgBox "Data inválida!"
    Else
        ThisWorkbook.Worksheets("O").Range("B3").Value = data
    End If
    
    End Sub

    • Sugerido como Resposta André Santo terça-feira, 5 de janeiro de 2016 18:00
    • Marcado como Resposta Dioni Anselmo terça-feira, 5 de janeiro de 2016 18:09
    terça-feira, 5 de janeiro de 2016 18:00

Todas as Respostas

  • Sub Data_Inicial()
    
    Dim data As Variant
    
    data = InputBox("Digite a Data Inicial da Planilha:", "Data Inicial ", "01/01/1953")
    
    If IsNull(data) Or data = "" Or Not IsDate(data) Then
        MsgBox "Data inválida!"
    Else
        ThisWorkbook.Worksheets("O").Range("B3").Value = data
    End If
    
    End Sub

    • Sugerido como Resposta André Santo terça-feira, 5 de janeiro de 2016 18:00
    • Marcado como Resposta Dioni Anselmo terça-feira, 5 de janeiro de 2016 18:09
    terça-feira, 5 de janeiro de 2016 18:00
  • Muito Obrigado André
    terça-feira, 5 de janeiro de 2016 18:10