3

Estoy trabajando con una macro y lo que quiero hacer es comparar los valores de una columna contra los valores en un arreglo y si lo encuentra eliminar la fila completa, lo que no se es la instrucción para buscar el valor, mi código:

Dim i, c, last_row As Integer
Dim myarray As Variant
Dim Product As String

myarray = Array("J8031A#ACC", "J8031A#ACQ", "A2W80A")
last_row = wsMissingSCM2.Range("A22").End(xlDown).Row

For c = 22 To last_row

 Product = wsMissingSCM2.Cells(c, 4).Value

 **If IsArray(Product) Then** 'Tengo este codigo pero no me funciona

    Rows(c).EntireRow.Delete

 End If
Next c

1 respuesta 1

3

De esta respuesta en SO, lo que necesitas es una función auxiliar que verifique si un valor existe en un arreglo:

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
  IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
End Function

Y, ahora sí, usa la función para hacer lo que necesitas cuando encuentras el valor:

' ...
For c = 22 to last_row
    Product = wsMissingSCM2.Cells(c,4).value
    If IsInArray(Product, myarray) then
        Rows(c).EntireRow.Delete
    End If
next c
' ...

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.