Anónimo
Tengo varios botones de opción en un documento del programa Microsoft Excel.
Que bueno ver a alguien de mi hermoso país colombia
Necesito que me ayudes con algo simple
En la hoja 2 de mi libro tengo varios botones de opción en 3 cuadros de grupo diferentes, usados para obtener las opciones y generar datos diferentes en diferentes hojas, en cada hoja hay un botón que dice "volver a la hoja 2", y vuelve, pero necesito lograr que siempre que vuelva a esa hoja quede marcada la opción Numero 1 (En cada uno de los tres cuadros de grupos)
La otra ayuda que necesito es la siguiente, hay unos datos en varias celdas de excel b34:e48, necesito que al pulsar un botón esos datos se copien en otra hoja PERO, si arriba hay más datos los copie debajo, me explico.
El trabajo es sobre compra de mercancía, y en una hoja se realiza todo el proceso y al final hago el registro de cada compra, necesito que al pulsar el botón agregar al libro diario, ese registro se añada a la otra hoja, pero si arriba hay más datos, que los coloque debajo.
Espero haberme hecho entender muchas gracias
Necesito que me ayudes con algo simple
En la hoja 2 de mi libro tengo varios botones de opción en 3 cuadros de grupo diferentes, usados para obtener las opciones y generar datos diferentes en diferentes hojas, en cada hoja hay un botón que dice "volver a la hoja 2", y vuelve, pero necesito lograr que siempre que vuelva a esa hoja quede marcada la opción Numero 1 (En cada uno de los tres cuadros de grupos)
La otra ayuda que necesito es la siguiente, hay unos datos en varias celdas de excel b34:e48, necesito que al pulsar un botón esos datos se copien en otra hoja PERO, si arriba hay más datos los copie debajo, me explico.
El trabajo es sobre compra de mercancía, y en una hoja se realiza todo el proceso y al final hago el registro de cada compra, necesito que al pulsar el botón agregar al libro diario, ese registro se añada a la otra hoja, pero si arriba hay más datos, que los coloque debajo.
Espero haberme hecho entender muchas gracias
1 respuesta
Respuesta de tavopz
1
Vamos por partes:
1. Con respecto a los OptionButton, entiendo que tienes varios OptionButton en tu hoja de cálculo, si tienes un botón que va a una hoja (primero sería revisar si lo hace mediante una macro o con un link), si es lo primero sólo tendrías que añadir unas líneas a la macro para seleccionar dichos botones, algo como:
OptionButton1.Value = True
Si lo estás haciendo mediante un link, entonces tendrías que crear la macro y asignarla al botón o cuadro de texto que tienes, sería algo como:
Sub MacroXXX()
Worksheets("Sheet3").Activate
OptionButton1.Value = True
End Sub
Con respecto a la segunda parte, me gustaría me expliques algo, lo que necesitas es que el mismo rango (B34:E48) se copie en una hoja, pero no sabes exactamente en que parte de esa hoja, ¿puede variar y la idea es encontrar la última fila ocupada para pegarlo abajo de esa?
1. Con respecto a los OptionButton, entiendo que tienes varios OptionButton en tu hoja de cálculo, si tienes un botón que va a una hoja (primero sería revisar si lo hace mediante una macro o con un link), si es lo primero sólo tendrías que añadir unas líneas a la macro para seleccionar dichos botones, algo como:
OptionButton1.Value = True
Si lo estás haciendo mediante un link, entonces tendrías que crear la macro y asignarla al botón o cuadro de texto que tienes, sería algo como:
Sub MacroXXX()
Worksheets("Sheet3").Activate
OptionButton1.Value = True
End Sub
Con respecto a la segunda parte, me gustaría me expliques algo, lo que necesitas es que el mismo rango (B34:E48) se copie en una hoja, pero no sabes exactamente en que parte de esa hoja, ¿puede variar y la idea es encontrar la última fila ocupada para pegarlo abajo de esa?
Muchas gracias por lo de los botones, me fue de mucha ayuda
Y si, necesito que el mismo rango (B34:E48) se copie en otra hoja debajo de la última fila ocupada.
Gracias por tu ayuda
Y si, necesito que el mismo rango (B34:E48) se copie en otra hoja debajo de la última fila ocupada.
Gracias por tu ayuda
Pienso que puede ser algo así:
Sub MacroCopiar()
Sheets("HojaInicial").Range("B34:E48").Copy
x = Sheets("HojaFinal").Range("A1").End(xlDown).Row + 1
Sheets("HojaFinal").Activate
Cells(x, 1).Select
ActiveSheet.Paste
End Sub
Puedes pegar esta macro en tu libro o en el libro de macros personal y probar si te funciona. Ten en cuenta que debes cambiar los nombres de las hojas y en la segunda línea donde dice A1, debes colocar la celda donde comenzarían a pegarse los datos.
Sub MacroCopiar()
Sheets("HojaInicial").Range("B34:E48").Copy
x = Sheets("HojaFinal").Range("A1").End(xlDown).Row + 1
Sheets("HojaFinal").Activate
Cells(x, 1).Select
ActiveSheet.Paste
End Sub
Puedes pegar esta macro en tu libro o en el libro de macros personal y probar si te funciona. Ten en cuenta que debes cambiar los nombres de las hojas y en la segunda línea donde dice A1, debes colocar la celda donde comenzarían a pegarse los datos.