Excel - como habilito un libro de excel colocando el año calendario

 
Vista:
sin imagen de perfil
Val: 15
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

como habilito un libro de excel colocando el año calendario

Publicado por Norcelo (5 intervenciones) el 09/04/2018 21:32:30
tengo el libro que se llama ciclo lectivo 2018 quiero que me habilite la hojas luego de colocar el año calendario en la primera hoja o que me muestre las demas hojas

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.154
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

como habilito un libro de excel colocando el año calendario

Publicado por Antoni Masana (1459 intervenciones) el 10/04/2018 06:35:23
No se entiende lo que deseas hacer.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 15
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

como habilito un libro de excel colocando el año calendario

Publicado por Norcelo (5 intervenciones) el 10/04/2018 17:31:24
Don Antoni Masana

le adjunte el archivo es un sistemita que realize para la ecuela donde trabajo y me gustaria si le puede dar una mirada si se puede mejorar y lo que pregunte con relacion al año calendario tiene que ver con colocar el año me habilite todas las hojas de los cursos para que sea automatizada no se si me entiende

sin mas muchas gracias


p/d el usurio es norcelo y la clave es yosoy
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.154
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

como habilito un libro de excel colocando el año calendario

Publicado por Antoni Masana (1459 intervenciones) el 11/04/2018 09:04:51
Creo entender que quieres tener una macro que cambie el 2018 (año en curso) por otro año, el 2019 o el que corresponda.

Te reviso de paso el código.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 15
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

como habilito un libro de excel colocando el año calendario

Publicado por Norcelo (5 intervenciones) el 11/04/2018 10:07:14
Buen día si es eso lo que me gustaría que haga para que lo pueda utilizar todo los los años
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 4.154
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

como habilito un libro de excel colocando el año calendario

Publicado por Antoni Masana (1459 intervenciones) el 11/04/2018 19:06:53
Aquí tienes la macro:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub Cambia_Año(Nuevo_anyo As String)
   Dim o_Hoja As Worksheet, o_Pict As Shape, Texto As String, _
       Lin As Integer, l_Objeto As Boolean
 
   ' ---&--- Valida que sean 4 digitos
 
   If Len(Nuevo_anyo) <> 4 Then
      MsgBox "Parámetro erroneo" & vbCrLf & vbCrLf & _
             "Debe ser un número de 4 dígitos", vbCritical + vbOKOnly, _
             "Proceso Cambio Año"
      Exit Sub
   End If
 
   ' ---&--- Valida que sean números
 
   For Lin = 1 To 4
       If Mid$(Nuevo_anyo, Lin, 1) < "0" Or Mid$(Nuevo_anyo, Lin, 1) > "9" Then
          MsgBox "Parámetro erroneo" & vbCrLf & vbCrLf & _
                 "Debe ser carácteres númericos", vbCritical + vbOKOnly, _
                 "Proceso Cambio Año"
          Exit Sub
       End If
   Next
 
   On Error Resume Next
 
   For Each o_Hoja In Worksheets
       Sheets(o_Hoja.Name).Select
       l_Objeto = False
 
       ' ---&--- Busca el objeto que tenga 4 caracteres
 
       For Each o_Pict In ActiveSheet.Shapes
           Texto = o_Pict.TextFrame.Characters.Text
           If Len(Texto) = 4 Then
              o_Pict.TextFrame.Characters.Text = Nuevo_anyo
              l_Objeto = True
              Exit For
           End If
       Next
 
       ' ---&--- Ni no hay objetop con el año busca el texto. Hojas: 2A, 3A, etc.
 
       If Not l_Objeto Then
           If Cells(7, 2) = "Ciclo Lectivo" Then Cells(7, 4) = Nuevo_anyo
           If Cells(8, 2) = "Ciclo Lectivo" Then Cells(8, 4) = Nuevo_anyo
       End If
   Next
End Sub

En esta versión tienes que llamar al proceso y pasárle una cadena de texto con el año.

Ejemplo:
1
2
3
4
5
Sub Macro_1()
    Dim Texto as String
    Texto = "2019"
    Call Cambia_Año(Texto)
End Sub

Si lo quieres mas simple pasa el año como entero:

Ejemplo:
1
2
3
4
5
Sub Macro_1()
    Dim Texto as Integer
    Texto = 2019
    Call Cambia_Año(Texto)
End Sub

Y hacemos un pequeño cambio:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Cambia_Año(Nuevo_anyo As Integer)
   Dim o_Hoja As Worksheet, o_Pict As Shape, Texto As String, _
       Lin As Integer, l_Objeto As Boolean
 
   ' ---&--- Valida que sean 4 digitos
 
   If Nuevo_anyo < 2000 or Nuevo_Anyo > 2100 Then
      MsgBox "Parámetro erroneo" & vbCrLf & vbCrLf & _
             "Año fuera de rango /(2000 - 2100)", vbCritical + vbOKOnly, _
             "Proceso Cambio Año"
      Exit Sub
   End If
 
   On Error Resume Next
 
   ...
End Sub


He realizado algunos cambios, espero que para mejor
- He dejado un solo modulo con los pocos procesos que hay
- Dale un vistazo a las hojas 1D, 1G, 1H el código de esta forma se lee mejor y se entiende enseguida
- Lo mismo en los formularios
- En las hojas anteriores hay un proceso que se repite y me da la sensación que es el mismo. El Resalta podrías ponerlo en el modulo1 y no tendrias que repetirlo tantas veces.

Hay una hoja oculta que se llama BV que ademas hay dos pero no solo veo una y no la otra.

He visto un fallo y no se porque. Abro el libro, me sale la pantalla de usuario, cancelo, vuelvo a abrir el libro y entro directamente.

Otra cosa. Hay muchísimas hoja, no se si son necesarias o se podría simplificar el número de ellas, lo que podría ir bien es que si te mueves a través de menús para ir de una hoja a otra podrías ocultarlas todas y mostrar solo la hoja activa, es un poco lioso de programar la primera vez pero estaría mejor, agobia un poco tantas hojas.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 15
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

como habilito un libro de excel colocando el año calendario

Publicado por Norcelo (5 intervenciones) el 11/05/2018 16:59:32
disculpe don antoni por la demora en responderle ahora le pregunto esto va a modulo 1 y en la hoja de excel le tengo poner el acceso

gracias norcelo caceres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar