Anónimo
Optionbutton
Hola! Por favor si me puedes ayudar con el código usando option button para imprimir una o varias hojas tengo un libro con diez hojas
Gracias!
Gracias!
1 Respuesta
Respuesta de Elsa Matilde
1
Los optionButon están en un UF.
Aprovecho la oportunidad para pedirte otro favor.
Un Uf con un comboBox que me tome los datosde lahoja 1 y los vuelque a la hoja 3 los datos son nombres que en la hoja 1 van uno en cada celda de A2:A30 pero en la hoja 3 deberán ir separados por comas (,). Y ademas deberá tener la opción de borrar el dato si es necesario
Muchas gracias!...
Aprovecho la oportunidad para pedirte otro favor.
Un Uf con un comboBox que me tome los datosde lahoja 1 y los vuelque a la hoja 3 los datos son nombres que en la hoja 1 van uno en cada celda de A2:A30 pero en la hoja 3 deberán ir separados por comas (,). Y ademas deberá tener la opción de borrar el dato si es necesario
Muchas gracias!...
Hay varias maneras para controlar el valor de un option, o mejor dicho varios 'momentos'
Por ej, al presionar un botón Aceptar o imprimir, controlarás cuál es la opción seleccionada.
Private Sub cmdAceptar_click()
if optionbutton1.value = true then
hoja = "Hoja1" 'asgnar a la variable el nbre de la hoja 1
elseif optionbutton2.value = true then
hoja = "Hoja2"
elseif optionbutton3.value = true then
hoja = "Hoja3"
elseif .....................seguir con el resto de option
End If
Sheets(hoja). Printout 'imprime la hoja
Otra opción es que en lugar de tener 10 option, tengas un combo donde se elija el nombre de la hoja a imprimir.
hoja = combobox1.value
Sheets(hoja). PrintOut
Los combos se cargan con datos de una lista fija, desde su propiedad RowSource, por ej: A2:A30
Para pasar esos datos a un do cualquiera, necesitás un bucle como este ejemplo:
Private Sub CommandButton1_Click()
fila = 10 'fila de do
col = 2 'col de do
For i = 0 To ComboBox1.ListCount - 1
Sheets(2).Cells(fila, col) = ComboBox1.List(i)
fila = fila + 1
Next i
End Sub
PD) En el futuro, no incluyas + de 1 consulta por entrada.
Sdos
Elsa
PD2) Tu mejor opción: Manual de Formularios (en hoja, en UF... todo) . Descargá la demo desde:
Por ej, al presionar un botón Aceptar o imprimir, controlarás cuál es la opción seleccionada.
Private Sub cmdAceptar_click()
if optionbutton1.value = true then
hoja = "Hoja1" 'asgnar a la variable el nbre de la hoja 1
elseif optionbutton2.value = true then
hoja = "Hoja2"
elseif optionbutton3.value = true then
hoja = "Hoja3"
elseif .....................seguir con el resto de option
End If
Sheets(hoja). Printout 'imprime la hoja
Otra opción es que en lugar de tener 10 option, tengas un combo donde se elija el nombre de la hoja a imprimir.
hoja = combobox1.value
Sheets(hoja). PrintOut
Los combos se cargan con datos de una lista fija, desde su propiedad RowSource, por ej: A2:A30
Para pasar esos datos a un do cualquiera, necesitás un bucle como este ejemplo:
Private Sub CommandButton1_Click()
fila = 10 'fila de do
col = 2 'col de do
For i = 0 To ComboBox1.ListCount - 1
Sheets(2).Cells(fila, col) = ComboBox1.List(i)
fila = fila + 1
Next i
End Sub
PD) En el futuro, no incluyas + de 1 consulta por entrada.
Sdos
Elsa
PD2) Tu mejor opción: Manual de Formularios (en hoja, en UF... todo) . Descargá la demo desde: