copiar color de celda a pestaña de hoja
Publicado por Claudio Fuenzalida (1 intervención) el 29/10/2018 15:43:45
Buenas tardes a los miembros de este grupo.
Tengo la siguiente pregunta y se las quiero comentar con el fin de conseguir ayuda o una instrucción para mi proyecto. Les cuento, realice la siguiente automatización que corresponde básicamente, que cada hoja tiene asignado un nombre, donde los usuarios al cambiar el nombre en la celda indicada (corresponde a cada hoja del libro asignada para rendiciones de fondos) se cambia automáticamente en la pestaña de la hoja correspondiente por numero de rendición otorgada. Pero ademas quiero que al momento que cambie de valor también cambien de color dicha pestaña de la hoja correspondiente. Para poder identificar lo que esta rendido y lo que esta pendiente.
Quedare atento a sus comentarios y de antemano muchas gracias!!!
Tengo la siguiente pregunta y se las quiero comentar con el fin de conseguir ayuda o una instrucción para mi proyecto. Les cuento, realice la siguiente automatización que corresponde básicamente, que cada hoja tiene asignado un nombre, donde los usuarios al cambiar el nombre en la celda indicada (corresponde a cada hoja del libro asignada para rendiciones de fondos) se cambia automáticamente en la pestaña de la hoja correspondiente por numero de rendición otorgada. Pero ademas quiero que al momento que cambie de valor también cambien de color dicha pestaña de la hoja correspondiente. Para poder identificar lo que esta rendido y lo que esta pendiente.
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Rendir()
Dim nombre As String, fila As Integer
Dim Hoja As Worksheet
fila = 5
For Each Hoja In Worksheets
Hoja.Name = Cells(fila, "M").Value
fila = fila + 1
Next
End Sub
Quedare atento a sus comentarios y de antemano muchas gracias!!!
Valora esta pregunta


0