Macro extraer valores únicos que son resultado de fórmula
De acuerdo a la macro que describo a continuación, con la misma extraigo los valores únicos de A2:A250 copiándolos en B2 en adelante. El tema está en que funciona sólo si la información de A es ingresada manualmente. O sea que no funciona si los valores de A son el resultado de una fórmula (en este caso BUSCARV).
¿Cómo debería ser la macro para que extraiga los valores únicos de A, si éstos son resultados de una fórmula?
Private Sub CommandButton1_Click()
Range("A2:A250").Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("$B$2:$B$250").RemoveDuplicates Columns:=1, Header:=xlNo
Range("A2").Select
End Sub
Estimado Cecilio,
Quedó solucionado de la siguiente manera:
Private Sub CommandButton1_Click()
Range("B2:B250").Copy
ActiveSheet.Range("C2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Range("$C$2:$C$250").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
Muchas gracias por tu aporte
¿Das por cerrado el tema entonces? Si te sirvió recuerda valorar el trabajo
