publicado el 7 de octubre2 años 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?
publicado el 7 de octubre2 años 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
publicado el 8 de octubre2 años Otra más, añade al final de tu macro: Sheets("pagina2").Rows(1).Delete Editado el el 8 de octubre2 años por Antoni
publicado el 11 de octubre2 años Autor 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
publicado el 11 de octubre2 años Autor 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
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?