Olá! Estou passando por grande dificuldade com um problema utilizando VLookup no VBA do Excel. Antes de mais nada, eu não sou expert em VBA porém consegui usar o VLookup mas não estou tendo o efeito que gostaria. Vou explicar abaixo com maiores detalhes a situação com imagens:
- Estou com uma tabela que associa letras à números em uma planilha separada. Fiz isso pois eu preciso quantificar letras para depois poder compará-las.
- Com esta tabela, pretendo permitir que o usuário, na planilha principal, insira valores que corresponderão à códigos que contém uma combinação de números e letras (Ex: 91V). E depois, com um macro, escolha um valor de código (Ex: 89H). Assim, eu gostaria de criar um macro que iria deletar filas da tabela que neste código tenham números maiores que o escolhido e letras com valores menores. Exemplo da tabela inserida:
- Eu estava tentando juntar informações e montei um código que permite que o usuário insira um valor (Ex: 91V) usa o VLookup pra procurar o valor de V. Porém não vou muito além disso.
Poderiam me ajudar?
EDIT:
À pedido, este era o código que eu tinha até então. Porém, ele era um trabalho em processo que logicamente não está nem perto do que eu preciso.
Sub DeletarIndices()
indice = InputBox("Digite o Valor Desejado", "Teste")
Set planilhaV = Sheets("IV")
Dim vValores As String
sResult = Application.VLookup(indice, planilhaV.Range("A2:B11"), 2)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim i As Long
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Not (Range("A" & i).Value > sResult) Then
Range("A" & i).EntireRow.Delete
End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
EDIT 2
Meu código agora está assim:
Option Explicit
Sub DeletarIndices()
Dim indice As String ' To hold our user input letter
Dim indiceValue As Long ' To hold the numeric value of our user input letter
Dim rowLetter As String ' To hold the current row letter
Dim rowLetterValue As Long ' To hold the numeric value of the current row letter
Dim firstRow As Long ' First row of your data
Dim lastRow As Long ' Last row of your data
Dim currentRow As Long ' Current row for your loop counter
Dim sht As Worksheet ' To hold the worksheet you're working on
Dim planilhaV As Worksheet ' To hold your lookup worksheet
Set sht = ThisWorkbook.Worksheets("Plan1") ' Use the name of your worksheet
Set planilhaV = ThisWorkbook.Worksheets("IV") ' As in your original example
firstRow = 1
lastRow = sht.Range("A" & Rows.Count).End(xlUp).Row
indice = UCase(InputBox("Digite o IC/IV Desejado", "Teste")) ' Convert user input to upper case and store
indiceValue = CLng(Application.VLookup(indice, planilhaV.Range("A2:B11"), 2, False)) ' Creating numeric indice value with lookup table
For currentRow = lastRow To firstRow Step -1
rowLetter = UCase(Right(sht.Range("A" & currentRow).Value, 1)) ' Get letter from code in column A, converted to upper case
rowLetterValue = CLng(Application.VLookup(rowLetter, planilhaV.Range("A2:B11"), 2, False)) ' Creating numeric value for current row letter with lookup table
If rowLetterValue < indiceValue Then ' Compare the numeric letter values, and if smaller than user input...
sht.Rows(currentRow).EntireRow.Delete ' Delete the row
End If
Next currentRow
End Sub
Agora eu precisaria apenas de uma ajuda para adaptar este código com um incremento. Eu preciso permitir o usuário a inserir não apenas uma letra, mas um código (Ex: 91T). Para finalizar, eu preciso que ao inserir o exemplo "91T", o código exclua da tabela todas as linhas que incluam Letras Menores e Números Maiores.