none
Inserir Data e Hora com InputBox RRS feed

  • Pergunta

  • Bom Dias Senhores

    Estou utilizando uma InputBox para Localizar um determinado dado em uma planilha, quando localizado me retorna essa informação, ou não quando o dado pesquisado não existe, até ai tudo bem. Agora precisaria incrementar esse código, para que o mesmo me desse a opção de inserir automaticamente Data/Hora Sistema caso dados pesquisado seja encontrado, nesse caso esta informação seria aplicada na coluna "F" dessa mesma planilha. Desde já agradeço atenção de todos


    • Editado mchagas quarta-feira, 10 de setembro de 2014 13:02
    quarta-feira, 10 de setembro de 2014 13:00

Respostas

Todas as Respostas

  • mChagas, tente isso....

      Dim wks As Worksheet
      Dim strBusca As String
      
      Set wks = ThisWorkbook.Sheets("Plan1")
      strBusca = InputBox("Informe o termo a Ser Pesquisado:", "Busca")
      
      If strBusca <> "" Then
      
        Set c = wks.Range("A1:A10").Find(strBusca, lookat:=xlWhole) 'Faz a busca do valor digitado no intervalo A1:A10
        If Not c Is Nothing Then
          wks.Cells(c.Row, 6).Value = Now    'Escreve na linha encontrada, na coluna 6 [F] o valor da data e hora atual
        End If
      
      End If


    Natan

    quarta-feira, 10 de setembro de 2014 18:10
  • Olá Natan

    Na verdade eu já tenho o código que faz essa busca e utilizo um código que é mais flexível e faz a varredura na planilha inteira sem ter que ficar restrita a uma Range especifica, justamente por que o critério de busca varia muito, precisaria incrementar esse código, para que o mesmo me desse a opção inserir automaticamente Data/Hora do Sistema caso dados pesquisado seja encontrado, Cuja informação seria aplicada na coluna "F" dessa mesma planilha. Seria mais ou menos isso caso a informação se encontrada."Dados Localizados, Confirma Data de Hoje ? (Sim ou Não)Segue abaixo Código:

    Sub Pesquisar()

    Pesquisa = InputBox("Informe o Dados a ser pesquisado", "Pesquisar Dados ")

    If Pesquisa = "" Then Exit Sub

    Set x = Worksheets(1).Cells.Find(what:=Pesquisa)

        If Not x Is Nothing Then

            x.Select

            MsgBox " Dados encontrado na célula " & x.Address & Chr(10) & "RG.Nº:" & x.Text

        Else

            MsgBox " Dados não encontrado"

        End If

    End Sub

    No Aguado...

    quinta-feira, 11 de setembro de 2014 13:04
  • Então você faz assim...

    Sub Pesquisar() Pesquisa = InputBox("Informe o Dados a ser pesquisado", "Pesquisar Dados ") If Pesquisa = "" Then Exit Sub Set x = Worksheets(1).Cells.Find(what:=Pesquisa) If Not x Is Nothing Then x.Select

    If MsgBox(" Dados encontrado na célula " & x.Address & Chr(10) & "RG.Nº:" & x.Text & chr(10) & "Confirma Data de Hoje ? ", vbYesNo + vbQuestion, "Pergunta") = vbYes Then cells(x,6).value = now end if Else MsgBox " Dados não encontrado" End If End Sub




    Natan



    • Editado 'Natan Silva quinta-feira, 11 de setembro de 2014 14:49
    quinta-feira, 11 de setembro de 2014 14:45
  • Ok!  Natan

    Acho que estamos chegando lá,  ele localiza mas na hora de inserir a data ele da a erro de execução:

    Erro em tempo de execução'1004':  erro de definição de aplicativo ou de definição de objeto"

                   



     

    sexta-feira, 12 de setembro de 2014 13:30
  • Oi mChagas...

    Em qual linha tá gerando erro?

    Se tiver alguma variável, põe o cursor do mouse em cima e diz qual o valor que está atribuído a ela.


    Natan

    sexta-feira, 12 de setembro de 2014 14:08
  • Oi Natan, o erro aparece em "Cells(x, 4).Value = Now" justamente no momento em que em que deve imprimir a data no endereço especificado. Se tiver email posso te mandar o arquivo pra você testar, por exemplo: ele localiza o dado na célula "A129", e se verdadeiro ele da opção de inserir a data na célula "D129"(mesma linha), ele faz todo o procedimento de maneira correta. Posicionei o cursor na variável, mandei depurar e na variável a aparece o valor do dado pesquisado e localizado no endereço "A129". Agradeço novamente o empenho.
    sábado, 13 de setembro de 2014 00:28
  • Não precisa.... basta colocar

    cells( x.row , 6 ).Value = Now

    que vai dar certo!

    abraço!


    Natan


    • Editado 'Natan Silva sábado, 13 de setembro de 2014 03:05
    sábado, 13 de setembro de 2014 03:04
  • Certíssimo, Natan deu certo...Mais uma Obrigado!!!!
    • Marcado como Resposta mchagas sábado, 13 de setembro de 2014 17:12
    sábado, 13 de setembro de 2014 17:12
  • blz.... mas vc marcou a sua como resposta?

    rsrsrs


    Natan

    sábado, 13 de setembro de 2014 19:51