Jump to content

tierra_pampa

Members
  • Posts

    351
  • Joined

  • Last visited

  • Days Won

    19

tierra_pampa last won the day on June 21 2021

tierra_pampa had the most liked content!

4 Followers

About tierra_pampa

  • Birthday 03/16/1961

Contact Methods

  • Twitter
    @tierra_pampa

Profile information

  • Gender
    Hombre
  • Localización:
    Santa Rosa, La Pampa

Converted

  • Campos
    ;

Recent Profile Visitors

3,469 profile views

tierra_pampa's Achievements

  1. Hola de nuevo @patriciomates! También tenía esta forma en algún formulario hecho; Private Sub UserForm_Initialize() With Application .ScreenUpdating = False .DisplayAlerts = False End With TextBox1 = DateValue(Now) ...'más el código que tu tengas With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub Para cuando toque grabar en la planilla (creo que es tu problema del otro post) puedes intentar así: hoja1.cells(1,1) = Cdbl(Textbox1.Text) Suerte!
  2. Hola @patriciomates! Intenta de esta manera (modifica el formato de fecha según te convenga) Private Sub UserForm_Initialize() With Application .ScreenUpdating = False .DisplayAlerts = False End With Textbox1 = Format(Date, "DD/MM/YYYY") ...'más el código que tu tengas With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub Suerte!
  3. Hola @Joseito! Evidentemente el problema lo tiene en la celda dónde controla la diferencia de días entre la fecha actual y la fecha de vencimiento. Por favor controla (porque no se ve en el video) los valores de la celda "B3" y la celda de la columna "N5". El formato de esta celda tiene que ser "Número" sin decimales porque está restando dos fechas. Dejo un link a un video para que compruebes el tema del formato de la celda. https://www.dropbox.com/s/4jpxxhg4hi65yd4/20220224_post45659.mp4?dl=0 Seguimos por aquí por si no fuese eso. Suerte!
  4. Hola @Joseito Disculpas por no haber podido regresar antes, no todos los días son iguales (a Dios gracias!!!) Te dejo un nuevo archivo: le agregué las columnas con alertas del archivo anterior, el código faltante y a mí me funciona correctamente. Solo queda que tú pruebes y des el visto bueno. Pd.: Si deseas valorar el tiempo invertido en procurar una solución a tu pedido, abajo a la derecha de cada mensaje encuentras un corazón. Suerte! vba45659_Base de datos Visual Basic V2.xlsm
  5. @Joseito Hola nuevamente ! Lo probé luego de publicar y da error. Prueba de esta manera para ver si es lo que buscas! Agrego un segundo control para que la fecha de inicio no pueda ser mayor que la final (si modificas la fecha de inicio (mayor a vencimiento) luego de ingresar la fecha de vencimiento, no da error.) Suerte! Private Sub txt_fechavencimiento_Change() If txt_fechainicio = "" Then Exit Sub If txt_fechavencimiento = "" Then Exit Sub fecha1 = CDate(txt_fechainicio) fecha2 = CDate(txt_fechavencimiento) If fecha2 < fecha1 And fecha1 <> "" And fecha2 <> "" Then MsgBox "La fecha vencimiento no puede ser menor que la inicial", vbCritical, "Aviso" txt_fechavencimiento = "" End If If fecha1 > fecha2 And fecha1 <> "" And fecha2 <> "" Then MsgBox "La fecha de inicio no puede ser mayor que la de vencimiento", vbCritical, "Aviso" txt_fechavencimiento = "" End If End Sub
  6. Hola @Joseito! Sin mirar detenidamente el código, observo que el ctrl de fecha está recibiendo dos formatos diferentes. Puedes intentar así: Private Sub txt_fechavencimiento_Change() If CDate(txt_fechavencimiento) < CDate(Me.txt_fechainicio) And txt_fechavencimiento <> "" Then MsgBox "La fecha vencimiento no puede ser menor que la inicial", vbCritical, "Aviso" txt_fechavencimiento = "" End If End Sub Suerte!
  7. Hola @Jose BN! Te he dejado una respuesta en el otro foro, porque (lamentablemente) en este no puedo descargar ni subir archivos. Espero que sea los que estás buscando! Suerte!
  8. Hola @Gerardo Mojica!!! Convierte el archivo a extensión *.xlsm (para que puedas usar las macros) y agrega el código en el módulo de la hoja en la cual tienes la tabla. Completa un registro (columnas A:G) y fijate si te ayuda en tu búsqueda (primer punto de tu pedido). Suerte! Private Sub Worksheet_SelectionChange(ByVal Target As Range) cfila = 0: cfila = ActiveCell.Row If Not Intersect(Target, Range(Cells(cfila, 5), Cells(cfila, 7))) Is Nothing Then Cells(cfila, 8).Value = Cells(cfila, 2).Value & ".- " & Cells(cfila, 5).Value Cells(cfila, 9).Value = Cells(cfila, 3).Value & ".- " & Cells(cfila, 6).Value Cells(cfila, 10).Value = Cells(cfila, 4).Value & ".- " & Cells(cfila, 7).Value End If End Sub
  9. Hola tierra-pampa,

    Simplemente queria saludarte y ver que tal estas.

    Saludos desde España.

    Jose

    1. tierra_pampa

      tierra_pampa

      Hola José!
      Todo bien, resistiendo un nuevo rebrote del virus en nuestra provincia.
      Como te ha ido con el archivo?
      Cualquier modificación, la vemos.
      Abrazo grande, buena semana!

    2. joselica

      joselica

      Hola tierra_pampa,

      Con el archivo todo muy bien, gracias por la ayuda.

      Nosotros aqui tambien estamos un poco fastidiados con el rebrote.

      Trabajo en hosteleria y esto no tiene buena pinta para el futuro, pero resistire.

      Deseandote lo mejor me despido.

      Saludos desde España.

  10. Buenas tardes tierra_pampa,

    Tal como te he dico, he comprobado tu ayuda.

    Resulta que en la columa de los servicios T2, no me recopila bien los datos.

    He dado vueltas y no me aclaro en solucionarlo.

    ¿Podias echarle un vistazo de nuevo? Por favor.

    Adjunto el documento repasado.

    Saludos,

     

     

     

     

    BREAKFAST LIST - PROBA 01.07.2020.xlsm

    1. tierra_pampa

      tierra_pampa

      Hola amigo!

       

      Estoy en eso. Dame un ratito y lo reenvío en el post principal

      Abrazo grande desde La Pampa, Argentina!}

       

    2. joselica

      joselica

      Hola amigo,

      No te preocupes.

      Agradezco enormemente tu ayuda.

      Esperare tu respuesta para ver donde esta el error sobre los datos de la columna T2..

      Mientras tanto ire probando y estudiando lo que has conseguido hasta ahora.

      Un abrazo,

      Jose

  11. Hola Amigo, buen día, espero no te hayas retirado del foro, por favor te recuerdo mi petición sobre la Macro-Inventario

     

    gracias

  12. Hola Tierra Pampa, 

    Gracias por tu respuesta, te acabo de subir el archivo sin contraseña para ver si lo puedes revisar.

    Muchas gracias.

    Saludos

×
×
  • Create New...

Important Information

Privacy Policy