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
Consulta también:
- Visual Basic Celdas
- Error del sistema &h8000ffff visual basic - Guide
- Visual foxpro - Guide
- Como mostrar celdas ocultas en excel - Guide
- Mecanet basic - Programas - Educación
- Cheats pokemon rojo fuego visual boy advance - 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
