Utilizar una variable de un userform en otro
Éste código me permite elegir una factura de una lista que esta en una hoja, luego me despliega los datos en unos textbox, luego presiono un botón que me envía a otro userform, donde me pide la confirmación de la eliminación.
La variable "i" en este código me indica la fila a borrar. Lo que no entiendo es como utilizarlo, en otro userform.
Por lo que mi pregunta es: ¿Cuál es el código que me permitirá eliminar toda la fila "i"?
Gracias por la ayuda.
Robert
'ELIMINA VENTA
Private Sub ComboBox1_Enter()
Dim i As Integer
Dim final As Integer
Dim tareas As String
ComboBox1.BackColor = &H80000005
For i = 1 To ComboBox1.ListCount
ComboBox1.RemoveItem 0
Next i
For i = 2 To 1000
If Hoja5.Cells(i, 4) = "" Then
final = i - 1
Exit For
End If
Next
For i = 2 To final
tareas = Hoja5.Cells(i, 4)
ComboBox1.AddItem (tareas)
Next
End Sub
Private Sub ComboBox1_Click()
Dim i As Integer
Dim final As Integer
For i = 2 To 1000
If Hoja5.Cells(i, 4) = "" Then
final = i - 1
Exit For
End If
Next
For i = 2 To final
If Val(ComboBox1) = Hoja5.Cells(i, 4) Then
TextBox1 = Hoja5.Cells(i, 4)
TextBox2 = Hoja5.Cells(i, 1)
TextBox3 = Hoja5.Cells(i, 2)
TextBox4 = Hoja5.Cells(i, 5)
TextBox5 = Hoja5.Cells(i, 8)
TextBox6 = Hoja5.Cells(i, 11)
TextBox7 = Hoja5.Cells(i, 3)
Exit For
End If
Next
End Sub
La variable "i" en este código me indica la fila a borrar. Lo que no entiendo es como utilizarlo, en otro userform.
Por lo que mi pregunta es: ¿Cuál es el código que me permitirá eliminar toda la fila "i"?
Gracias por la ayuda.
Robert
'ELIMINA VENTA
Private Sub ComboBox1_Enter()
Dim i As Integer
Dim final As Integer
Dim tareas As String
ComboBox1.BackColor = &H80000005
For i = 1 To ComboBox1.ListCount
ComboBox1.RemoveItem 0
Next i
For i = 2 To 1000
If Hoja5.Cells(i, 4) = "" Then
final = i - 1
Exit For
End If
Next
For i = 2 To final
tareas = Hoja5.Cells(i, 4)
ComboBox1.AddItem (tareas)
Next
End Sub
Private Sub ComboBox1_Click()
Dim i As Integer
Dim final As Integer
For i = 2 To 1000
If Hoja5.Cells(i, 4) = "" Then
final = i - 1
Exit For
End If
Next
For i = 2 To final
If Val(ComboBox1) = Hoja5.Cells(i, 4) Then
TextBox1 = Hoja5.Cells(i, 4)
TextBox2 = Hoja5.Cells(i, 1)
TextBox3 = Hoja5.Cells(i, 2)
TextBox4 = Hoja5.Cells(i, 5)
TextBox5 = Hoja5.Cells(i, 8)
TextBox6 = Hoja5.Cells(i, 11)
TextBox7 = Hoja5.Cells(i, 3)
Exit For
End If
Next
End Sub
1 Respuesta
Respuesta de hugolaza
2