Como seleccionar columnas que cumplan con una condición
Tengo un archivo de Excel el cual tiene como encabezados números puede empezar desde el 1 hasta el 12 o puede ser variable, hay veces empieza en el 2 hasta el 10 (puede ser salteado) , lo que me gustaría hacer es con una instrucción poder copiar solo las columnas que tuvieran como encabezado este rango de números, los voy a copiar a otra hoja, como nota después del numero 12 hay un espacio en blanco y tengo otros datos,
Les agradezco su aporte
Alfonso
1 respuesta
Necesito saber en qué rango están los encabezados. Ejemplo:
Rango a1:h1
De antemano muchas gracias por el apoyo, los encabezados empiezan a partir de G1 pero no siempre están los encabezados (del 1 al 12) en el mismo orden, si gusta le puedo enviar me ejemplo por correo.
Saludos
En el siguiente enlace te dejo un archivo con un ejemplo ya programado
http://share.cx.com/TyYDL6
También dejo escrita aquí la macro
Sub ejemplo()
'por luismondelo
Sheets("hoja1").Select
Range("g1").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value >= 1 And ActiveCell.Value <= 12 Then
ActiveCell.EntireColumn.Copy
Sheets("hoja2").Range("iv1").End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlValues
End If
ActiveCell.Offset(0, 1).Select
Loop
Sheets("hoja2").Select
ActiveSheet.Columns("a:a").EntireColumn.Delete
Range("a1").Select
End Subrecuerda finalizar
