Jump to content

macro copiar última fila después de crear un índice


Recommended Posts

Hola, buenas. Os adjunto un ejemplo con una macro para copia la última fila de cada grupo de ID (primera columna) en la hoja 2, el caso es que me sale para poder ir añadiendo la primera columna y la que yo le indique, pero no sé cómo indicarle que me copie el registro completo. Había pensado en ir copiando todo el bucle por cada columna, pero cuando son 40 columnas o más, es un montón de código y se ralentiza mucho. ¿Alguna idea para acortarlo? Os he dejado el código de ejemplo en el fichero para que podáis verlo y probarlo. Muchas gracias!

Ejemplo_lastrow.xlsm

Link to comment
Share on other sites

21 hours ago, Antoni said:

Prueba así:

Sub last_row()
Application.ScreenUpdating = False
With Hoja1
   For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      If Not .Range("A" & x) = .Range("A" & x + 1) Then
         .Rows(x).Copy Hoja2.Rows(Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1)
      End If
   Next
End With
End Sub

 

Mil gracias, Antoni! Era exactamente esto! Va perfecto.

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Desconozco si por falta de aportación de datos, no me pueden ayudar  o es que no se puede desarrollar esta macro. Gracias.
    • Antoni muchas gracias, eso lo que esperaba. Consegui también estas lineas codigo. Sub Rellenar() Dim uf, fila As Integer uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row fila = 2 While fila <= uf If Sheets("Consolidar").Cells(fila, 2) = Empty Then    Sheets("Consolidar").Cells(fila, 2) = "DIGITAL" End If fila = fila + 1 Wend End Sub
    • Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"  
    • Buenas tardes chicos, Ya lo he hecho funcionar, tarda un poco al pulsar el botón Ejecutar Comparación que supongo que será por lo poco "depurada" que está la macro pero es hasta donde llego a base de leer y copiar y pegar  he observado que ocupa mas de 2Mb y no es normal, supongo que arrastra algún error que lo hace ir ampliando conforme se usa. Os dejo el archivo por si alguien lo necesita, se que es un poco raro pero quien sabe? a lo mejor le va bien a alguien. Un saludo. DiferenciasEntreColumnas.7z
    • Buenos dias expertos, requiero una ayuda, lo que pasa es que tengo una hoja que importa datos de diferentes libros externos y funciona perfecto, pero lo que pasa es que en la columna B aveces faltan datos ya que debe ser la misma palabra "DIGITAL", lo que requiero es una macro que me copie o me rellene la palabra antes mencionado hasta la altura de los registros importados. Por favor me pueden apoyar con dicha macro estare agradecido de todo ustedes se que en esta comunidad hay muchos expertos. Adjunto el archivo. Consolidado.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy