Insertar Columnas

publicado el 3 de abril13 años

Buenas Tardes a toda la comunidad de AyudaExcel

quisiera saber si me podrian ayudar con un problema que tengo

recien estoy comenzando a ver el Excel y me estan pidiendo un macro para agregar Columnas despues de un tipo de contenido en una celda

por ejemplo

[TABLE=class: grid, width: 500]

[TR]

[TD]PEPE[/TD]

[TD]TOTAL[/TD]

[TD]MARIA[/TD]

[TD]TOTAL[/TD]

[TD]WENDy[/TD]

[TD]TOTAL[/TD]

[/TR]

[/TABLE]

entonces lo que me piden es que con la macro busque

todas las celdas que tienen el valor "TOTAL" y agregue 2 columnas en blanco despues

para que quede asi

[TABLE=class: outer_border, width: 500]

[TR]

[TD]PEPE[/TD]

[TD]TOTAL[/TD]

[TD](vacio)[/TD]

[TD]MARIA[/TD]

[TD]TOTAL[/TD]

[TD](vacio)[/TD]

[TD]WENDY[/TD]

[TD]TOTAL[/TD]

[TD](vacio)[/TD]

[/TR]

[/TABLE]

pongo esto como ejemplo pero son mas de 300 nombres y estar haciendo 1 por uno

de manera manual me toma horas

espero me puedan ayudar

gracias =)

publicado el 4 de abril13 años

Re: Ayuda Con Macro para Insertar Columnas

Hola! takeo.

a) Incorpora la siguiente macro:

Sub InsertEspacios()
Rem -------------------
Rem  By Cacho Rodríguez
Rem -------------------
Dim Mat1, Mat2, Q As Long, i As Long

Mat1 = Range(Selection, Selection.End(xlToRight))
Q = WorksheetFunction.Floor(UBound(Mat1, 2), 2)
ReDim Mat2(1 To 1, 1 To 2 * Q)

For i = 1 To Q Step 2
  Mat2(1, 2 * i - 1) = Mat1(1, i)
  Mat2(1, 2 * i) = Mat1(1, i + 1)
Next i

Selection.Offset(5).Resize(, 2 * Q) = Mat2
Mat1 = Empty: Mat2 = Empty
End Sub[/PHP]

Selecciona la primera celda de la izquierda (la que contiene PEPE en tu ejemplo) y ejecuta la macro incorporada.

¿Te puede ser de utilidad?...

Saludos, Cacho R

publicado el 4 de abril13 años

Re: Ayuda Con Macro para Insertar Columnas

Hola takeo

entonces lo que me piden es que con la macro busque
todas las celdas que tienen el valor "TOTAL" y agregue 2 columnas en blanco despues

Un metodo mas (Cacho solo por acompanar-te)

Sub espacios_derecha_GP()
Application.ScreenUpdating = False
ucol = Cells(1, Columns.Count).End(xlToLeft).Column
For Each cel In Range(Cells(1, 1), Cells(1, ucol))
    If VBA.UCase(cel) = "TOTAL" And Cells(cel.Row, cel.Column).Offset(, 1) <> "" Then
    Set rango = Range(Cells(cel.Row, cel.Column).Offset(, 1), _
    Cells(cel.Row, cel.Column).Offset(, 1).End(xlToRight))
    With rango
        .Activate
        .Cut Destination:=ActiveCell.Offset(, 2)
    End With
    End If
    ucol = Cells(1, Columns.Count).End(xlToLeft).Column
Next
Range("A1").Select
Set rango = Nothing
Application.ScreenUpdating = True
End Sub[/PHP]

Saludos a ambos

publicado el 4 de abril13 años

Re: Ayuda Con Macro para Insertar Columnas

¿Y, takeo?... ¿Analizaste las propuestas?...

P.D.

Un saludo para el "troesma" Gerson

publicado el 4 de abril13 años

Autor

Re: Ayuda Con Macro para Insertar Columnas

me funciono bien la primera vez ahora que queria probar nuevamente se va a la celda A1 nada mas.. :S

publicado el 4 de abril13 años

Re: Ayuda Con Macro para Insertar Columnas

Entonces debes estar haciendo mal una de las dos siguientes cosas:

a) En el código que te he mostrado tienes que seleccionar la celda extrema izquierda de tu tabla de datos (la celda que contiene el primer Pepe) antes de ejecutar la macro;

En el código que te ha mostrado Gerson tienes que tener tus datos en la fila 1, a partir de la celda A1.

