Muy buenas, tengo un formulario donde se debe de actualizar datos de una tabla mediante un botón, el problema que tengo con el código es que solo me corre cuando actualiza un celda pero cuando añado para que me actualice mas celdas de una fila me sale el error 1004.
Agradeciendo de antemano por su ayuda.
Private Sub BT_Modificar_Click()
Dim fila As Object
Dim linea As Integer
Dim MENSAJE As String
valor_buscado = Me.TXT_Cod
Set fila = Sheets("BASEdeDATOS").Range("A:A").Find(valor_buscado, lookat:=xlWhole)
linea = fila.Row
MENSAJE = MsgBox("¿ESTÁS SEGURO DE EDITAR LOS DATOS?", vbQuestion + vbYesNo, "EDITAR DATOS")
If MENSAJE = vbYes Then
If Val(TXT_Codigo) = Val(Hoja7.Cells(linea, 1)) Then
Muy buenas, tengo un formulario donde se debe de actualizar datos de una tabla mediante un botón, el problema que tengo con el código es que solo me corre cuando actualiza un celda pero cuando añado para que me actualice mas celdas de una fila me sale el error 1004.
Agradeciendo de antemano por su ayuda.
Private Sub BT_Modificar_Click()
Dim fila As Object
Dim linea As Integer
Dim MENSAJE As String
valor_buscado = Me.TXT_Cod
Set fila = Sheets("BASEdeDATOS").Range("A:A").Find(valor_buscado, lookat:=xlWhole)
linea = fila.Row
MENSAJE = MsgBox("¿ESTÁS SEGURO DE EDITAR LOS DATOS?", vbQuestion + vbYesNo, "EDITAR DATOS")
If MENSAJE = vbYes Then
If Val(TXT_Codigo) = Val(Hoja7.Cells(linea, 1)) Then
Hoja7.Cells(linea, 4) = CB_Tipo
'Hoja7.Cells(liena, 6) = CB_Unidad
'Hoja7.Cells(liena, 7) = TXT_Placa
MsgBox "DATOS EDITADOS CON EXITO", vbInformation
Exit Sub
End If
Else
MsgBox "OPERACION CANCELADA", vbExclamation
End If
End Sub