Excel - Ingreso de datos en un formulario

   
Vista:

Ingreso de datos en un formulario

Publicado por Jorge Luis (35 intervenciones) el 22/03/2013 22:27:36
A B C D

papel Bond Tinta Epson Celda Activa
24.5 30
Ext. Nac

He creado un formulario para ingresar datos que tienen un comboBox, 1 TextBox y 1 Opción y dos Botones de comando que son aceptar y cancelar y lo llamo con un comand Button creado en la hoja


La idea es ingresar los datos en la fila B5 el producto , B6 el precio en la B7 la Opción Nac. o Extr., una vez hecho esto pasar a la columna C5 y llenar los datos igual que lo descrito anteriormente y dejar como celda activa la D5 para seguir llenando los datos ( range("D5") ,Value

He escrito el siguiente código y solo me ingresa la opción y de ahí ya no se como hacer ,
A mi parece que hay que crear una variable para la fila y para la columna y de acuerdo a esto llenar los datos.

DEJO CODIGO

Dim i As String

ComboBox1 = ""
TextBox1 = ""

Sheets(4).Range("A1").Activate
Sheets(4).Range("A1").Select
ActiveCell.FormulaR1C1 = ComboBox1
Sheets(4).Range("A1").Offset(5, 2).Select
ActiveCell.FormulaR1C1 = TextBox1
Sheets(4).Range("A1").Offset(6, 2).Select
If (OptionButton1.Value = True) Then
ActiveCell.FormulaR1C1 = "Nac."
Else
ActiveCell.FormulaR1C1 = "Ext."
End If
Sheets(4).Range("A1").Offset(5, 2).Select
Range("D5").Activate


End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub


Private Sub UserForm_Initialize()

ComboBox1.List = Array("Tinta Epson", "DVD-R Imation", "Papel bond 75gr")

End Sub

Gracias por su apoyo.

Jorge
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ingreso de datos en un formulario

Publicado por Armando Montes (240 intervenciones) el 22/03/2013 23:12:52
Algo asi selecciona la primera columna vacia:
1
Range("IV1").End(xlToLeft).Offset(, 1).Select

Generalmente no es necesasio usar Select y Activate, en vez de:
1
2
3
Sheets(4).Range("A1").Activate
 Sheets(4).Range("A1").Select
 ActiveCell.FormulaR1C1 = ComboBox1

Puedes usar:
1
Sheets(4).Range("A1") = ComboBox1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ingreso de datos en un formulario

Publicado por Jorge Luis (35 intervenciones) el 23/03/2013 21:00:56
Estimado Armando he estado analizando el código que me enviaste y solo he llegado a realizar este código abajo señalado de un formulario que tiene un ComboBox, un textBox , 2 botones de option y dos comand que son aceptar y calcelar
el código ya llena dos datos empezando por la celda B5 y lo que no puedo es llenar los otros datos en la siguiente columna que comienza con C5 que activo con Range("C5").Select y de ahí debería llenar los tres datos en forma vertical, termina y sigue a la siguiente columna D5 , pienso que debo colocar una variable para que una vez termina de llenar los datos de la columna B, sume + 1 y pase a la columna C pero en la fila 5 y asi sucesivamente, pero no hallo como, también hay la opción de llenar los datos en la misma columna o sea dos opciones

Envio el codigo

Private Sub CommandButton1_Click()

Range("B5").Select
ActiveCell.FormulaR1C1 = ComboBox1
ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = TextBox1
ActiveCell.Offset(1, 0).Range("A1").Select

If (OptionButton1.Value = True) Then
ActiveCell.FormulaR1C1 = "Nac."
Else
ActiveCell.FormulaR1C1 = "Ext."
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Range("C5").Select


End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub


Private Sub UserForm_Initialize()

ComboBox1.List = Array("Tinta Epson", "DVD-R Imation", "Papel bond 75gr")

End Sub

Gracias por su ayuda a todos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ingreso de datos en un formulario

Publicado por Jorge Luis (35 intervenciones) el 24/03/2013 04:28:33
He reformulado la pregunta así que considero cerrar esta consulta
Gracias a todos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar