Boa noite pessoal,
Possuo uma planilha que é meu "bd" de clientes. E quando inicio meu formulário, tenho uma rotina para colocar em ordem alfabética a visualização na comboBox.
Se a planilha de clientes estiver visível, não tenho problemas. Mas como tenho que deixar ela oculta, ocorre o seguite:
"Erro em tempo de execução '1004':
O método Select da classe Worksheet falhou"
Segue a rotina onde seleciono a planilha e coloco em ordem alfabética:
Sheets("CLIENTE").Select
lin = 2
col = 2
While Cells(lin, col) <> ""
cmbnome.AddItem (Cells(lin, col))
lin = lin + 1
Wend
Dim ini, fim As Integer
Dim i, j As Integer
Dim menor As String
ini = 0
fim = cmbnome.ListCount - 1 '4 itens(0 - 3)
For i = ini To fim - 1 'Comparar 1 item com outros 3
For j = i + 1 To fim 'Comparar com o próximo
If cmbnome.List(i) > cmbnome.List(j) Then
menor = cmbnome.List(j)
cmbnome.List(j) = cmbnome.List(i)
cmbnome.List(i) = menor
End If
Next j
Next i
O que devo fazer para funcionar com a planilha oculta?
Um abraço a todos.
Postado : 15/02/2015 5:02 pm