Ayuda con excel como rescatar la ultima fila de una hoja de excel
Estimados
Como puedo crear una macro para traer la ultima fila de varias hojas, dado que la formula Buscarv es limitada
1 Respuesta
Te anexo la macro que te copia las últimas filas de todas las hojas a una hoja llamada "ultimas". Deberás crear una hoja que se llame "ultimas"
Sigue las Instrucciones para ejecutar macro
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5
Sub ultimas()
'copia las últimas filas
'por.dam
Set h1 = Sheets("ultimas")
h1.Select
h1.Cells.Clear
k = 1
ufilaencontrada = 0
For Each hoja In Worksheets
Set h2 = Sheets(hoja.Name)
h2.Select
Select Case hoja.Name
Case "ultimas"
Case Else
ufila = ActiveCell.SpecialCells(xlLastCell).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
For i = ufila To 1 Step -1
For j = 1 To ucol
If h2.Cells(i, j) <> "" Then
h2.Rows(i).EntireRow.Copy _
h1.Cells(k, "A")
k = k + 1
j = ucol
ufilaencontrada = 1
End If
Next
If ufilaencontrada = 1 Then
i = 1
End If
ufilaencontrada = 0
Next
End Select
Next
End Sub Saludos.Dam
Si es lo que necesitas.
Estimado
En un libro tengo unas 40 hojas como base de datos y en otro libro tengo una sola hoja de resumen en la cual trato que solo se traspasen solo los valores de la ultima fila de la hojas
que yo asigne esto debído a que tengo una hoja cero de refundido
Para completar necesito que me digas lo siguiente:
1. Cómo se llama tu libro resumen
2. Cómo se llama la hoja resumen
3. ¿En tu hoja resumen quieres los registros a partir del último registro que tengas?
4. Cómo se llama tu libro que tiene las 40 hojas
Saludos. Dam
Te envío la macro con los cambios copia del libro "40ladrones" al libro "resumen" hoja "resumen"
Sub ultimas()
'copia las últimas filas
'por.dam
Set h1 = Workbooks("resumen").Sheets("resumen")
Set l2 = Workbooks("40ladrones")
h1.Activate
'h1.Cells.Clear
k = Range("A" & Rows.Count).End(xlUp).Row + 1
ufilaencontrada = 0
l2.Activate
For Each hoja In Worksheets
Set h2 = Sheets(hoja.Name)
h2.Select
Select Case hoja.Name
Case "esta no"
Case Else
ufila = ActiveCell.SpecialCells(xlLastCell).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
For i = ufila To 1 Step -1
For j = 1 To ucol
If h2.Cells(i, j) <> "" Then
h2.Rows(i).EntireRow.Copy _
h1.Cells(k, "A")
k = k + 1
j = ucol
ufilaencontrada = 1
End If
Next
If ufilaencontrada = 1 Then
i = 1
End If
ufilaencontrada = 0
Next
End Select
Next
h1.Activate
MsgBox "Proceso de copiar las últimas Terminado", vbInformation, "ÚLTIMAS"
End SubCambia los nombres de tus libro en la macro en estas líneas
Set h1 = Workbooks("resumen").Sheets("resumen")
Set l2 = Workbooks("40ladrones")
Saludos. Dam
