error de sintaxis
Publicado por Esteban (1 intervención) el 17/11/2014 13:24:54
Amigos, al darle al botón de formulario, nos da error de compilación, sintaxis. Donde puede estar el error?
gracias
gracias
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
Private Sub CheckBox1_Click()
End Sub
Private Sub CommandButton1_Click()
Worksheets("Hoja1").Range("B1").Value = Me.ListBox1.Value
Worksheets("Hoja1").Range("C1").Value = Me.TextBox2.Value
Worksheets("Hoja1").Range("D1").Value = Me.TextBox3.Value
Worksheets("Hoja1").Range("E1").Value = Me.TextBox4.Value
Worksheets("Hoja1").Range("F1").Value = Me.TextBox5.Value
Worksheets("Hoja1").Range("G1").Value = Me.TextBox8.Value
Worksheets("Hoja1").Range("H1").Value = Me.TextBox9.Value
Worksheets("Hoja1").Range("I1").Value = Me.CheckBox1.Value
Worksheets("Hoja1").Range("J1").Value = Me.CheckBox2.Value
Worksheets("Hoja1").Range("K1").Value = Me.TextBox10.Value
Ens Sub
End Sub
Private Sub CommandButton2_Click()
TextBox2 = EmptyTextBox3 = EmptyTextBox4 = EmptyTextBox5 = EmptyTextBox8 = EmptyTextBox9 = EmptyTextBox10 = EmptyOptcionButton1 = FalseEnd Sub
Private Sub Frame1_Click()
End Sub
Private Sub ListBox1_Click()
ListBox1.ColumnCount = 2
ListBox1.ColumnHeads = True
ListBox1.RowSource = "Tabla2"
End Sub
Valora esta pregunta
0
