Saltar al contenido

jose lopez contreras

Miembros
  • Contador de contenido

    61
  • Unido

  • Última visita

Sobre jose lopez contreras

  • Rango
    Miembro

Configuraciones

  • Campo que utilizas como separador de argumentos ;

Visitantes recientes del perfil

El bloque de últimos visitantes está desactivado y no se puede mostrar a otros usuarios.

  1. jose lopez contreras

    Macro que se ejecute solo el fin de año

    @ikanni seguí tu recomendación y usando el debug obtuve la siguiente información que te anexo en la siguiente imagenes y como veras si se cumple el If pero no se ejecuta la macro para guardar la hoja en otro libro. te comento que dicha macro para guardar la hoja en otro libro si a ejecuta sola si funciona. algo esta raro no creen.
  2. jose lopez contreras

    Macro que se ejecute solo el fin de año

    No entendí podrías ser mas especifico por favor @ikanni
  3. jose lopez contreras

    Macro que se ejecute solo el fin de año

    @ikanni hola buenas tardes seguí tus recomendaciones tal cual, coloque la macro en un modulo , guarde el libro con fecha del día de hoy, posteriormente cambie la fecha al día 1 de enero del 2020 en el sistema de mi PC pero al abrir el libro con esta nueva fecha se debería ejecutar la macro pero no sucede nada. que crees que este sucediendo. obvio desde Private Sub Workbook_Open() llamo la macro FinDeAño. P.D. la macro proporcionada por @Leopoldo Blancas funciono. Sub FinDeAño() Dim fecha As String fecha = FileDateTime(ActiveWorkbook.FullName) If VBA.Format(CDate(fecha), "yyyy") + 1 = VBA.Format(Date, "yyyy") Then 'ejecuta Macro Workbooks.Open ThisWorkbook.path & "\Reporte anual de Salidas\Reporte anual de Salidas.xlsm" 'abrir el archivo en cualquier escritorio Workbooks("Control JOLOCO Almacenes V 9.9.4.xlsm").Worksheets("Salidas").Copy After:=Workbooks("Reporte anual de Salidas.xlsm").Sheets(1) ' copiar hoja en otro libro ActiveSheet.Name = Year(Now()) ' dar nombre del año a nueva hoja ActiveWorkbook.Save 'salva el arvhivo ActiveWindow.Close 'lo cierra Worksheets("Salidas").Select Range("A1").Select Rows("2:" & Rows.Count).ClearContents End If End Sub
  4. jose lopez contreras

    Macro que se ejecute solo el fin de año

    Jajaja Leopoldo sigo pendiente e interesado de sus comentarios y preocupado porque hoy vivo y mañana no se por lo que no quiero dejarle pendientes a mis hijos. Gracias probaré todas y cada uno de sus observaciones
  5. jose lopez contreras

    Macro que se ejecute solo el fin de año

    Gracias a todos por preocuparse a mi solicitud y a sus comentarios pero Antoni tiene toda la razón los domingos no trabajamos y esa era mi preocupación por si el 31 cae en domingo, mañana se activará la instrucción proporcionada por Leopoldo y para el próximo año aplicare la recomendación de Ikanni claro antes la probaré para estudiar su funcionalidad. Antes de despedirme les deseo lo mejor para este año 2019 a todos los del foro en especial a Leopoldo Blancas, Antoni, Gerson Pineda que sin sus apoyos y observaciones (regaños jajaja) no fuese posible ir aprendiendo. Feliz año. Gracias
  6. jose lopez contreras

    Macro que se ejecute solo el fin de año

    con tu apoyo y motivación Sub FinDeAño() Application.ScreenUpdating = False 'evita que se vean los cambios de las ventanas Application.DisplayAlerts = False 'evita que se vean los anuncios al guardar Dim Dia$, nDia&, Mes$, Dia2$, nDia2&, Mes2$ Dia = VBA.Format(VBA.Now + 1, "dddd") nDia = VBA.Format(VBA.Now + 1, "d") Mes = VBA.Format(VBA.Now + 1, "mmmm") Dia2 = VBA.Format(VBA.Now, "dddd") nDia2 = VBA.Format(VBA.Now, "d") Mes2 = VBA.Format(VBA.Now, "mmmm") If Dia2 <> "domingo" And nDia2 <> 31 Then Sheets("Hoja1").Range("F2").ClearContents End If If Sheets("Hoja1").Range("F2") = "Datos Copiados" Then Exit Sub If Dia = "domingo" And nDia = 31 And Mes = "diciembre" Then 'Ejecuta la Macro '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Sheets("Hoja1").Range("F2") = "Datos Copiados" Workbooks.Open ThisWorkbook.Path & "\Reporte anual\Reporte anual.xlsx" 'abrir el archivo en cualquier escritorio Workbooks("Libro1.xlsm").Worksheets("Hoja2").Copy After:=Workbooks("Reporte anual.xlsx").Sheets(1) ' copiar hoja en otro libro ActiveSheet.Name = Year(Now()) ' dar nombre del año a nueva hoja ActiveWorkbook.Save 'salva el arvhivo ActiveWindow.Close 'lo cierra Worksheets("Hoja2").Select Range("A1").Select Rows("2:" & Rows.Count).ClearContents '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Else If Dia2 <> "domingo" And nDia2 = 31 And Mes2 = "diciembre" Then 'Ejecuta la Macro '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Sheets("Hoja1").Range("F2") = "Datos Copiados" Workbooks.Open ThisWorkbook.Path & "\Reporte anual\Reporte anual.xlsx" 'abrir el archivo en cualquier escritorio Workbooks("Libro1.xlsm").Worksheets("Hoja2").Copy After:=Workbooks("Reporte anual.xlsx").Sheets(1) ' copiar hoja en otro libro ActiveSheet.Name = Year(Now()) ' dar nombre del año a nueva hoja ActiveWorkbook.Save 'salva el arvhivo ActiveWindow.Close 'lo cierra Worksheets("Hoja2").Select Range("A1").Select Rows("2:" & Rows.Count).ClearContents End If End If Application.DisplayAlerts = True 'activa las alertas Application.ScreenUpdating = True 'activa la actualización de la pantalla End Sub quedo al final.
  7. jose lopez contreras

    Macro que se ejecute solo el fin de año

    @Leopoldo Blancas excelente trabajo, pero aquí como le podre hacer para que tu instrucción no se ejecute una segunda vez ya que pretendo ponerla en ThisWorkbook ya que el libro se abre varias veces al día
  8. jose lopez contreras

    Macro que se ejecute solo el fin de año

    @Leopoldo Blancas Perdón quise decir que una macro que tengo quiero se ejecute el día 31 de diciembre siempre y cuando no sea domingo, si llegase a ser domingo se ejecute el día sábado, 30 de diciembre. Mira lo que tengo a lo mejor podrás ayudarme Guarda libro FinAño.rar
  9. Quisiera ver si es posible que una macro se ejecute solo el día 30 de diciembre de cada año siempre y cuando no sea domingo, ahora si es domingo que se ejecute un día antes es decir el sábado, 30 de diciembre.
  10. jose lopez contreras

    Macro no funciona en boton de Userform

    Muchas gracias por tu explicación lo tomare en cuenta para próximos trabajos.
  11. jose lopez contreras

    Macro no funciona en boton de Userform

    @Leopoldo Blancas podrás por favor explicarme porque usar de esa forma la Sub y la llamada de esta, ya que para mi siempre eh usado las Sub en los módulos para no seguir cometiendo ese error. mil gracias funciono bien
  12. Hola amigos tengo un userform donde tengo un botón para eliminar fila seleccionada de un ListBox, ahí la instrucción funciona bien pero mi intención es ponerle clave para que no cualquiera pueda tener ese privilegio, para ello tengo otro userform que se llama desde el mismo botón donde tengo que poner la contraseña y entonces da paso a ejecutar la macro, pero ahí esta el detalle la macro no se ejecuta. la pregunta que estará pasando. anexo archivo para su análisis Busqueda.rar
  13. jose lopez contreras

    Modificar datos desde ListBox

    @Leopoldo Blancas,, muchas gracias por tu aportación y no te preocupes por las buenas observaciones de @Cacho R pero todos esos detallitos ya los corregí (y si fue un buen chiste) y otros que observe. Tema cerrado no vale engancharse
  14. jose lopez contreras

    Modificar datos desde ListBox

    si lo que pasa es que si ponía solo 4 TextBox no obtenía los datos requeridos claro con mi muy poco conocimiento, de echo los otros TexBox están ocultos jajaja si que tengo un tremendo jaleo, pero seguiré tus consejos
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.