En este grupo En todos

Foro de Excel



Cambios de nombre en hojas de gráficos

Escrito por Javier Forero Carvajal
el 29/01/2008

Ing. Abraham Valencia, primero que todo muchas gracias por atender mi solicitud.

Primero que todo no soy ni programador ni ingeniero de sistemas. Tengo un problema y al hacer una macro para crear un gráfico a partir de un gráfico base, el cual funciona bien por que le coloca el nombre a la hoja el titulo del gráfico, los valores, etc; el problema viene cuando guardo los cambios del libro lo cierro y cuando vuelvo a abrir el libro todos las hojas de los gráficos cambian su nombre por: "Gráfico1, Gráfico2, Gráfico3, Gráfico4, etc. " Incluso he cambiado los nombres manualmente de todos los gráficos y vuelve a cambiar los nombres.

Que puede estar sucediendo? Que puedo hacer para solucionar el problema?

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 29/01/2008
Estimado, trata de ordenarte un poco y explicar mejor las cosas y ademas enviar la macro, para poder entender que es lo que sucede

Abraham
Escrito por Javier Forero Carvajal
el 29/01/2008

Ok, disculpe por el bombardeo de información:

Lo resumo fácilmente, tengo una hojas de un libro de excel las cuales contienen gráficos a las cuales les coloco determinado nombre a la hoja (ya sea con la macro o manualmente); cuando abro el libro nuevamente los nombres de éstas hojas han sido cambiados por el de "Gráfico1, Gráfico2, etc".

Aqui pongo la macro completa, tengo que decir que los datos entran a partir de un UserForm. La parte que hace los del gráfico es la del "CommandButton2"; Si se fija me tocó cambiar el nombre de la hoja base que se llamaba precisamente "grafico base" por el de "Gráfico1" que es como me la cambia el sistema:

Private Sub CommandButton1_Click()

If Sheets("resumen"). Visible = True Then
Sheets("resumen"). Visible = False
End If

Sheets("resumen"). Visible = True
Sheets("resumen"). Select
Sheets("resumen"). Copy After:=Sheets("inicio")
ActiveSheet. Name = TextBox2. Value
Range("c8"). Value = TextBox1. Value
Range("e14"). Value = RefEdit1. Value
Range("e18"). Value = RefEdit2. Value
Range("e26"). Value = RefEdit3. Value
Range("d37"). Value = TextBox3. Value
Range("d38"). Value = TextBox4. Value
Range("d39"). Value = TextBox5. Value
Sheets("resumen"). Visible = False

End Sub

Private Sub CommandButton2_Click()

Nombre = InputBox("Nombre del Gráfico", "Nombre del Gráfico")

If Sheets("resumen"). Visible = True Then
Sheets("resumen"). Visible = False
End If

If Sheets("Gráfico1"). Visible = True Then
Sheets("Gráfico1"). Visible = False
End If

Sheets("resumen"). Visible = True
Sheets("resumen"). Select
Range("c8"). Value = TextBox1. Value
Range("e14"). Value = RefEdit1. Value
Range("e18"). Value = RefEdit2. Value
Range("e26"). Value = RefEdit3. Value

Sheets("Gráfico1"). Visible = True
Sheets("Gráfico1"). Select
Sheets("Gráfico1"). Copy After:=Sheets("inicio")
ActiveSheet. Name = nombre
ActiveChart. SeriesCollection(1). XValues = "={""ORIGEN DE LOS DATOS""}"
ActiveChart.ChartTitle.Text = "=resumen! $c$8"

Sheets("resumen"). Visible = False
Sheets("Gráfico1"). Visible = False


End Sub

Private Sub CommandButton3_Click()

Unload Me

End Sub




Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 29/01/2008
Guardas todo al terminar? Si es asi, y aun tienes problemas, enviame el archivo a:

avalencia@idl.org.pe

Abraham
Rodo
Sonora, México
Escrito por Rodo
el 06/01/2009

Abraham : tengo una hoja de excel que quiero usar con otro usuario y los privilegios que deseo tenga esta hoja son que escribamos sobre ella pero que nadie mas pueda escribir, que los deje solo lectura,
esto es debido a que necesitamos meter datos al mismo tiempo y al final del turno todo mundo pueda ver la hoja de excel.