He creado el siguiente código para introducir datos en excel. De manera que el código detecte cual es la última fila escrita, se sitúe en la siguiente y vaya pidiendo la información y la vaya colocando en la celda correspondiente de la columna.
Private Sub CommandButton2_Click()
Dim Nombre As String
Dim tipología As String
Dim CSAP As String
Dim CANTG As String
Dim Sistema_Operativo As String
Dim Características_Tecnológicas As String
Dim Fecha_Inclusión_Catálogo As Date
Dim Terminal_sin_Alta As Integer
Dim SPGE As Integer
Dim Apoyo_Canje As Integer
Dim Pantalla As Integer
Dim Duración_Batería As String
Dim Dimensiones As Integer
Dim Peso As Integer
Dim Fila As String
Dim Columna As String
Dim jj
Dim nn
Nombre = Val(InputBox("Introduzca_el_nombre_del_nuevo_modelo(return para terminal):", "Nombre"))
Hola
He creado el siguiente código para introducir datos en excel. De manera que el código detecte cual es la última fila escrita, se sitúe en la siguiente y vaya pidiendo la información y la vaya colocando en la celda correspondiente de la columna.
Private Sub CommandButton2_Click()
Dim Nombre As String
Dim tipología As String
Dim CSAP As String
Dim CANTG As String
Dim Sistema_Operativo As String
Dim Características_Tecnológicas As String
Dim Fecha_Inclusión_Catálogo As Date
Dim Terminal_sin_Alta As Integer
Dim SPGE As Integer
Dim Apoyo_Canje As Integer
Dim Pantalla As Integer
Dim Duración_Batería As String
Dim Dimensiones As Integer
Dim Peso As Integer
Dim Fila As String
Dim Columna As String
Dim jj
Dim nn
Nombre = Val(InputBox("Introduzca_el_nombre_del_nuevo_modelo(return para terminal):", "Nombre"))
tipología = Val(InputBox("Introduzca_la_tipología_del_nuevo_modelo", "Entrar"))
CSAP = Val(InputBox("Introduzca_CSAP", "Entrar"))
CANTG = Val(InputBox("Introduzca_CANTG", "Entrar"))
Sistema_Operativo = Val(InputBox("Introduzca el Sistema_Operativo", "Entrar"))
Características_Tecnológicas = Val(InputBox("Introduzca_las_características", "Entrar"))
Fecha_Inclusión_Catálogo = CDate(InputBox("Introduzca_Fecha_Inclusión", "Entrar"))
Terminal_sin_Alta = Val(InputBox("Introduzca_Terminal_sin_alta", "Entrar"))
Terminal_con_Alta = Val(InputBox("Introduzca_Terminal_con_Alta", "Entrar"))
SPGE = Val(InputBox("Introduzca_SPGE", "Entrar"))
Apoyo_Canje = Val(InputBox("introduzca_El_Apoyo_de_Canje", "Entrar"))
Pantalla = Val(InputBox("Introduzca_el_Tamaño_Pantalla", "Entrar"))
Duración_Batería = Val(InputBox("Introduzca_la_duración_de_la_Batería", "Entrar"))
Dimensiones = Val(InputBox("Introduzca_las_dimensiones_del_terminal", "Entrar"))
Peso = Val(InputBox("Introduzca el peso", "Entrar"))
With ActiveCell
.Value = Nombre
.Offset(0, 4).Value = tipología
.Offset(0, 5).Value = CSAP
.Offset(0, 6).Value = CANTG
.Offset(0, 7).Value = Sistema_Operativo
.Offset(0, 8).Value = Características_Tecnológicas
.Offset(0, 9).Value = Fecha_Inclusión_Catálogo
.Offset(0, 10).Value = Terminal_sin_Alta
.Offset(0, 11).Value = Terminal_con_Alta
.Offset(0, 12).Value = SPGE
.Offset(0, 13).Value = Apoyo_Canje
.Offset(0, 14).Value = Pantalla
.Offset(0, 15).Value = Duración_Batería
.Offset(0, 16).Value = Dimensiones
.Offset(0, 17).Value = Peso
End With
ActiveCell.Offset(1, 0).Activate
"MsgBox("Deseas_continuar",vbYesNo + vbQuestion, "opci" ///no sabría como ponerlo///
End Sub
¿Qué es lo que falla? ¿que no me copia en la celda correspondiente? No tengo mucho conocimiento de excel y es un curro, yo creo que me falta código
Gracias
Un saludo