ayuda con codigos
Publicado por itzel ireri (1 intervención) el 18/10/2016 20:07:58
Hola buenas tardes estoy realizando una base datos, pero el programa no registra en los campos indicados el codigo es el siguiente:
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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Private Sub CommandButton1_Click()
If ComboBox5.Text <> "" And ComboBox6.Text <> "" And ComboBox4.Text <> "" And ComboBox2.Text <> "" ComboBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" TextBox4.Text <>
Then
Graba
Else
MsgBox "Debe llenar todos los datos"End If
End Sub
Private Sub CommandButton3_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label10_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label4_Click()
End Sub
Sub Graba()
Sheets("new").Select
ult = Cells(Rows.Count, 9).End(xlUp).Row
'code Plant Cells(ult + 1, 10).Value = ComboBox5.Text
'code ShopCells(ult + 1, 11).Value = ComboBox6.Text
'code KPI Cells(ult + 1, 12).Value = ComboBox4.Text
'PlantCells(ult + 1, 13).Value = ComboBox2.Text
'Shop Cells(ult + 1, 14).Value = ComboBox1.Text
'Title Of inventionCells(t + 1, 15).Value = TextBox2.Text
'Responsible Cells(t + 1, 16).Value = TextBox3.Text
'Direct BossCells(t + 1, 17).Value = TextBox5.Text
'Desciption Cells(t + 1, 18).Value = TextBox4.Text
t = t + 1
ComboBox5.Text = ""
ComboBox6.Text = ""
ComboBox4.Text = ""
ComboBox2.Text = ""
ComboBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
TextBox4.Text = ""
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Private Sub Label6_Click()
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub worksheet_change(ByVal Target As Range)
If Target.Column < 9 Then
Cells(Target.Row, 9).Value = Now
End If
End SubValora esta pregunta
0