Olá.
Trabalho com controle patrimonial e montei, no vba, um formulário com dois listbox, dois botões e uma multipage, onde cada uma dessas abas tem a planta baixa de cada setor (num total de 80 setores).
Nessas plantas contêm os patrimônios presente no setor e em cada patrimônio associei um label (num total de 6.000 patrimônios).
O procedimento é o seguinte: Quando seleciono o setor (listbox1), aparece a aba correspondente do setor com a respectiva planta baixa e a listbox2 mostra os bens daquele setor. O listbox2 é MultiSelect = 1 e ListStyle = 1. Quando seleciono o(s)
número(s) de patrimônio(s) e clico no Button1, o(s) label(s) associados fica(m) visível(is). O Button2 é para colocar todos os label's invisíveis (visible = false).
A ajuda que peço é:
Uns dos comando do Button1 é o seguinte:
.....
If Cells(row, col) = Label_1.Caption Then
Label_1.Visible = True
ElseIf Cells(row, col) <> Label_1.Caption Then
Label_1.Visible = False
End If
.
.
.
If Cells(row, col) = Label_6.000.Caption Then
Label_6.000.Visible = True
ElseIf Cells(row, col) <> Label_6.000.Caption Then
Label_6.000.Visible = False
End If
.....
O problema é que eu inseri 6.000 label's e quando eu clico no Button1 aparece a seguinte mensagem:
Erro de compilação:
Número excessivo de variáveis locais, não-fixas.
Há uma possibilidade de inserir uma variável para a label e fazer um incremento para habilitar/desabitar apenas as label's de interesse?
Obrigado.