Uso del InputBox
Publicado por Jorge Luis (43 intervenciones) el 15/03/2013 04:45:24
Estoy tratando de hacer los siguiente empleando InputBox la macro para que permita ingresar su código de alumno, nombre y
teléfono, y que estos datos se muestren al costado de cada texto o sea en la celda C5,C6,C7.
Al finalizar debe mostrarse un mensaje que diga: “Datos ingresados”, debe utilizar
msgbox.
Celda A Celda B Celda C
1
2
3
4
5 Código
6 Nombres
7 Teléfono
8
He avanzado lo siguiente por favor su ayuda
Sub Datos_Cervantes()
Dim N1 As Integer
Dim N2 As Integer
Dim N3 As Integer
Dim mensaje1 As String
Dim mensaje2 As String
Dim mensaje3 As String
Range("B5").Value = "Código"
Range("B6").Value = "Nombre"
Range("B7").Value = "Telefono"
mensaje1 = InputBox(" Datos de Alumno:", "Ingrese su Código")
Range("C5").Value = N1
mensaje2 = InputBox(" Datos de Alumno:", "Ingrese su Nombre")
Range("C6").Value = N2
mensaje3 = InputBox(" Datos de Alumno:", "Ingrese su Telefono")
Range("C7").Value = N3
End Sub
Gracias
teléfono, y que estos datos se muestren al costado de cada texto o sea en la celda C5,C6,C7.
Al finalizar debe mostrarse un mensaje que diga: “Datos ingresados”, debe utilizar
msgbox.
Celda A Celda B Celda C
1
2
3
4
5 Código
6 Nombres
7 Teléfono
8
He avanzado lo siguiente por favor su ayuda
Sub Datos_Cervantes()
Dim N1 As Integer
Dim N2 As Integer
Dim N3 As Integer
Dim mensaje1 As String
Dim mensaje2 As String
Dim mensaje3 As String
Range("B5").Value = "Código"
Range("B6").Value = "Nombre"
Range("B7").Value = "Telefono"
mensaje1 = InputBox(" Datos de Alumno:", "Ingrese su Código")
Range("C5").Value = N1
mensaje2 = InputBox(" Datos de Alumno:", "Ingrese su Nombre")
Range("C6").Value = N2
mensaje3 = InputBox(" Datos de Alumno:", "Ingrese su Telefono")
Range("C7").Value = N3
End Sub
Gracias
Valora esta pregunta


0