Excel - Ingresar datos a una columna y pasar a la siguiente en un formulario

   
Vista:

Ingresar datos a una columna y pasar a la siguiente en un formulario

Publicado por Jorge Luis jcervantes@aqpcultura.org.pe (35 intervenciones) el 24/03/2013 04:26:28
He creado un formulario que tiene un ComboBox, un textBox , 2 botones de option y dos comand que son aceptar y cancelar

La idea es llenar las filas del la columna B comenzando por la B5, una vez llenado pasar a ingresar datos a la fila C activando la C5 y llenar los datos y pasar a activar la D5........


Envio el codigo
Este código es del Botón Aceptar

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

Este es el código del Botón Cancelar


Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

Este es para cargar los datos al ComboBox1

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 pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ingresar datos a una columna y pasar a la siguiente en un formulario

Publicado por Armando Montes (240 intervenciones) el 24/03/2013 07:42:37
Aqui puedes bajar un ejemplo con lo que te sugeri en tu post anterior:
https://docs.google.com/file/d/0BwedMfHTCustTTRLcGZQT3ZCa3c/edit?usp=sharing
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