UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Macro Insertar celdas el 10/09/15, 03:17 pm

Jhony


Buenas tardes compañeros. Alguien me podría ayudar con lo siguiente por favor: requiero una macro para insertar un determinado número de celdas a la derecha, en cualquier posición del cursor. En el archivo anexo, viene más detalles. Agradezco de antemano la ayuda que me puedan proporcionar. Gracias y buena tarde.
Archivos
Pregunta Insertar celdas.xls
No tienes los permisos para descargar los archivos.
(39 KB)

2RESUELTO Re: Macro Insertar celdas el 11/09/15, 03:16 am

ioyama


Hola Jhony

Prueba con

Sub InsertarCeldas()
    c = ActiveCell.Column
    f = ActiveCell.Row
    nc = InputBox("Indique el número de celdas que quiere insertar")
    If Not IsNumeric(nc) Then
        MsgBox ("Debe introducir un valor numérico")
        Exit Sub
    End If
    Range(Cells(f, c), Cells(f, nc * 1)).Insert Shift:=xlToRight
End Sub

Si usas la macro en la hoja en vez de en un módulo podrías emplear el evento BeforeRight

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    c = ActiveCell.Column
    f = ActiveCell.Row
    nc = InputBox("Indique el número de celdas que quiere insertar")
    If Not IsNumeric(nc) Then
        MsgBox ("Debe introducir un valor numérico")
        Exit Sub
    End If
    Range(Cells(f, c), Cells(f, nc * 1)).Insert Shift:=xlToRight
End Sub

Entonces al pulsar el botón derecho del ratón se te activará la macro.

Un saludo desde Vitoria

3RESUELTO Re: Macro Insertar celdas el 11/09/15, 01:27 pm

Jhony


Buenos días Ioyama. Agradezco mucho tu tiempo. Funciona perfecto. Muchas gracias por tu ayuda y hasta pronto, Saludos desde México.

4RESUELTO Re: Macro Insertar celdas el 11/09/15, 01:28 pm

Jhony


Una disculpa. Olvide cerrrar la pregunta. Hasta pronto.

5RESUELTO Re: Macro Insertar celdas el 12/09/15, 12:05 am

Igtelo


Hola Jhony / Ioyama.

Aunque ya está resuelto te dejo otra, lo mismo, en módulo o en la hoja.

Sub Insertar()
Dim dato As Byte 'Hasta 255 celdas si necesitas más cambia Byte por Integer
dato = InputBox("Número de celdas a desplazar") * 1
ActiveCell.Range("A1", Cells(1, dato)).Insert Shift:=xlToRight
End Sub

Saludos
Ignacio Téllez

6RESUELTO Re: Macro Insertar celdas el 13/09/15, 07:27 pm

Jhony


Buenas tardes Ignacio. Agradezco mucho tu tiempo y la respuesta. La apliqué y me funcionó también para lo que necesitaba. Muchas gracias y hasta pronto.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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