Como agregar Combox en un userform en excel
Buenas tardes distinguido experto Dante!, una consulta, como puedo agregar un combox que me indique el año a elegir para imprimir mis recibos de sueldos, yo tengo mis archivos en una carpeta nombradas de las siguientes maneras:
01 Salarios 2014
02 Salarios 2014
03 Salarios 2014, etc si me podrías ayudar con alguna macro, ya que no tengo que darle continuidad el próximo año para usar un solo userform, muchisimas gracias
1 Respuesta
Respuesta de Dante Amor
1
Este es el código para el combo del año
Private Sub UserForm_Initialize()
'Por.Dante Amor
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("ADMINISTRACION")
Set h3 = l1.Sheets("Gestión del personal")
Set h4 = l1.Sheets("VENTAS")
Set h5 = l1.Sheets("PRODUCCION")
Set h6 = l1.Sheets("Sectores")
Set h7 = l1.Sheets("Impresion")
meses = Array("", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", _
"Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")
For i = 1 To 12
ComboBox1.AddItem meses(i)
Next
ChDir l1.Path
archi = Dir("*salarios*")
Do While archi <> ""
punto = InStrRev(archi, ".")
año = Mid(archi, punto - 4, 4)
If IsNumeric(año) Then
agregar ComboBox2, año
End If
archi = Dir()
Loop
ListBox1.RowSource = h6.Name & "!A2:A" & h6.Range("A" & Rows.Count).End(xlUp).Row
End Sub
