Buenas foro,a ver si me podeis echar una mano. En un userform con 4 checkbox con sus correspondientes textbox, lo que pretendo es que los checkboxs que sean verdaderos, por ejemplo el 2 y el 4, me copie los valores del textbox2 en B2 y el textbox4 en C2, es decir que según los checkbox marcados vaya rellenando en la misma fila sin dejar hueco.

Ejemplo.xlsm

En 30/11/2020 at 14:13 , muyayito dijo:

es decir que según los checkbox marcados vaya rellenando en la misma fila sin dejar hueco.

No he entendido muy bien qué necesitas. Mira a ver si he acertado

Copia de Ejemplo.xlsm

Buenos dias Haplox, gracias por tu tiempo.

Lo que estoy intentando lograr es que cada vez que le de al botón, lo del textbox1, si el checkbox esdá marcado, que lo ponga en b2 de la hoja2, o sea, en otra hoja, aunque eso no es problema. Si el checbox 1 no esta marcado, y el 2 si, que el textbox2 lo copie en b2, o si no en c2, todo en la misma fila.

Resumiendo, el primero que este marcado, en b2, el siguiente en c2, d2, etc...

Todo esto es para yo luego hacer un filtro avanzado, asi que imagina que estas marcando el criterio para trasladarlo a otra hoja y luego seleccionarlo como el rango de criterio.

Private Sub CommandButton1_Click()
Hoja1.Range("B2:E2").ClearContents
If CheckBox1 Then Hoja1.Range("B2") = TextBox1
If CheckBox2 Then Hoja1.Range("C2") = TextBox2
If CheckBox3 Then Hoja1.Range("D2") = TextBox3
If CheckBox4 Then Hoja1.Range("E2") = TextBox4
End Sub

 

Bunenas Antoni, que tal. Gracias por tu tiempo.

Es sin dejar hueco. Si el primer textbox no esta marcado por el checkbox, nada. El primero que este marcado en B2, el siguiente que este marcado, en C2

Private Sub CommandButton1_Click()
Hoja1.Select
Range("B2:E2").ClearContents
Range("B2").Select
If CheckBox1 Then
   ActiveCell = TextBox1
   ActiveCell.Offset(0, 1).Select
End If
If CheckBox2 Then
   ActiveCell = TextBox2
   ActiveCell.Offset(0, 1).Select
End If
If CheckBox3 Then
   ActiveCell = TextBox3
   ActiveCell.Offset(0, 1).Select
End If
If CheckBox4 Then
   ActiveCell = TextBox4
   ActiveCell.Offset(0, 1).Select
End If
End Sub

 

Esta opción te permite eliminar los checkbox.

Private Sub CommandButton1_Click()
Hoja1.Select
Range("B2:E2").ClearContents
Range("B2").Select
For x = 1 To 4
   If Not Trim(Controls("TextBox" & x)) = "" Then
      ActiveCell = Controls("TextBox" & x)
      ActiveCell.Offset(0, 1).Select
   End If
Next
End Sub

 

Ahora si. Nunca me he llevado bien con el for next ?.

Muchisimas Gracias Antoni.

Esta opcion te copia todos los textbox, esten marcados o no los checkbox.

Hace 53 minutos , Antoni dijo:

Private Sub CommandButton1_Click()
Hoja1.Select
Range("B2:E2").ClearContents
Range("B2").Select
If CheckBox1 Then
   ActiveCell = TextBox1
   ActiveCell.Offset(0, 1).Select
End If
If CheckBox2 Then
   ActiveCell = TextBox2
   ActiveCell.Offset(0, 1).Select
End If
If CheckBox3 Then
   ActiveCell = TextBox3
   ActiveCell.Offset(0, 1).Select
End If
If CheckBox4 Then
   ActiveCell = TextBox4
   ActiveCell.Offset(0, 1).Select
End If
End Sub

 

Pues usa esta otra.

Capto la idea, pero de la forma que tengo hecho el userform, me carga todos los textbox, por eso puse los checkbox, pero me la guardo ?

Editado el el 3 de diciembre4 años por muyayito