Usar un modulo en varios formularios
Usar un modulo en varios formularios, para no estar escribiendo el mismo código, en cada formulario.
Uso este código.
Sub Cajeros()
Set h1 = Sheets("EMPLEADOS")
For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row
Select Case LCase(h1.Cells(i, "C"))
Case "encargado de turno"
n = ComboBox1.ListCount
ComboBox1.AddItem
ComboBox1.List(n, 0) = h1.Cells(i, "B")
ComboBox1.List(n, 1) = h1.Cells(i, "A")
End Select
Next
End Suben Excel vba.
1 Respuesta
Respuesta de Dante Amor
3
Pon el siguiente código en un módulo:
Sub Cajeros(miForm As MSForms.UserForm)
Dim h1 As Worksheet
Dim i As Long, n As Long
Set h1 = Sheets("EMPLEADOS")
For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row
Select Case LCase(h1.Cells(i, "C"))
Case "encargado de turno"
With miForm.ComboBox1
n = .ListCount
.AddItem
.List(n, 0) = h1.Cells(i, "B")
.List(n, 1) = h1.Cells(i, "A")
End With
End Select
Next
End SubEn el UserForm donde quieras utilizarlo lo llamas así, por ejemplo:
Private Sub UserForm_Activate() Call Cajeros(Me) End Sub
Te invito a Suscribirte a mi canal de YouTube para ver vídeos sobre Fórmulas de Excel y Macros.
(1) Tutoriales Excel y Macros - YouTube
[Sal u dos
