............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro para insertar una columna

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro para insertar una columna

Mensaje por JONATHAN el Mar Oct 07, 2008 12:33 pm

Tengo el siguiente codigo:

For N = 1 To 2
If Range("A" & N).Value <> "" Then
Range("A" & (N + 1)).EntireRow.Select
Selection.Insert Shift:=xlDown
Range("A" & (N + 1)).EntireRow.Select
Selection.Insert Shift:=xlDown
Range("A" & (N + 1)).EntireRow.Select
Selection.Insert Shift:=xlDown

Range(("E" & N), ("E" & N + 3)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Else
End If
Next N

End Sub

Me sirve para insertar tres renglones en cada fila se detiene cuando encuentra una vacia

deseo hacer lo mismo, pero que solo me inserte una COLUMNA en cada columna hasta que la encuentre vacia
¿Alguien podria ayudarme?

Dexsde ya muchas gracias

Jonathan

JONATHAN

Cantidad de envíos : 24
Fecha de inscripción : 28/04/2008

Volver arriba Ir abajo

Re: Macro para insertar una columna

Mensaje por GalileoGali el Mar Oct 07, 2008 7:00 pm

Puedes probar esto en el Modulo de la hoja que necesitas modificar:
Código:
Sub columnar()
[a1].Activate
Do While ActiveCell.Offset(0, 1) <> ""
ActiveCell.Offset(0, 1).EntireColumn.Insert xlToRight
ActiveCell.Offset(0, 2).Activate
Loop
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Macro para insertar una columna

Mensaje por JONATHAN el Miér Oct 08, 2008 12:59 am

Como siempre rapido y correcto

Muchas Gracias

Atte. Jonathan

JONATHAN

Cantidad de envíos : 24
Fecha de inscripción : 28/04/2008

Volver arriba Ir abajo

Re: Macro para insertar una columna

Mensaje por JoseAntonioRivasRivas el Miér Jul 30, 2014 5:07 pm

Hola, buenas tardes, una pregunta como seria la macro que en lugar de insertar una columna sean 2, tomando como base este código
Sub columnar()
[a1].Activate
Do While ActiveCell.Offset(0, 1) <> ""
ActiveCell.Offset(0, 1).EntireColumn.Insert xlToRight
ActiveCell.Offset(0, 2).Activate
Loop
End Sub
avatar
JoseAntonioRivasRivas

Masculino Cantidad de envíos : 1
Edad : 45
Ciudad - Pais : Haedo
Version de Excel : 2010
Fecha de inscripción : 30/07/2014

Volver arriba Ir abajo

Re: Macro para insertar una columna

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.