Jump to content

Antoni

Members
  • Posts

    11,487
  • Joined

  • Last visited

  • Days Won

    815

Antoni last won the day on December 5

Antoni had the most liked content!

About Antoni

  • Birthday 04/16/1951

Profile information

  • Gender
    Hombre
  • Localización:
    Galicia (UTC+1)

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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.
  2. 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/
  3. Veo que ya está solucionado, pero como ya casi lo tenía hecho, lo subo. Lista de juegos.xlsm
  4. 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.
  5. Hice esto hace algunos años, a ver si con eso te conformas. Macropedia.xlsm
  6. 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
  7. Asegúrate de tener activado el acceso al modelo de objetos de proyectos VBA:
  8. 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
  9. 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)
  10. 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
  11. Luego no me digais que doy soluciones con macros en el foro de fórmulas. ¿Vale? 😜
  12. 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
×
×
  • Create New...

Important Information

Privacy Policy