Macro Excel extraer datos siguiendo un patrón
Tengo un archivo de Excel con unas 5000 líneas y siempre repite el esquema cada 10 líneas, querría hacer una macro para que me insertase una línea en blanco encima cada vez que encontrase por ejemplo la palabra "banco" y luego que me extrajese a otra hoja si entre los espacios en blanco aparece la palabra "Pepe"
1 respuesta
Para desarrollar la macro se requiere de más detalles, por ej en qué col se encontrarán las palabras señaladas, a qué hoja enviar los registros, si se acumularán unos a continuación de otros, etc.
Lo mejor es que me envies copia de tu hoja (no es necesario que tenga los 5000 registros, con que presente los casos que mencionas es suficiente).
Mis correos aparecen en la portada de mi sitio que dejo al pie.
Esta sería la macro según tus instrucciones:
Sub en_bloques()
'x Elsamatilde
'1er celda de la tabla
[A1].Select
'recorre la tabla hasta el fin de datos
While ActiveCell <> ""
'controla si comienza con la palabra 'reference',
If UCase(Left(ActiveCell, 9)) = "REFERENCE" Then
'en ese caso inserta fila por encima
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
ElseIf InStr(1, UCase(ActiveCell), "PEPE") > 0 Then
filx = ActiveCell.Row
'copia rango desde fila superior a inferior
Range("A" & filx - 1 & ":A" & filx + 1).Copy Destination:=Sheets("PEPE").Range("A" & Sheets("PEPE").Range("A" & Rows.Count).End(xlUp).Row + 2)
End If
ActiveCell.Offset(1, 0).Select
Wend
MsgBox "FIN DEL PROCESO"
End SubSdos y no olvides valorar la respuesta.
¡Gracias!
Al final de la respuesta encontrarás un cuadro para valorar (Buena o Excelente) y así se me quita la consulta de la lista de 'pendientes'.
Sdos!
Mmmm, '¿buena' ... lo sabías hacer mejor?
