Hola alguien me puede ayudar con esta fórmula en vba.. intento que la columna Ade la página 1, se devuelva a la página 2, columna A2. Básicamente así es como lo intento hacer.

 

 

Set myrng = sheets ("página1").range ("a:a")

Ser  este = sheets ("pagina2").range ("A2")

Myrng.advancedfilter actiom:=  xlfilyercopy, _

Criteriarange:=myrng, copytorange:=rstd, Unique := true

 

 

El problema con esto es que me devuelve el título de la página A y solo quiero el resultado.. alguien me puede por favor corregir?

Buenas, 1 manera es insertando la formula en A2

Cita

Sheets("pagina2").Range("A2").Formula2 = _
"=página1!A1:A" & Sheets("página1").Range("A1").End(xlDown).Row

otra Manera es copiando y pegando

Cita

i = Sheets("página1").Range("A1").End(xlDown).Row
Sheets("página1").Range("A1:A" & i).Copy Destination:=Sheets("pagina2").Range("A2")

saludos

Otra más, añade al final de tu macro:

Sheets("pagina2").Rows(1).Delete

 

Editado el el 8 de octubre3 años por Antoni

Tengo errores en los resultado.. estoy intentando otra fórmula... Pero me genera error alguien me puede decir cuál es... 

 

Sub unicos()
Dim myArr As Variant
Dim rowC As Long
With Sheets("sheet2")
Sheets("base").Columns("a:a").AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=.Range("a11"), Unique:=True
rowC = .Cells(.Rows.Count, "a").End(xlUp).row
myArr = .Range("a2:a" & row)
End With
Dim myVal As String
Dim a As Integer
For a = 1 To UBound(myArr)
myVal = myVal & myArr(a, 1) & ","
Next
End Sub

 

Mi plan es evitar copiar la información de la página base pegarla en la siguiente hoja y luego filtrar por únicos, eso hizo mi archivo más pesado y lento.. solo quiero resumir el proceso.. creo que voy bien ..esta última fórmula genera resultado pero también arroja una ventana de error

Falta el parámetro CriteriaRange en el filtro.