Te diría que pruebes de nuevo y comentes...

publicado el 4 de abril13 años

Autor

Re: Ayuda Con Macro para Insertar Columnas

tienes razon ahora si funciono pero.. no me agrega 2 columna me agrega 2 celdas al lado , por que el contenido que se encuenta debajo de cada celda se mantiene ahi , mientras que las celdas de la fila A se desplazan >_< !!

publicado el 4 de abril13 años

Autor

Re: Ayuda Con Macro para Insertar Columnas

[TABLE=width: 500]

[TR]

[TD]PEPE[/TD]

[TD]TOTAL[/TD]

[TD]LAURA[/TD]

[TD]TOTAL[/TD]

[TD][/TD]

[/TR]

[TR]

[TD]asd2[/TD]

[TD]2[/TD]

[TD]tytyt[/TD]

[TD]4[/TD]

[TD][/TD]

[/TR]

[TR]

[TD]zxcxz[/TD]

[TD]3[/TD]

[TD]yuyuy[/TD]

[TD]5[/TD]

[TD][/TD]

[/TR]

[/TABLE]

y despues de usar el macro queda

[TABLE=width: 500]

[TR]

[TD]PEPE[/TD]

[TD]TOTAL[/TD]

[TD][/TD]

[TD]LAURA[/TD]

[TD]TOTAL[/TD]

[TD][/TD]

[/TR]

[TR]

[TD]asd2[/TD]

[TD]2[/TD]

[TD]tytyt[/TD]

[TD]4[/TD]

[TD][/TD]

[/TR]

[TR]

[TD]zxcxz[/TD]

[TD]3[/TD]

[TD]yuyuy[/TD]

[TD]5[/TD]

[TD][/TD]

[/TR]

[/TABLE]

y lo que Anhelo T_T de todo corazon es que quede

[TABLE=width: 500]

[TR]

[TD]PEPE[/TD]

[TD]TOTAL[/TD]

[TD]vacio[/TD]

[TD]LAURA[/TD]

[TD]TOTAL[/TD]

[TD]vacio[/TD]

[/TR]

[TR]

[TD]asd2[/TD]

[TD]2[/TD]

[TD]vacio[/TD]

[TD]tytyt[/TD]

[TD]4[/TD]

[TD]vacio[/TD]

[/TR]

[TR]

[TD]zxcxz[/TD]

[TD]3[/TD]

[TD]vacio[/TD]

[TD]yuyuy[/TD]

[TD]5[/TD]

[TD]vacio[/TD]

[/TR]

[/TABLE]

pero de todas maneras muchas gracias

si por ahi les sale les estare agradecido eternamente..

mientras ire probando .. !!

publicado el 5 de abril13 años

Re: Ayuda Con Macro para Insertar Columnas

Hola Jorge

Creo que nos confundimos por lo de "vacio" y me deje llevar tambien por el aporte del troesma Cacho, aunque el titulo del tema es mas que claro...

Adapta esta nueva propuesta

Sub insertar_columnas_GP()
Application.ScreenUpdating = False
ucol = Cells(1, Columns.Count).End(xlToLeft).Column
For Each cel In Range(Cells(1, 1), Cells(1, ucol))
    If VBA.UCase(cel) = "TOTAL" And _
    Cells(cel.Row, cel.Column).Offset(, 1) <> "" Then
    Set cols = Range(Cells(cel.Row, cel.Column).Offset(, 1), _
    Cells(cel.Row, cel.Column).Offset(, 2))
    cols.EntireColumn.Insert xlShiftToRight
    ucol = Cells(1, Columns.Count).End(xlToLeft).Column
    End If
Next
Range("A1").Select
Set cols = Nothing
Application.ScreenUpdating = True
End Sub
[/PHP]

Espero te funcione

Pd a espera de la propuesta del señor Rodriguez

Saludos

publicado el 5 de abril13 años

Re: Ayuda Con Macro para Insertar Columnas

Tiendo a no coincidir contigo, Gerson.

Es decir: entiendo que eres excesivamente condescendiente con el consultante (jajajajaja).

En realidad hemos llegado al mensaje #10 (hasta aquí) por no haberle recordado a Jorge -desde un inicio- que no está cumpliendo con las estrictas normas de este Foro, en el sentido de publicar un archivo de muestra: ¿O no?...

De hecho: acepto tu "convite" de rehacer mi versión anterior -tan sólo- por tu requerimiento, ya que no pensaba hacerlo debido a lo mal preguntado y al innecesario tiempo que nos ha hecho aplicar a este tema.

