Notifications
Clear all

Selecionar dados em planilha oculta

2 Posts
1 Usuários
0 Reactions
942 Visualizações
(@varzya)
Posts: 0
New Member
Topic starter
 

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
(@varzya)
Posts: 0
New Member
Topic starter
 

Resolvi da seguinte maneira.

Sheets("CLIENTE").Visible = True (no inicio do código)

Sheets("CLIENTE").Visible = False (no final do código)

 
Postado : 15/02/2015 6:16 pm