Imprimir página | Cerrar ventana

insercion automatica de columnas

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=74487
Fecha de impresión: 19/Septiembre/2020 a las 18:07


Tema: insercion automatica de columnas
Publicado por: amarce
Asunto: insercion automatica de columnas
Fecha de publicación: 20/Septiembre/2012 a las 16:07
Hola a todos:
Quiero insertar una cantidad x de columnas tengo este codigo y no me funciona porque no se repite el loop, que sentencia me esta faltando para que se cumpla, gracias.

Sub inserta_columnas()
Dim col As Integer

numcol = InputBox("Cuantas columnas queres insertar?")
&&&&Do
&&&&
&&&&Selection.Insert Shift:=xlToRight
&&&&
&&&&Loop
&&&&
&&&&MsgBox (numcol & " columnas han sido insertadas."), vbInformation

End Sub







Respuestas:
Publicado por: amarce
Fecha de publicación: 20/Septiembre/2012 a las 17:02
CORRECCION

Sub inserta_columnas()
Dim col As Integer

numcol = InputBox("Cuantas columnas queres insertar?")
Do

Selection.Insert Shift:=xlToRight

Loop
MsgBox (numcol & " columnas han sido insertadas."), vbInformation

End Sub


Publicado por: emiliove
Fecha de publicación: 20/Septiembre/2012 a las 17:28
Intentalo así:
 
Sub inserta_columnas()
Dim numcol As Integer
numcol = InputBox("Cuantas columnas queres insertar?")
    Selection.EntireColumn.Insert
    Columns(numcol).Insert
End Sub
 
Saludos.


Publicado por: amarce
Fecha de publicación: 20/Septiembre/2012 a las 17:37
Genial muchas gracias por tu invalorable ayuda estimado emiliove.




Imprimir página | Cerrar ventana