¡En fin!...

Yendo a lo específico, entiendo que la ausencia del archivo de muestra impide evaluar -a ciencia cierta- detalles importantes como: la cantidad de filas de datos o si la primera columna de datos (la encabezada por PEPE) se encuentra totalmente ocupada (hasta la fila que sea) sin interespacios.

Y lo anterior no es un detalle menor: si son pocas filas diría que trabajar en memoria es lo más eficiente. De no serlo, ya no me animaría a brindar esa afirmación.

Hechas estas salvedades: adjunto mi versión corregida.

Libro1.rar

publicado el 6 de abril13 años

Re: Ayuda Con Macro para Insertar Columnas

Tiendo a no coincidir contigo, Gerson.
Es decir: entiendo que eres excesivamente condescendiente con el consultante (jajajajaja).

En realidad hemos llegado al mensaje #10 (hasta aquí) por no haberle recordado a Jorge -desde un inicio- que no está cumpliendo con las estrictas normas de este Foro, en el sentido de publicar un archivo de muestra: ¿O no?...

De hecho: acepto tu "convite" de rehacer mi versión anterior -tan sólo- por tu requerimiento, ya que no pensaba hacerlo debido a lo mal preguntado y al innecesario tiempo que nos ha hecho aplicar a este tema.

¡En fin!...

Yendo a lo específico, entiendo que la ausencia del archivo de muestra impide evaluar -a ciencia cierta- detalles importantes como: la cantidad de filas de datos o si la primera columna de datos (la encabezada por PEPE) se encuentra totalmente ocupada (hasta la fila que sea) sin interespacios.

Y lo anterior no es un detalle menor: si son pocas filas diría que trabajar en memoria es lo más eficiente. De no serlo, ya no me animaría a brindar esa afirmación.

Hechas estas salvedades: adjunto mi versión corregida.

Mi estimado Cacho! estamos en semana santa (jeje), en realidad tienes razon, pero luego no quiero que sigan pensando que soy el (unico) malo de la pelicula (que por cierto hoy, vi de nuevo "TROYA" la has visto? de largometraje pero buena...)

Pasando al tema, sigo admirando tu programacion, especialmente cuando trabajas con la memoria uff vaya que son mas que rapidas tus creaciones, cuando sea grande quiero ser como ("Aquiles" jaja son bromas) tu

Ahora solo a la espera que nuestro compañero, de sus comentarios finales y que tambien sigan las normas de aqui adelante

Saludos cordiales troesma!

publicado el 6 de abril13 años

Re: Ayuda Con Macro para Insertar Columnas

Aprovechando una "escapadita" durante la Semana Santa, aprovecho a confirmarte lo que sospechaba: con 500 o más filas tu código es más rápido, pero con menos es a la inversa.

Como es habitual: para determinar el método más eficiente SIEMPRE se requiere conocer "toda la película".

Hablando de películas...

Antes que ver a Pitt en Troya, prefiero ver a Angie en Salt (sorry).

publicado el 7 de abril13 años

Re: Ayuda Con Macro para Insertar Columnas

Aprovechando una "escapadita" durante la Semana Santa, aprovecho a confirmarte lo que sospechaba: con 500 o más filas tu código es más rápido, pero con menos es a la inversa.
Como es habitual: para determinar el método más eficiente SIEMPRE se requiere conocer "toda la película".

Hablando de películas...

Antes que ver a Pitt en Troya, prefiero ver a Angie en Salt (sorry).

Eres jaja como pitt, salt es muy buena, como casi todas las de esta bella mujer... pero me gusta mas "Wanted"

Jorge Antonio

Que tal? ya podemos cerrar el tema?

Saludos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

192 Archivos
99 Comentarios
30 Revisiones
Última descarga

Cómo conservar la función AHORA()
- 1

Ambito de ejecución de una macro (sencilla)

Hola Ruben
Solo deberías escribir esto. Esa línea hace que si el nombre del libro donde está la macro (thisworkbook) es diferente al nombre del libro donde se encuentra el usuario (libro activo = Activeworkbook)

Por DiegoPC, · publicado hace 18 horas 18 hr
VBA que me recupere la fórmula cuando la celda se quede vacía

