tag:blogger.com,1999:blog-4623278671508370136.post8875840737650186103..comments2023-08-01T13:39:53.991+02:00Comments on EXCEL FORO: Un blog de Excel: VBA: Eliminar columnas específicas con macros en Excel.Excelforo - Ismael Romerohttp://www.blogger.com/profile/17680553534095355222noreply@blogger.comBlogger10125tag:blogger.com,1999:blog-4623278671508370136.post-50993648908061382822017-12-14T10:08:27.637+01:002017-12-14T10:08:27.637+01:00supongo tendrás una Tabla en una hoja...
En ese ca...supongo tendrás una Tabla en una hoja...<br />En ese caso tendrás que borrar una por una:<br />Range("Tabla1").ListObject.ListColumns("campo3").Delete<br />así solo borrarás el campo completo de esa tabla<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-38680814799358528962017-12-14T10:03:43.715+01:002017-12-14T10:03:43.715+01:00varias columnas continuas y discontinuas
Range(&q...varias columnas continuas y discontinuas<br /> Range("B:D,G:G,J:J,M:M").Delete Shift:=xlToLeft<br /><br />saludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-64079817525873936962017-12-14T09:33:31.665+01:002017-12-14T09:33:31.665+01:00Una consulta, necesitaría el paso inverso, el paso...Una consulta, necesitaría el paso inverso, el paso serçia seleccionar las columnas que me interesan por nombre; ya que lo extraigo de una base de datos que va cambiando el orden, pero no el nombre de las columnas.Anonymoushttps://www.blogger.com/profile/00559216841735987533noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-28240788535814361072017-12-13T14:14:29.730+01:002017-12-13T14:14:29.730+01:00Gracias Ismael, pero en el mismo excel tengo que e...Gracias Ismael, pero en el mismo excel tengo que eliminar muchas que están continuas aparte de las discontinuas. ¿no se puede mezclar en la misma línea.<br />Anonymoushttps://www.blogger.com/profile/00559216841735987533noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-23756275744772193372017-12-13T13:50:19.136+01:002017-12-13T13:50:19.136+01:00Hola Alfredo,
para eliminar columnas seguidas no h...Hola Alfredo,<br />para eliminar columnas seguidas no hace falta la macro anterior (está pensada para columnas discontinuas), en tu caso basta:<br />Columns("CD:FF").Delete Shift:=xlToLeft<br /><br />saludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-13243903944259232082017-12-13T12:44:19.068+01:002017-12-13T12:44:19.068+01:00Muy bueno.
una pregunta, me da error al poner un ...Muy bueno.<br /><br />una pregunta, me da error al poner un rango de columnas juntas. No sería así?: "CD: FF" EJEMPLOAnonymoushttps://www.blogger.com/profile/00559216841735987533noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-15847162327580090462016-11-20T09:56:40.530+01:002016-11-20T09:56:40.530+01:00Hola Gonzalo,
el asunto no es sencillo, ya que pri...Hola Gonzalo,<br />el asunto no es sencillo, ya que primero habría que cargar en alguna Array cuáles son las columnas a eliminar, mediante un bucle por las columnas de tu rango de datos...<br />una vez identificadas, habría que realizar un recorrido inverso (como el del ejemplo) para ir eliminando dichas columnas.<br />Una forma de identificar las columnas a eliminar para la primera carga podría ser comparar el resultado de la función múltiplo con el número de columna...<br /><br />Escribiré y subiré al post una posible solución en cuanto me sea posible.<br />SldsExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-81359265259364101672016-11-19T16:57:27.379+01:002016-11-19T16:57:27.379+01:00Hola, buen dia, excelente foro. No soy muy expert...Hola, buen dia, excelente foro. No soy muy experto en programacion de VB y he tratado de basarme en esta rutina para eliminar columnas de una hoja de excel donde hay 7 columnas ocultas que no requiero y el archivo es bastante extenso en numero de columnas.<br />Es decir que la rutina debe eliminar 7 colunnas y luego se salta una y elimina otras 7 teniendo como limite e inicio una ubicacion especifica.<br />En la rutina anterior esta la base pero no logro decifrar como puedo organizar lo que necesito.<br /><br />Agradezco toda ayuda que me puedan dar.<br /><br />Saludos<br />GonzaloAnonymoushttps://www.blogger.com/profile/17082611469457760880noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-26539165441967242602016-03-23T08:12:35.575+01:002016-03-23T08:12:35.575+01:00Hola,
en realidad habría que preguntar dos cosas, ...Hola,<br />en realidad habría que preguntar dos cosas, el rango sobre el que trabajar:<br />nUltCol = Range("A1:K1").Columns.Count <br />para determinar la última columna y el listado de columnas..<br /><br />La idea es algo larga, pero habría que generar un UserForm con las diferentes opciones, para luego recuperar los valores seleccionados como variables y emplearlos en el código de arriba...<br />También se podría intentar con algún INPUTBOX.<br /><br />Creo lo más sencillo sería modificar la línea de código ;-)<br />SaludosExcelforo - Ismael Romerohttps://www.blogger.com/profile/17680553534095355222noreply@blogger.comtag:blogger.com,1999:blog-4623278671508370136.post-62534250579355870062016-03-23T01:44:28.103+01:002016-03-23T01:44:28.103+01:00Muy bien explicado. Puede modicar el codigo para q...Muy bien explicado. Puede modicar el codigo para que pregunte las columnas que se desean borrar y también tenga la opción de salir,saludos,johnmor41MATEMATIChttps://www.blogger.com/profile/14571469280983221199noreply@blogger.com