Visual Basic Celdas
Cerrado
Pao
-
15 ene 2010 a las 02:26
xto.adrianm86 Mensajes enviados 7 Fecha de inscripción lunes, 14 de diciembre de 2009 Estatus Miembro Última intervención viernes, 15 de enero de 2010 - 15 ene 2010 a las 17:16
xto.adrianm86 Mensajes enviados 7 Fecha de inscripción lunes, 14 de diciembre de 2009 Estatus Miembro Última intervención viernes, 15 de enero de 2010 - 15 ene 2010 a las 17:16
Hola,
quisiera que por favor me colaboraran con un codigo visual basic, que permita insertar varias celdas (filas) a una hoja de excel, para que el usuario no tenga que estar con clikc derecho insertar sino que el programa me pida el número de celdas (solo filas )a insertar y el usuario lo digite.
Agradezco su colaboración.
quisiera que por favor me colaboraran con un codigo visual basic, que permita insertar varias celdas (filas) a una hoja de excel, para que el usuario no tenga que estar con clikc derecho insertar sino que el programa me pida el número de celdas (solo filas )a insertar y el usuario lo digite.
Agradezco su colaboración.
Consulta también:
- Visual Basic Celdas
- Cheats pokemon rojo fuego visual boy advance - Guide
- Visual foxpro - Guide
- Como mostrar celdas ocultas en excel - Guide
- Round visual basic - Guide
- Error del sistema &h8000ffff visual basic - Guide
1 respuesta
xto.adrianm86
Mensajes enviados
7
Fecha de inscripción
lunes, 14 de diciembre de 2009
Estatus
Miembro
Última intervención
viernes, 15 de enero de 2010
4
15 ene 2010 a las 17:16
15 ene 2010 a las 17:16
Espero te sirva esto, lo hice en una macro, solo falta que valide si es numérico lo que le ingresas, si es caracter que le mande un mensaje de que solo números y que se apague si le da cancelar.
Sub Macro1()
'
' Macro1 Macro
'
'
insertRow
End Sub
Function insertRow()
Dim iRows_ As Integer
Dim iAux_ As Integer
iRows_ = InputBox("Número de celdas")
For iAux_ = 1 To iRows_
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next iAux_
End Function
Saludos espero te sea de utilidad
Sub Macro1()
'
' Macro1 Macro
'
'
insertRow
End Sub
Function insertRow()
Dim iRows_ As Integer
Dim iAux_ As Integer
iRows_ = InputBox("Número de celdas")
For iAux_ = 1 To iRows_
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next iAux_
End Function
Saludos espero te sea de utilidad