Entiendo que en el momento que tuviera dos celdas consecutivas sin fórmula que tuviera que recuperar ese código que planteas no me valdría, porque estoy copiando una fórmula que no existe de la celda de arriba en la celda de abajo de ella.
imagino que con borrar unas lineas te refieres a eliminar esos registros, estirar hacia abajo la tabla y en las nuevas líneas creadas añadirlos al final con los datos que tuvieran los antiguos, con las fórmulas arrastradas y creadas de nuevo. Entonces habria que escribir a mano todos los datos de cada columna a rellenar de todas las filas nuevas, dando lugar a cometer errores de copia/pega o reeescritura. Además, los registros los tengo ordenados con cierto orden , le perdería.
es lo que comentaba antes, era solución funcional trabajando con un excel en el mismo idioma en los dos ordenadores, por eso esto queda descartado, ya que por lo que veo excel no reconoce las funciones de un idioma a otro.
No sé, la verdad que me sorprende un poco que no se pueda hacer lo que planteo aquí al inicio.. Al final me voy a conocer todos los foros, ajja. Un saludo!

Por MANTONIOPM, · publicado el jueves a las 00:082 días
VBA que me recupere la fórmula cuando la celda se quede vacía

Entiendo lo que expone porque he leído el tema en ambos foros, y aunque lo plantea distinto, el punto de los idiomas y la forma de trabajar lo tiene usted de origen, eso no cambia. Me pareció importante mencionarlo aquí, para que se encuentren también todos los elementos y los avances con limitaciones que se ha encontrado usted en el proceso.
Podría juzgar el aporte innecesario de mi parte si no creo decirle algo distinto, aunque sigo considerando que en su caso la fórmula original está en la tabla y no se pierde al borrar unas líneas, independiente de la cantidad. Es decir, con VBA copiar de la celda de arriba más próxima la fórmula a las de abajo que no la tienen. Si ya tiene una solución funcional del Maestro Leopoldo, tal vez explorar desde ahí soluciones complementarias le traiga mejores propuestas.
En ambos foros participan en gran medida pero en distintas ocasiones los mismos maestros, así que es muy probable seguir recibiendo aportes.

Por Israel Cassales, · publicado el miércoles a las 22:592 días
VBA que me recupere la fórmula cuando la celda se quede vacía

Hola, respecto a lo que publiqué en ese foro que comentas decir que con 12000 celdas es para que se entienda, que no tengo 3 o 4 cables como para estar copiando y pegando formulas ya que como se puede entender da lugar a colarte y pegar una en la celda que no es sobre todo cuando llevas ya un buen rato con ello.
Respecto a utilizar una hoja auxiliar es tal y como lo planteé. De hecho el código de Leopoldo Blancas me funcionó perfecto, quedando ese desafío resuelto. Donde estaba el problema?Que cuando ejecutaba la macro me pegaba en las celdas en blanco la fórmula en inglés, que es como tengo el excel en un ordenador de trabajo, y no reconoce las funciones en este otro ordenador también de trabajo y que está en español (que por politicas de empresa no tengo permitido cambiar, capado) Por tanto aunque el código estaba genial no puedo utilizar la hoja excel en el ordenador de teletrabajo. Es por eso por lo que en este foro he planteado el problema desde otro punto de vista, quitando las fórmulas de la hoja auxiliar, ya que por eso método no me valió. Dejo captura de lo que me pasaba (que no es el caso en este tema), aunque pusiera ESFORMULA como comentas no me iba a valer, porque las funciones que contienen están en ingles,, Puedo buscar la traducción?Si, pero me va a dejar de valer para uno de los ordenadores igual. Es por eso que no conviene mezclar lo de un foro con este porque lo he planteado de otra forma aquí. Un saludo!

Por MANTONIOPM, · publicado el miércoles a las 21:432 días
Ambito de ejecución de una macro (sencilla)

Hola Diego ! Gracias por reponder
Yo entiendo que "<>" significa "diferente" como también ">" significa es mayor que y "<" es menor que.
Preguntaba si que palabras (o lo que sea) debo poner despues de "Thisworkbook.Name". Concretamente después del ".Name".
Eso.
Rubén

Por RubenDario, · publicado el miércoles a las 21:152 días

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Insertar Columnas

Featured Replies

Archivado

Archivos

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Cambios en el Control Horario

Estadísticas de descargas

Mensajes

Ambito de ejecución de una macro (sencilla)

VBA que me recupere la fórmula cuando la celda se quede vacía

VBA que me recupere la fórmula cuando la celda se quede vacía

VBA que me recupere la fórmula cuando la celda se quede vacía

Ambito de ejecución de una macro (sencilla)

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)