error en código no modifica

2 envíos / 0 nuevos
Último envío
jhonja
Imagen de jhonja
Offline
última acción: Hace 3 semanas 23 mins
alta: 29/10/2017 - 01:52
Puntos: 25
error en código no modifica

hola excelente aportes para comenzar, necesito su ayuda por favor, cree formulario active x  para que se poder hacer ingresos y modificación de datos todo iba bien hasta que puse el botón de modificar y metí el código pero ahora me sale un error que ejecución 424 espera un parámetro. No se que hice mal pongo el código del botón y no me deja ejecutarlo y ya he tratado pero nada,  bueno adicional a esto me gustaría que cuando se meta la información conserve los formatos de las celdas mil gracias.

dejo el código.

Private Sub buscar_Click()
On Error Resume Next
nombre.Value = WorksheetFunction.VLookup(Val(id.Value), Sheets(1).Range("A5:D400"), 2, False)
cc.Value = WorksheetFunction.VLookup(Val(id.Value), Sheets(1).Range("A5:D400"), 3, False)
fecha.Value = WorksheetFunction.VLookup(Val(id.Value), Sheets(1).Range("A5:D400"), 4, False)
End Sub

Private Sub CANCELAR_Click()

Unload Me

End Sub

Private Sub id_Change()

If Val(id.Value) = 0 Then
 buscar.Enabled = True
 ingreso.Enabled = False
 modifica.Enabled = True
End If

End Sub

Private Sub ingreso_Click()

With Sheets("CLIENTES-VS")

.Rows("5:5").Insert Shift:=xlDown
   
.Rows("5:5").Interior.Pattern = xlNone

.Range("A5").Value = id

.Range("B5").Value = nombre

.Range("C5").Value = cc

.Range("D5").Value = fecha

End With

End Sub

Private Sub modifica_Click()

bus_id = WorksheetFunction.Match(Val(id.Value), Sheets(1).Range("A5:A400"), 0) + 4
    With Sheets("CLIENTES-VS")
    
        .Range("B" & bus_id).Value = nombre.Value
   
        .Range("C" & bus_id).Value = cc.Value
 
        .Range("d" & bus_id).Value = fecha.Value
    End With
End Sub

Private Sub UserForm_Initialize()

 buscar.Enabled = False
  ingresar.Enabled = True
  modifica.Enabled = False
id.Value = Range("f2").Value + 1

End Sub
 

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 4 horas 53 segs
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7570
¿En qué línea da el error

¿En qué línea da el error?

Como haces referencia a controles de un formulario, ¿podrías adjuntar un ejemplo con el formulario?

 

Data Tools Suite
datos y tablas con Excel