Modificar Datos de una Tabla

[juan carlos vilchez]

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

 

[Antoni]

Cambia liena por linea a ver que pasa:

Hoja7.Cells(liena, 6) = CB_Unidad
Hoja7.Cells(liena, 7) = TXT_Placa

 

Hoja7.Cells(linea , 6) = CB_Unidad
Hoja7.Cells(linea , 7) = TXT_Placa

[juan carlos vilchez]

muchas gracias,  ya no se sale el error 1004  pero aun no actualiza las demás columnas, solo se actualiza una columna.

intente de varias maneras pero con ninguna logro que se actualicen todas las columnas al mismo tiempo.

 

[Antoni]

Sin el archivo, imposible decirte nada más.

[juan carlos vilchez]

El archivo pesa al rededor de 1.38 MB y por este medio es imposible subir el archivo, podría enviar el archivo a su correo para que lo pueda revisar por favor.

Agradecería mucho su apoyo. 

[Antoni]

Súbelo a la nube (Dropbox, SkyDrive, Mega,.....) y adjunta el enlace.

Editado el el 23 de diciembre por Antoni