Inserir Data e Hora com InputBox

Question

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

Answer 1

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

Answer 2

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...

Answer 3

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

Answer 4

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"

Answer 5

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

Answer 6

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.

Answer 7

Não precisa.... basta colocar

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

que vai dar certo!

abraço!

---

Natan

Answer 8

Certíssimo, Natan deu certo...Mais uma Obrigado!!!!

Answer 9

blz.... mas vc marcou a sua como resposta?

rsrsrs

---

Natan