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
¿En qué línea da el error?
Como haces referencia a controles de un formulario, ¿podrías adjuntar un ejemplo con el formulario?
------
Ya sé Excel, pero necesito más.