Contar columnas y eliminar

Hola a todos tengo en una macro que me cuente el numero de columnas que son en el archivo pero gustaría que después de contarlas me elimine las ultimas dos?? De que forma puedo hacer esto, hasta ahora solo tengo este código...

ucol = Cells(6, Columns.Count).End(xlToLeft)

Saludos y gracias por la ayuda.

1 respuesta

Respuesta
1

Pero con esta instrucción te está contando las columnas pero solamente de la fila 6, si en esa fila tú última columna con datos es la columna 8 y si tienes en otra fila, por ejemplo, la fila 10 con datos hasta la columna 12, ¿estaría bien que borres las columnas 7 y 8?

Saludos. Dam

Pero si ucol es la última columna y quieres borrar la última y la antepenúltima entonces puedes poner esto:

Sub elim()
ucol = Cells(6, Columns.Count).End(xlToLeft).Column
Set a = Columns(ucol - 1)
Set b = Columns(ucol)
Union(a, b).Delete Shift:=xlToLeft
End Sub

Saludos. Dam
Si es lo que necesitas.

Buen dia Dam!

Te comento lo siguiente hasta la fila 6 es donde tengo los encabezados de las columnas de ahi hacia abajo comienza mi información, como te mencione requiero eliminar las ultimas dos columnas es decir ultima y antepenúltima... Ya probé tu macro y no me elimina estas columnas.

Gracias, saludos!!

Yo tenia un error ya que no me había fijado que antes de la fila 6 en la fila 5 tenia datos, asi que decidí recorrer las filas para que todo salga bien...

Muchas gracias Dam!!

Gran ayuda como siempre

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como puedo ocultar filas sin datos

Quisiera algún tip o algo que me ayude a ocultar celdas sin valor sin necesidad de tener que estar seleccionándolas cada vez que hay que ocultarlas. Me explico: Tengo una tabla dinámica que contiene las siguientes columnas con los siguientes...
1 respuesta

Eliminar datos de toda una fila al eliminar un data de una celda...

Quisiera saber si se podrá realizar lo siguiente: Necesito que al eliminar el dato que se encuentra en la columna B fila 3 osea B3 este me elimina los datos que se encuentran a un lado de su misma fila y así sucesivamente hasta la fila 4002
2 respuestas

Macro excel eliminar duplicados

Necesitaría crear una macro que me eliminará los duplicados pero de manera que se quedara con aquel que tuviera un valor más elevado. Es decir en la columna A, tengo el nombre personas y en la columna B su edad. Quiero que me ordene la columna A por...
1 respuesta

Macro para Microsoft excel para comparar dos valores

Estoy intentando hacer una macro para que me compare una referencia y una fecha de una Hoja1, con la referencia y la fecha de una Hoja2, y si los valores coinciden, que me copie la cantidad que le corresponde en la Hoja1. Os añado un ejemplo de mi...
1 respuesta

Guardar como pdf área de impresión con PDFCREATOR

Me gustaría agregarle a un botón una macro para que al apretar el mismo me guarde el área de impresión que seleccione como pdf, usando pdf creator, en office 2003. Pero, a su ves, que la paginas en blanco las elimine. Es decir, como por ejemplo. Yo...
1 respuesta