Visual Basic Celdas
Cerrado
Pao
-
15 ene 2010 à 02:26
xto.adrianm86 Mensajes enviados 7 Fecha de inscripción lunes 14 diciembre 2009 Estatus Miembro Última intervención 15 enero 2010 - 15 ene 2010 à 17:16
xto.adrianm86 Mensajes enviados 7 Fecha de inscripción lunes 14 diciembre 2009 Estatus Miembro Última intervención 15 enero 2010 - 15 ene 2010 à 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
- Visual foxpro - Guide
- Cheats pokemon rojo fuego visual boy advance - Guide
- Round visual basic - Guide
- Pokemon rojo fuego visual boy advance - Programas - Rol
- Como mostrar celdas ocultas en excel - Guide
1 respuesta
xto.adrianm86
Mensajes enviados
7
Fecha de inscripción
lunes 14 diciembre 2009
Estatus
Miembro
Última intervención
15 enero 2010
4
15 ene 2010 à 17:16
15 ene 2010 à 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
