Não consegui compreender o objetivo da demanda x modelo de planilha.
Mas para utilizar os dados de uma planilha oculta não pode referir-se a mesma como activesheet, estando oculta não estará ativa,
Suas rotinas devem funcionar +/- assim:
Sub carregaCombo()
UserForm1.ComboBox1.Clear
With Sheets("Plan1")
For a = 1 To .Cells(Cells.Rows.Count, "T").End(xlUp).Row
UserForm1.ComboBox1.AddItem .Cells(a, "T").Value
Next a
End With
End Sub
Sub carregaPesquisa()
UserForm1.ListBox1.Clear
With Sheets("Plan1")
For a = 1 To .Cells(Cells.Rows.Count, "T").End(xlUp).Row
If .Cells(a, "T").Value = UserForm1.ComboBox1.Value Then
UserForm1.ListBox1.AddItem .Cells(a, "T").Value
End If
Next a
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/01/2016 10:01 am