Cómo agregar condiciones a macro que extrae valores únicos
Les pido ayuda para agregar 3 condicionales a la siguiente macro, la cual extrae valores únicos del rango 'Resma' (que está en el mismo libro, en la Hoja1) y los coloca en la Hoja2, a partir de B3... Desde ya les agradezco mucho.
Los cambios que necesitaría la macro son:
- Que los datos los extraiga de una tabla que está en otro libro, el cual se llama 'Facturación y Backlog', la tabla se llama 'FYB', los datos a extraer están en la hoja 'ABM', y el rango de donde extraer los datos se llama 'Clientes' (J3:J).
- Que al realizar la extracción de valores únicos, la macro tenga en cuenta 3 condicionales: (a) Que en el rango 'País' (C3:C) diga 'España'. (b) Que en el rango 'Hito' (Q3:Q) diga 'Alta'. (c) Que el rango 'Fecha' (O3:O) sea >= a la fecha 01-01-2021.
Sub VentaCliente()
Dim celda As Object
Dim i As Integer
Application.ScreenUpdating = False
Set unicos = New Collection
For Each celda In Range("Resma")
On Error Resume Next
unicos.Add celda.Value, CStr(celda.Value)
On Error GoTo 0
Next celda
For i = 1 To unicos.Count
Sheets("Hoja2").Range("B3").Offset(i - 1, 0).Value = unicos(i)
Next i
Application.ScreenUpdating = True
End Sub
2 respuestas
Respuesta de Elsa Matilde
2
Respuesta de Dante Amor
2