error 424 en tiempo de ejecucion
Publicado por miguel angel (2 intervenciones) el 10/07/2017 16:44:43
solo he agregado nombres al checkbox 1 y 2 y me sale error 424 en tiempo de ejecución
se requiere un objeto
me podrían enviar la rpta a e mi email [email protected]
gracias de antemano
se requiere un objeto
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
65
66
67
68
69
70
71
72
73
74
75
76
77
Private Sub UserForm_Activate()
Worksheets("Hoja53").Activate
Range("A3:Z3").Font.Bold = True
Range("A3:Z3").Font.Size = 14
Range("A3:Z3").Font.Color = &H40C0&
' rem colocamos los encabezados de las columnas
Range("A3").Value = "Paterno"
Range("B3").Value = "Materno"
Range("C3").Value = "De Casada"
Range("D3").Value = "Nombres"
Range("E3").Value = "Fecha de Nacimiento"
Range("F3").Value = "Edad"
Range("G3").Value = "Sexo"
Range("H3").Value = "Direccion"
Range("I3").Value = "Distrito"
Range("J3").Value = "Telefono 1"
Range("K3").Value = "Telefono 2"
Range("L3").Value = "Email"
Range("M3").Value = "Fecha de Bautismo"
Range("N3").Value = "Tiempo de Bautismo"
Range("O3").Value = "Se Bautizo en Lince"
Range("P3").Value = "Gps"
Range("Q3").Value = "Pastor que lo Bautizo"
Range("R3").Value = "Familia Adventista"
Range("S3").Value = "Es Adventista"
Range("T3").Value = "Es Simpatizante"
Range("U3").Value = "Ex Adventista"
Range("V3").Value = "Estudiante"
Range("A5").Select
' Rem llenamos el cuadro combinado Distrito
combox1.AddItem "Ate" aca se posesiona el error y sale en amarillo
combox1.AddItem "Barranco"
combox1.AddItem "Comas"
combox1.AddItem "Chorrillos"
combox1.AddItem "Chosica"
combox1.AddItem "Independencia"
combox1.AddItem "Jesus Maria"
combox1.AddItem "Lima"
combox1.AddItem "Lince"
combox1.AddItem "Los Olivos"
combox1.AddItem "Magdalena"
combox1.AddItem "Miraflores"
combox1.AddItem "Ñaña"
combox1.AddItem "Pueblo Libre"
combox1.AddItem "Rimac"
combox1.AddItem "San Isidro"
combox1.AddItem "San Miguel"
combox1.AddItem "**********"
combox1.AddItem "Santa Anita"
combox1.AddItem "SJL"
combox1.AddItem "Miraflores"
combox1.AddItem "VMT"
combox1.AddItem "Vitarte"
combox1.AddItem "Zarate"
' Rem llenamos el cuadro combinado Gps
combox2.AddItem "Caleb"
combox2.AddItem "Conquistadores"
combox2.AddItem "Emanuel"
combox2.AddItem "Enoc"
combox2.AddItem "Jerusalen"
combox2.AddItem "Josue"
combox2.AddItem "Caleb"
combox2.AddItem "Salomon"
combox2.AddItem "Shalom"
End Sub
me podrían enviar la rpta a e mi email [email protected]
gracias de antemano
Valora esta pregunta
0
