Eu realmente estava usando um código que procurava por um procv dentro de uma célula o valor da planilha selecionada pelo procedimento 'Select'.
Troquei o código por um outro com comando 'Activate' e o problema persistiu.
Segue abaixo os dois códigos utilizados:
CÓDIGO 1 - SELECT
Private Sub ComboBox1_Change()
Sheets("CADASTRO").Range("O3").Value = ComboBox1.Value
Sheets(Sheets("CADASTRO").Range("N3").Value).Select
End Sub
------------------------------------------------
Private Sub UserForm_Activate()
ComboBox1.RowSource = "CADASTRO!A3:A" & Sheets("CADASTRO").Range("A3").End(xlDown).Row
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------------------
CÓDIGO 2 - 'ACTIVATE'
Private Sub ComboBox1_Change()
Sheets(ComboBox1.ListIndex + 1).Activate
End Sub
-----------------------------------------------------
Private Sub UserForm_Initialize()
Dim Plan As Worksheet
For Each Plan In ActiveWorkbook.Worksheets
ComboBox1.AddItem Plan.Name
Next Plan
End Sub
Tem alguma coisa coisa que eu possa incluir, alterar ou excluir?
Postado : 06/01/2017 7:06 am