Nota
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Este artículo fue escrito por Raddini Rahayu, MVP de Microsoft.
Case
Estos son los informes semanales de actividad de ventas. Por ejemplo, hay 15 personas en este caso. Nancy, el administrador informa, se asigna resumiendo cada dato de ventas en un archivo donde todas las ventas se separan en cada hoja. Para organizar fácilmente los datos, cada hoja que Nancy dio el nombre coincide con el nombre de ventas de esa hoja. Al principio, Nancy se siente cómoda con esto, pero a medida que más datos y demanda un procesamiento rápido, Nancy estaba tan abrumado. Para superar esto, Nancy quiere que las hojas de nombres cambien automáticamente según el nombre de ventas de cada hoja sin cambiarle el nombre manualmente.
Soluciones
Las mejores soluciones para superar el problema de Nancy es mediante el uso de macro. Esta macro diseñada para cada hoja de ese archivo independientemente del número de hojas. El nombre de cada hoja cambiará según el nombre de ventas que se haya determinado en la misma ubicación de cada hoja.
Cómo ejecutar
Primer paso
Diseñar formatos de informe y especificar la ubicación de celda donde se colocará el nombre de ventas. En este caso, la ubicación está en la celda J2. Este formato de informe debe ser el mismo en cada hoja.
Mantenga los nombres de las hojas en el nombre predeterminado (Sheet1, Sheet2, Sheet3, etc.).
Último paso
Paso de codificación de macros
Una vez que sepamos la ubicación de celda donde se colocará el nombre de ventas, ahora podemos continuar con el siguiente paso, Codificación de macros.
En la pestaña Desarrollador , seleccione Visual Basic en la categoría Código o presione la combinación de teclas Alt+F11 en el teclado, por lo que se muestra la ventana de Visual Basic.
En el panel de tareas del proyecto, haga clic en (Nombre del libro) y, a continuación, en el menú Insertar , seleccione Módulo y escriba el siguiente script:
Sub RenameSheet() Dim rs As Worksheet For Each rs In Sheets rs.Name = rs.Range("B5") Next rs End Sub
Presione la tecla F5 en el teclado, si no hay depuración, cierre la ventana de Visual Basic y vuelva a Excel. Si hay depuración, compruebe el script.
Vuelva a Excel y vea lo que sucede, si los códigos son correctos, ahora se cambia el nombre de cada hoja de acuerdo con el nombre de ventas existente en cada hoja.
Eso es todo. Espero que sea útil.
Aviso de declinación de responsabilidades sobre la información de terceros
Los productos de otros fabricantes que se mencionan en este artículo han sido creados por compañías independientes de Microsoft. Microsoft no ofrece ninguna garantía, ya sea implícita o de otro tipo, sobre la confiabilidad o el rendimiento de dichos productos.