Antoni

Sub Combinar() Application.ScreenUpdating = False columnas = Cells(1, 1).End(xlToRight).Column For Z = 1 To Range("A" & Rows.Count).End(xlUp).Row For x = Z + 1 To Range("A" & Rows.Count).End(xlUp).Row fila = fila + 1 Range("A" & Z).Resize(1, columnas).Copy Cells(fila, columnas + 2) Range("A" & x).Resize(1, columnas).Copy Cells(fila, columnas * 2 + 2) Next Next End Sub Vale para cualquier dimensión de la matriz. La duración de la macro es exponencial respecto al número de filas.

Ya te han dado la solución en otro foro, estaría bien que lo comunicases en los resto de foros que has pedido ayuda, para no hacernos perder el tiempo. https://foro.todoexcel.com/threads/ayuda-macro-para-filtrar-informacion-especifica.64215/

Veo que ya está solucionado, pero como ya casi lo tenía hecho, lo subo. Lista de juegos.xlsm

Estoy en ello, mañana te subiré algo.

Sube un archivo con un ejemplo y explica que es lo que quieres hacer, porqué no se acaba de entender. Pero si lo que tienes es una serie de hojas con una tabla, que empiezan en la misma posición, por ejemplo A1, puedes hacer referencia a ella como ActiveSheet.Range("A1").ListObject. Por otro lado, tu variable AA es un objeto Range con la totalidad de la Columna1 de la tabla y debería contener la dirección de una celda. Y ya para acabar tu fórmula debería ser FormulaLocal.

El archivo original era un .xls de 2010.

Hice esto hace algunos años, a ver si con eso te conformas. Macropedia.xlsm

Si me aburro,.......

Te dejo resuelta una lista, el resto, por asociación, no deberías tener problemas. Private Sub CMBIngresaAutor_Click() With Sheets("Listas") If Not Trim(TXTAutor) = "" Then .Range("B" & Rows.Count).End(xlUp).Offset(1) = TXTAutor Else Beep End If .Range("B7").CurrentRegion.Sort Key1:=.Columns("B"), Header:=xlYes 'Reordena la lista CMBLimpiaAutor_Click End With End Sub Private Sub CMBLimpiaAutor_Click() TXTAutor = "" End Sub

Asegúrate de tener activado el acceso al modelo de objetos de proyectos VBA:

Hola a todos: Días atrás alguien publico una consulta con este título, más o menos, lo cierto es que esta consulta ha sido eliminada. No obstante y dado que he desarrollado una solución, la subo por si es de interés para alguien. La macro permite seleccionar cualquier número de columnas en cualquier orden y copiarlas en la misma hoja o en una nueva. Como curiosidad, decir que genera el código VBA necesario para realizar la operación en un textbox, se puede copiar dicho código, o incluso, generar la macro en el Módulo1, por si se quiere utilizar la macro de forma regular sin tener que volver a escoger las columnas. Abrir el adjunto, y como siempre en mis aportes, pulsar sobre la flecha azul. Saludos Copiar columnas.xlsm

Insisto, en el foro de macros, debe marcarse como solución una macro 😐 y no una fórmula. Por cierto, la solución marcada, tampoco es la mejor, para mi es esta. =TEXTODESPUES(A1,"\",-1)

Sub Copiar_Valores_Contabilidad() With Sheets("Extraer_Rutas") .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets("Rutas_Fs").Range("A2") End With End Sub

Luego no me digais que doy soluciones con macros en el foro de fórmulas. ¿Vale? 😜

A mi me funciona, pero tengo la coma como separador decimal, prueba así: Sub EliminarCeros() Application.DisplayAlerts = False Application.ScreenUpdating = False With Range("A8") .AutoFilter Field:=3, Criteria1:="0.00" .AutoFilter Field:=4, Criteria1:="0.00" .CurrentRegion.Offset(1).Delete .AutoFilter End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub