Ir para conteúdo
Fórum Script Brasil
  • 0

Redim Preserve - Subscript out of range


vitorzilocchi

Pergunta

Boa tarde pessoa, 

Estou com dificuldade de redimensionar um vetor, e preciso de um "help".

Tenho um vetor FSLList com com diversas variáveis (quantidade de linhas variáveis e 2 colunas), gostaria de passar alguns dados desse vetor para um outro vetor (simulando um filtro).

O problema é que quando tento Redimensionar o meu vetor FSLTLIST  com "Preserve" aparece Subscript out of range. 

Alguém sabe me dizer o que estou errando?

 

Dim FSLList As Variant
Dim FSLTList() As Variant

Lastrow2 = ThisWorkbook.Sheets("FSL").Cells(Rows.Count, 1).End(xlUp).Row

FSLList = ThisWorkbook.Sheets("FSL").Range("C2:D" & Lastrow2)

ReDim FSLTList(1 To 1, 1 To 2)

    For i = LBound(FSLList) To UBound(FSLList)
        If UCase(FSLList(i, 1)) Like "*" & UCase(TextBox7.Text) Or UCase(FSLList(i, 2)) Like "*" & UCase(TextBox7.Text) & "*" & "*" Then
            FSLTList(UBound(FSLTList), 1) = FSLList(i, 1) 'Assign the array element
            FSLTList(UBound(FSLTList), 2) = FSLList(i, 2) 'Assign the array element
            ReDim Preserve FSLTList(UBound(FSLTList) + 1, 1)

        End If
    Next i

    FSLListBox.List = FSLTList

End Sub

 

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...