Tengo la macro hecha y ha funcionado bien pero ahora con el año 2022 no ejecuta la macro, pero si coloco 2021 funciona ok
'Insertar hoja con un nombre determinado
'Asumiré que el nombre de la hoja está escrito en la celda C9 de la hoja "Nombres",
'pero puede ser el dato de una variable o solictiada al usuario a través de un InputBox, etc.
Sub InsHoja()
Dim MyName As String
Sheets("00-06-19").Select
MyName = Range("C3").Value
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = MyName
End Sub
Sub Macro3()
'
' Macro3 Macro
'
'
ActiveSheet.Shapes.Range(Array("Button 2")).Select
Selection.OnAction = "TrsLibros"
End Sub
Sub Macro4()
'
' Macro4 Macro
'
'
ActiveSheet.Shapes.Range(Array("Button 2")).Select
Selection.Characters.Text = "Trf OC"
With Selection.Characters(Start:=1, Length:=6).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Range("F2").Select
End Sub
Sub ReplicarHojaActual()
''Creada por FSerrano en 120313
''para molder87 en TodoExpertos.com
''copia la hoja llamada "" y la renombra de acuerdo al dia de la fecha actual
nombre = Range("C3").Value 'para dar nombre a la hoja relacionado con esta celda
Sheets("00.00.00").Copy After:=Sheets(ActiveWorkbook.Sheets.Count) 'copia la hoja llamada ""
ActiveSheet.Name = nombre 'da el nombre de la celda condicionada
ActiveSheet.Name = Day(Now()) 'da el nombre el dia de la fecha actual
End Sub
El problema es que el botón al darle click no hace nada, pero si le cambio la fecha al computador y le coloco cualquier fecha del 2021 si funciona normal.. no da mensaje de error, el sistema va grabando los datos y deja un libro 00.00.00.. pero al crear ese ultimo lo marca con la fecha actual y allí creo que esta el problema, en esta línea...
ActiveSheet.Name = Day(Now()) 'da el nombre el dia de la fecha actual
El botón al darle click no hace nada
Tienes varias macros.
¿Cuál es la que no te funciona?
Puedes subir tu archivo a la red, por ejemplo dropbox o googledrive, compartes el archivo y pegas aquí el enlace.
AQUÍ ENVÍO EL LINK PARA TENER ACCESO A TODOS LOS ARCHIVOS
https://drive.google.com/file/d/1UFGSuTTY5p4_KeUVtL9JcmErvwSESBll/view?usp=sharing
la clave para entras a las macros es: juliet
Puedes proporcionar más información.
Tienes 4 archivos, cuál archivo es el que tiene problemas.
En cuál hoja está el "botón" y cuál es el botón.
Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben absolutamente nada acerca de tus datos, absolutamente nada sobre cómo están en el libro de trabajo, absolutamente nada sobre lo que tú quieres que se haga con él y absolutamente nada sobre cómo quieres el resultado ... debes ser muy específico al describir cada una de estas áreas, en detalle, y no debes suponer que seremos capaces de "resolverlo" por nuestra cuenta. Recuerda, nos estás pidiendo ayuda ... así que ayúdanos, brindando la información que necesitamos para hacerlo, incluso si esa información te parece "obvia" (recuerda, sólo es obvia para ti porque estás familiarizado con tus datos, su diseño y el objetivo general para ellos).
Es solo este botón que no ejecuta en el año 2022, si le coloco manualmente a la pc el año 2021 funciona normalmente
La macro está en el libro: "GOLDEN MINING-2022.xlsm"
El botón está en la hoja "00.00.00"
La macro está en el módulo: "E_transf"
La macro se llama: "TrsLibros"
Busca la macro y borra esta línea:
If Date > 44561 Then Exit Sub
Significa que si la fecha es mayor al 31/12/2021 sale de la macro.
[Al final de mi respuesta hay un botón para valorar. No dejes sin valorar.
¡Gracias! No me permitió borrarlo pero lo que hice fue incrementar el valor a 267,366 y funciono bien. super agradecido amigo, gracias por el inmenso aporte
