|
Private Sub CommandButton1_Click()
Range("C1:D10").Copy
If OptionButton1 Then
Sheets("Hoja1").Select
Hoja1.Range("C1").Select
End If
If OptionButton2 Then
Sheets("Hoja2").Select
Hoja2.Range("C1").Select
End If
If OptionButton3 Then
Sheets("Hoja3").Select
Hoja3.Range("C1").Select
End If
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("hoja10").Select
Range("A1").Select
End Sub
Te explico, yo supuse que tenias una Hoja en donde metias los datos (hoja10 es el nombre que le di yo), esos datos son los que estan dentro del rango C1:D10 en mi caso, tu tendrás que sustituirlo por el rango que corresponda.
Pues bien, lo que yo hice fué lo siguiente:
Cree los tres option button y un command button.
Introduje los datos dentro de ese rango después seleccione un option button y al finalizar pues le doy al command button que es donde tengo puesto ese código.
Al clickar en el boton lo que me hace es que me copia los datos de ese rango y según el option button que ese seleccionado selecciona una u otra hoja (tu tambien tendrás que cambiar el nombre de las hojas en caso de no corresponderse), lo pega y bueno, después puse para que volviera a la hoja principal y deseleccionara todo.
Una cosa a comentar, es que esto se puede hacer de otra manera, sin usar el command button, aunque yo no soy partidario por una razón, que aunque tiene una solución es bastante tonteria hacerlo asi...
Se puede poner directamente la macro dentro del option button, pero claro, imaginate que por error seleccionas uno, automaticamente te lo pegaria ahi... esto se podría solucionar con un mensaje de confirmación, pero yo personalmente, soy partidario de este metodo, así seleccionas el que quieras y aún despues de seleccionarlo puedes modificar los datos, puedes volver a cambiar de option button... y cuando ya si hayas acabado pues le das para que lo copie.
Bueno, si quieres que te ponga como sería de la otra forma dimelo y cualquier otra duda aqui me tienes, saludos.
|
