Generar un new book con VBA

23/02/2005 - 02:59 por nanchoguti | Informe spam
Buenas noches amigos.

Como creo un nuevo libro con VBA a partir de 2 libros que tienen el mismo
diseño y que cumpla las siguientes condiciones.
1) Que en la columna F (de Libro1 y Libro2) tenga el texto "Empaque"

y

2) Que en la columna H (de Libro1 y Libro2) tenga el texto "R1" o "R2" o
"R3" o "R28".

Libro1 y Libro2 tienen 12 columnas y n filas.
La macro debe abrir automaticamente los libros Libro1 y Libro2 . Ademas si
el libro a crear Libro3 contiene alguna información se debe borrar
previamente todo el contenido antes de crear el nuevo archivo. Es decir el
Libro3 se crea cada vez que se ejecuta la macro.


Segunda Pregunta. Cúal es la instruccion que me permite borrar fisicamente
filas de un archivo: Requiero borrar de la hoja "Datos" las filas que en
la columna F aparece una palabra diferente a "Empaque".

Muchas gracias por su atención
 

Leer las respuestas

#1 Héctor Miguel
23/02/2005 - 09:18 | Informe spam
hola, Nancho !

Como creo un nuevo libro con VBA a partir de 2 libros que tienen el mismo diseño y que cumpla las siguientes condiciones.



=> esta pregunta [a mi] me ha quedado por demas... 'confusa' :(
[esperemos que alguien mas este 'mas despierto' que yo -a estas horas de mi madrugada'-] :))
[o quiza... si 'amplias' la informacion y proporcionas datos 'mas precisos'] ;)

Segunda Pregunta.
... borrar de la hoja "Datos" las filas que en la columna F aparece una palabra diferente a "Empaque".



una forma +/- 'rapida' seria con una macro como la que te expongo a continuacion.
si cualquier duda... ¿comentas?
saludos,
hector.
en un modulo decodigo 'normal' ==Sub EliminarFilasNoEmpaque()
Worksheets("Datos").Select
If [f1].AutoFilter Then [f1].AutoFilter
Range([f1], [f65536].End(xlUp)).AutoFilter Field:=1, Criteria1:="<>*empaque*"
Range([f2], [f65536].End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
[f1].AutoFilter
End Sub

Preguntas similares