error en el codigo modificar
Publicado por jhon (2 intervenciones) el 29/10/2017 02:33:18
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.
dejo el código.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
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
Valora esta pregunta
0
