Como programar VB para pasar a la fila siguiente en excel
Publicado por Lucia (1 intervención) el 26/11/2020 20:03:26
Buenas tardes a todos. Soy nueva acá. Estoy desesperada por resolver un problema. Tengo una planilla en excel en donde voy cargando ventas, desde un forulario de VB. La cuestión es que al apretar el botón GUARDAR no puedo programarlo correctamente y se sobreescribe el mismo renglón una y otra vez. No encuentro la instrucción correcta para que la celda activa sea la primera vacía, de la columna G.
Les pego acá lo que tengo ahora. Bienvenida ser cualquier sugerencia!! Gracias
Les pego acá lo que tengo ahora. Bienvenida ser cualquier sugerencia!! 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
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
Private Sub cmdlimpiar_Click()
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
ComboBox1.SetFocusEnd Sub
Private Sub cmdsalir_Click()
Unload Me
End Sub
Private Sub cmdguardar_Click()
If ComboBox1 = "" Then
MsgBox ("Elegir el tipo de producto")
ComboBox1.SetFocusElse
Dim fila As Long
fila = WorksheetFunction.CountA(Range("A:A")) + 13
Cells(fila, 7).Value = TextBox1.Value
Cells(fila, 8).Value = TextBox2.Value
Cells(fila, 9).Value = TextBox3.Value
Cells(fila, 11).Value = ComboBox1.Value
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
ComboBox1.SetFocusEnd If
End Sub
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label4_Click()
End Sub
End Sub
Private Sub UserForm_Activate()
ComboBox1.RowSource = "Tipos_de_producto"
End Sub
Private Sub UserForm_Click()
End Sub
Valora esta pregunta
0
