nos meus teste eu entendi,
no caso não preciso dessa rotina, que seleciona a planilha escolhida.
Private Sub ComboBox1_Click()
Sheets(ComboBox1.List(ComboBox1.ListIndex)).Select
End Sub
combobox funciona como uma caixa de texto pré carregada, em vez de escrever apenas seleciona um dos itens que já existe.
Private Sub Fixacopy_Click()
If Fixacopy = True Then Plan_list.Value = "Fixa"
If Fixacopy = False Then Plan_list.Value = ""
End Sub
Private Sub UserForm_Initialize() 'preenche combo box com nomes das planilhas
For Each Sheetos In Worksheets
Plan_list.AddItem Sheetos.Name
Next
End Sub
pelo menos foi oq eu entendi
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Postado : 02/04/2014 8:48 pm