Como añadir hojas a un combobox

Tengo una serie de hojas del excel lo que quiero es que él nombre de esas hojas se me cargue al combobox siempre y cuando la celda de j1 sea diferente de 0.

Y me la seleccione

2 Respuestas

Respuesta
1

Si el combo lo tienes en un userform:

Private Sub UserForm_Activate()
'Por.Dante Amor
    For Each h In Sheets
        If h.Range("J1") <> 0 Then
            ComboBox1.AddItem h.Name
            h.Select
        End If
    Next
End Sub

Dices que te seleccione la hoja, pero si varias hojas tiene J1 <> 0 entonces te va ir seleccionando cada una, la última hoja que tenga J1 <> 0 es la que permanecerá seleccionada

Respuesta
1

Prueba con esto.

Private Sub UserForm_initialize()

If cells(1,10).value <>0 then
For i = 1 To Sheets.Count
ComboBox1.AddItem (Sheets(i).Name)
Next i

End if

End Sub

No olvides de comentar y valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas