Descargar datos de un formulario a varias hojas

Necesito una macro para descargar información desde un formulario que contiene 3 TextBox en donde introduciré los datos y estos se descarguen en 3 hojas distintas (Hoja2, Hoja3, Hoja4). El formulario se abre con un botón desde la Hoja 1.
TextBox1 que descargue la información a Hoja2. Rango A5
TextBox2 que descargue la información a Hoja3. Rango A4
TextBox3 que descargue la información a Hoja4. Rango A1
La idea es que el formulario (Los TextBox) me muestren los datos si estas mismas casillas se encuentran llenas.
Gracias

1 Respuesta

Respuesta
1
Carga los valores al activar el formulario...
Private Sub UserForm_Activate()
TextBox1.Text = Sheets("Hoja2").Range("A5").Value
TextBox2.Text = Sheets("Hoja3").Range("A4").Value
TextBox3.Text = Sheets("Hoja4").Range("A1").Value
End Sub
Y luego si los cambias los llevas de nuevo a las hojas con un botón..
Private Sub CommandButton1_Click()
Sheets("Hoja2").Range("A5").Value = TextBox1.Text
Sheets("Hoja3").Range("A4").Value = TextBox2.Text
Sheets("Hoja4").Range("A1").Value = TextBox3.Text
End Sub
Éxitos, no olvides calificar...
Al formulario le agregué 3 botones OptionButton con la opción 1, 2 y 3, pero resulta que al cargar el formulario aunque haya seleccionado el botón 1 o 2 siempre me muestra activo el 3.
Los tres botones están asociados a la misma celda y a la misma hoja
Private Sub OptionButton1_Click()
Sheets("Hoja2").Range("A4").Value = "1"
End Sub
Private Sub OptionButton2_Click()
Sheets("Hoja2").Range("A4").Value = "2"
End Sub
Private Sub OptionButton3_Click()
Sheets("Hoja2").Range("A4").Value = "3"
End Sub
y al cargar el formulario agregue
Private Sub UserForm_Activate()
TextBox1.Text = Sheets("Hoja2").Range("A2").Value
TextBox2.Text = Sheets("Hoja3").Range("A2").Value
TextBox3.Text = Sheets("Hoja4").Range("A2").Value
OptionButton1 = Sheets("Hoja2").Range("A4").Value
OptionButton2 = Sheets("Hoja2").Range("A4").Value
OptionButton3 = Sheets("Hoja2").Range("A4").Value
End Sub
Me puedes indicar que está mal
Gracias
Claro al llevarle a los OptionButton el valor que hay en Sheets("Hoja2"). Range("A4"). Value, que es un 1 los optionButton quedan activados... como solo 1 puede estar activo, queda el último.
¿Qué me aconsejas, ya que la idea es que quede el valor 1,2 o 3 de acuerdo a la casilla que haya activado?
Solo elimina de Private Sub UserForm_Activate()
las líneas
OptionButton1 = Sheets("Hoja2").Range("A4").Value
OptionButton2 = Sheets("Hoja2").Range("A4").Value
OptionButton3 = Sheets("Hoja2").Range("A4").Value
No hay porque llevarles valor inicial.
Happy coding!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas