Jump to content

Enigma25

Members
  • Posts

    2,408
  • Joined

  • Last visited

  • Days Won

    52

Enigma25 last won the day on December 5 2021

Enigma25 had the most liked content!

About Enigma25

  • Birthday 01/30/1977

Profile information

  • Gender
    Hombre

Recent Profile Visitors

6,299 profile views

Enigma25's Achievements

  1. Un placer. Mi nombre es David Garcia y quien tiene el canal EcoExcel en Youtube y que tengo ese calendario para quienes lo deseen. Me doy a conocer como Enigma25 en el foro desde hace tiempo pero por temas de trabajo y demás, he dejado de participar pero le tengo un gran cariño a este foro porque me ha ayudado mucho y le debo tanto. Aun no tengo los privilegios para aportar archivos pero espero que con el tiempo pueda dar mas aportes para que así, con el tiempo ya puedo adjuntar archivos. De todos modos, el que usas, es básicamente el mismo. La mejora en si es de apariencia.
  2. Está en el mismo archivo publicado por @pinoji y es un aporte que hice hace tiempo en mi canal EcoExcel. De hecho hay una versión mejorada y me gustó mucho el desarrollo del mismo. Es fácil de usar y no ocupa tanto espacio. Saludos.
  3. Hola Solo me paseo por aquí para agradecerte por usar el calendario EcoCalendario que publiqué en mi canal. Es un honor el que lo usen en sus proyectos. Saludos cordiales. EcoExcel
  4. Precisamente te sugerí el Bucle For Next para que recorras cada una de las hojas sin usar WorkSheets("Nombre_Hoja") con su respectivo nombre el cual si tendrás problemas cuando cambies el nombre de la hoja (Pestaña) y lo verás en el futuro. Si estás haciendo referencia a cada hoja con su respectivo nombre, ya no necesitarías el bucle For Next. Por otro lado, he corrido el código sugerido y he cambiado el nombre por cada prueba y no me arroja el error que comentas. Intenta cambiando el bucle For Next por lo siguiente: For I = 1 To Sheets.Count Worksheets(I).CommandButton1.Enabled = True Next I y/o For I = 1 To Sheets.Count Worksheets(I).CommandButton1.Enabled = False Next I
  5. Fuera de la condición, justo debajo de End If incluye la siguiente linea: Hoja4.CommandButton1.Enabled = True
  6. El siguiente codigo valida si el nombre coincide con tu variable y si no coincide, inhabilta los botones(controles) de cada una de tus hojas. P. D. Debes tener el mismo nombre del boton(CommandButton1) en cada una de tus hojas para que funcione. Private Sub Workbook_Open() Dim I As Integer Dim nombre As String Dim archivo As String archivo = "C:\carpeta\libro1.xlsm" nombre = ActiveWorkbook.FullName If nombre = archivo Then For I = 1 To Sheets.Count Sheets(I).CommandButton1.Enabled = True Next I MsgBox "Hola Se ha revisado el nombre del libro" Else For I = 1 To Sheets.Count Sheets(I).CommandButton1.Enabled = False Next I MsgBox "No tendra acceso a los formularios" End If End Sub
  7. Pregunta: Tu base de datos tienes solo esas tablas o solo eliges esas unicas tablas para copiar? Porque lo que pienso que estas buscando es crear un backup de tu base de datos siempre y cuando sea de toda tu base de datos. Si es asi, puedes emplear una libreria llamada : microsoft scripting runtime y con la cual podrás crear tus copias de seguridad con solo tener la ruta actual y creando por medio de variable o lo que desees una ruta donde coloques tu copia de seguridad con un nombre concatenado con la fecha-hora y segundo para que asi tengas la misma base de datos de respaldo unica por cada vez que la requieras crear
  8. A mi me gusta mucho que muestro a continuación porque yo le digo en el evento KeyPress cuales son los que deseo que se digiten y me evito muchos inconvenientes. If InStr("0123456789" & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0 Luego puedes incluir otros caracteres o símbolos que desees incluir y listo
  9. Recomendaría trabajar con el nombre del Objeto WorkSheets y emplear un bucle For Next como verás a continuación y con ello tendrías "Menos lineas de código" que es mas o menos lo que creo que esperas hacer. Dim I As Integer With Hoja1 For I = 1 To 5 .Cells(1, I).AddComment .Cells(1, I).Comment.Text Text:="Titulo " & I .Cells(1, I).Comment.Visible = False If I = 3 Then I = I + 1 Next I End With Espero que sea mas o menos lo que esperas. Mis respetos.
  10. Por lo que entiendo, debes convertir el dato a fecha tal como haces con la función Val() (Que por cierto no recomiendo si usas decimales a menos menos que solo sea entero pero igual no lo recomiendo). Si vas a registrar fecha en las celdas desde el control ComboBox, según el numero de iteraciones de tu bucle, le dices algo así: Hoja1.Cells(i + 1, 3).Value = CDate(ComboBox2) 'Si es que tienes la fecha en el control o Hoja1.Cells(i + 1, 3).Value = CDate(Date) 'Si es que es la fecha del sistema
  11. Hola Benito Por lo que puedo notar es que tienes la llamada al procedimiento Verificar en el evento BeforeUpdate de tu TextBox cuando deberias tenerlo en el evento Change y posteriormente en el evento AfterUpdate es donde validarías tu variable Vr para que si está en false, entonces haga la llamada al formulario para registrar el nuevo cliente y con ello ya tienes solucionado esa parte. Lo otro es el orden de la tabulaciones de tus controles en donde el primer Frame debe ser 0, el segundo Frame debe ser 1 y el TexBox donde quieres el foco que sea 0 y en ese control con su indice de tabulación 0 tendrás el foco sin problemas. Mis respetos @Gerson Pineda
  12. HOAL ENIGMA, ESTUVE MIRANDO TU APORTE DEL STOCK 2.0 ME PARECIÓ EXCELENTE, PERO QUISIERA SABER SI TU ME PUEDES AYUDAR E INDICARME COMO PODRÍA A CARGAR ESTE ARCHIVO CON RECETAS PARA RESTAURANTE Y QUE CADA PRODUCTO TENGA "CARGADOS" LOS INGREDIENTES, PARA QUE EN EL MOMENTO DE LA VENTA SE PUEDAN DESCONTAR, 

     

    MUCHAS GRACIAS!!!

×
×
  • Create New...

Important Information

Privacy Policy