'Cuadro de dialogo de entrada
'
'Nos permitira ingresar un texto,numero o rango
'
'Sintaxis para funcion InputBox de VBA
'
'
'InputBox([prompt],[Title],[Default],{xpos],[ypos],[help file,context])
'
'Prompt : Es el texto mostrado en el cuadro de dialogo
'
'Title :(opcional)Texto de titulo para el cuadro de dialogo
'
'Default :Valor por defecto mostrado en el cuadro de dialogo
'
'Xpos,Ypos :La patalla se ubicar segun las cordenadas
'
'Helpfile ,context (opcional).el archivo de ayuda
'
'Type :Opcional.El tipo de dato devuelto como se ve en la siguiente tabla.
'
'codigo --> SIGNIFICADO
'------
'0 -----> Una fórmula
'1 -----> Un numero
'2 -----> Una cadena(texto)
'4 -----> Un valor logico(True o False)
'8 -----> Una celda de referencia ,como un objeto de rango
'16 -----> Un error de valor,como #N/A
Sub nombres()
Dim i As String
Dim a As Integer
Range("A1:A20").Select 'selecccionamos rango de trabajo
For a = 0 To Selection.Cells.Count 'relizar repeticiones para cada una de las celdas
i = (InputBox("Ingrese su nombre", "Nombre")) 'recuperamos ldsa cadena del input box
ActiveCell.Offset(a, 0).Value = i 'bajamos por las celdas de la seleccion de 1 en 1
Next a
End Sub
Sub beneficio()
Dim u As Long
Do
u = Val(InputBox("Ingrese beneficio", "Beneficio logrado"), "x") 'recuperar beneficio
Loop While u > 0 'CONTINUAR MIENTRAS > 0
End Sub
