Buscar en un rango "x" un numero definido en un textbox
Estoy necesitando buscar un numero en la columna C, el numero es recogido de la textbox1, luego de encontrar la celda debe de insertarse una fecha en en la misma fila pero en la columna 17
El código con el que estoy tratando es el siguiente:
Private Sub CommandButton1_Click()
Dim Dato As Range
Set Dato = Hoja1.Range("c:c").Find(TextBox1).Value
If Dato Is Nothing Then
MsgBox "No se encuentra", 64, ""
Else
Cells(Dato, 17).Value = TextBox2.Value
MsgBox "Reporte Insertado"
End If
TextBox1.Value = " "
TextBox2.Value = " "
Hoja1.Cells(1, 1).Value = " "
End SubSi pueden ayudarme
Respuesta de Dante Amor
1
Te anexo una opción sin utilizar la celda y sin utilizar offset
Private Sub CommandButton1_Click1()
Set b = Hoja1.Range("C:C").Find(TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not b Is Nothing Then
Hoja1.Cells(b.Row, 17) = TextBox2
MsgBox "Reporte Insertado"
TextBox1.Value = ""
TextBox2.Value = ""
Else
MsgBox "No se encuentra", 64, ""
End If
End Subsal u dos
1 respuesta más de otro experto
Respuesta de Lutz Rheineck
1
Private Sub CommandButton1_Click()
Dim Dato As Range
Cells(1, 1).Value = TextBox1.Value
Set Dato = Hoja1.Range("c:c").Find(Hoja1.Range("a1").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Dato Is Nothing Then
MsgBox "No se encuentra", 64, ""
Else
Dato.Offset(0, 14) = TextBox2.Value
MsgBox "Reporte Insertado"
End If
TextBox1.Value = " "
TextBox2.Value = " "
Hoja1.Cells(1, 1).Value = " "
End Sub
Private Sub CommandButton2_click()
Unload Me
End SubEl codigo correcto es el que esta mas arriba