** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - insercion automatica de columnas
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoinsercion automatica de columnas

 Responder Responder
Autor
Mensaje
amarce Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 18/Julio/2005
Localización: Argentina
Estado: Sin conexión
Puntos: 232
Enlace directo a este mensaje Tema: insercion automatica de columnas
    Enviado: 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




Arriba
amarce Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 18/Julio/2005
Localización: Argentina
Estado: Sin conexión
Puntos: 232
Enlace directo a este mensaje Enviado: 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
Arriba
emiliove Ver desplegable
Moderador
Moderador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5042
Enlace directo a este mensaje Enviado: 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.
Arriba
amarce Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 18/Julio/2005
Localización: Argentina
Estado: Sin conexión
Puntos: 232
Enlace directo a este mensaje Enviado: 20/Septiembre/2012 a las 17:37
Genial muchas gracias por tu invalorable ayuda estimado emiliove.

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable