¿Cómo seleccionar hoja con checkbox?

Estoy terminando de adaptar una aplicación para llevar el control de tres almacenes diferentes, me explico:
El libro cuenta con un formulario el cual tiene un ComboBox1 llamado Código será usado para buscar los datos, al escribir un código lo busca en la hoja llamada Maestro y pega los datos del resultado en los TetxBox1 y TextBox2 y textBox3 eso lo sé hacer.
Mi duda está en lo siguiente:
Hay tres CheckBox los cuales serán usados para seleccionar la hoja donde debe guardarse la información, no sé cómo hacer para que cuando seleccione por ejemplo el CheckBox1 lo que está en todo el formulario (en los TextBox1 y TextBox2 y TexyBox3) sea pegado en la hoja1 que lleva el nombre de Yopal.
Me dan una manito???
Les agradezco con el alma!
Crysthian

1 Respuesta

Respuesta
1

Aplica el siguiente código:

Private Sub CheckBox1_AfterUpdate()
If CheckBox1.Value = True Then
Worksheets("Yopal").Range("A1").Value = TextBox1.Value

Worksheets("Yopal").Range("A2").Value = TextBox2.Value

Worksheets("Yopal").Range("A3").Value = TextBox3.Value
End If
End Sub

Nota: en Range puedes poner el destino de cada textbox

Saludos. Dam

Dam,

Y si quiero que pegue los datos varias veces. Me explico que yo tenga que guardar en diferentes oportunidades datos diferentes y que cada ves se guarde una abajo del otro y cada textbox ba en una columna diferente no solo en la "A". Como lo hago?

Tu respuesta es super gracias...pero ayudame con esta aclaracion!

Sólo tienes que cambiar el siguiente valor:

Worksheets("Yopal").Range("A1").Value = TextBox1.Value

Si quieres que se guarde en la hoja "salida" en la celda B5

Worksheets("salida").Range("B5").Value = TextBox1.Value

Por favor, podrías cerrar la pregunta, es una pregunta por evento.

Saludos. Dam

Bueno finalmente logre lo que buscaba!!!!

Mira el código que adapte con el que tu me diste!

Private Sub CommandButton1_Click()
Dim i As Integer

Dim final As Integer

Dim j As Integer

Dim actual As Double


For i = 1 To 10000 If Hoja2.Cells(i, 1) = "" Then

final = i

Exit For

End If

Next
For i = 1 To 10000 If Hoja3.Cells(i, 1) = "" Then

final = i

Exit For

End If

Next


If CheckBox2.Value = True Then
Worksheets("CASIMENA").Cells(final, 1) = ComboBox1

Worksheets("CASIMENA").Cells(final, 2) = TextBox1.Value

Worksheets("CASIMENA").Cells(final, 3) = TextBox2.Value

Worksheets("CASIMENA").Cells(final, 4) = TextBox3.Value

UserForm2.ComboBox1 = ""

UserForm2.TextBox1 = ""

UserForm2.TextBox2 = ""

UserForm2.TextBox3 = ""

Else


If CheckBox1.Value = True Then
Worksheets("Yopal").Cells(final, 1) = ComboBox1

Worksheets("Yopal").Cells(final, 2) = TextBox1.Value

Worksheets("Yopal").Cells(final, 3) = TextBox2.Value

Worksheets("Yopal").Cells(final, 4) = TextBox3.Value
UserForm2.ComboBox1 = ""

UserForm2.TextBox1 = ""

UserForm2.TextBox2 = ""

UserForm2.TextBox3 = ""
End If
End If

UserForm2.Hide

End Sub

Muchas gracias.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear Formulario Excel (ayuda a un principiante)

Gurús del excel, estoy trabajando en un formulario de ingreso de datos y mi intención es aprender todo sobre la herramientas de formularios. El objetivo del formulario es entregar un código al usuario que lo ejecute y almacenar en otra hoja los datos...
1 respuesta

Macro diseñada para copiar registros de un form a una hoja excel

Segundo diseñe esta macro para que copie los valores del textbox a una hoja excel llamada histórico, pero que primero busque en la hoja histórico la fila a partir de la 2 en la columna 1 la vacía y lo copie pero no lo hace me podrías decir en que...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

¿Cómo hago para añadir en una nueva hoja de calculo?VBA

Tengo el siguiente código que copie de un ejemplo que descargue pero cuando quiero añadir lo que hace es hacerlo en la misma hoja de calculo toda la información de las textbox, ¿Cómo haría para hacer que cada vez que añada un nuevo cliente aparezca...
3 respuestas

Utilizar una variable de un userform en otro

Éste código me permite elegir una factura de una lista que esta en una hoja, luego me despliega los datos en unos textbox, luego presiono un botón que me envía a otro userform, donde me pide la confirmación de la eliminación. La variable "i" en este...
1 respuesta

Formulario con 2 combobox y guardar datos en diferente libro

Un mega favor esperando que me puedas ayudar Tengo un formulario con 2 combobox los cuales el primero Con el siguiente código Private Sub UserForm_Activate() 'Captura datos y guarda en empresa ws_Count = ActiveWorkbook.Worksheets.Count For i = 1 To...
1 respuesta

CheckBox

Tengo una base de datos creado en un userform con textbox, combobox, etc., toda la información que ingresa me lo manda a la hoja uno al darle insertar con un commandbutton, también con otro commandbutton con el nombre de buscar, encuentra la...
2 respuestas

Macro para bajar renglones

Me podrías ayudar con una macro que realize la siguiente función: Tengo un useform que pone datos en la celdas, y le hice un botón de aceptar, lo que quiero que haga ese botón es que me pocisione en la siguiente celda, por ejemplo: Escribo datos en...
2 respuestas

Como cambiar esta parte del código

Amigo esperto melodiando por aqui tambien logre encontrar este ejemplo para usar un formulario con usuario y clave En el ThisWorkbook utilizo esto según el ejemplo que aparece en este página de todoexpertos Private Sub Workbook_Open()...
1 respuesta