Botón Examinar Selector de archivos con el objeto FileDialog (Imágenes, Archivos) Formularios VBA

Поділитися
Вставка
  • Опубліковано 16 жов 2024

КОМЕНТАРІ • 52

  • @ingcepeda
    @ingcepeda Місяць тому +1

    ¡Gracias!

    •  Місяць тому +1

      Gracias por tu Donación @ingcepeda me alegraste la noche ☺☺☺☺☺☺

  • @joseguevaraaltamirano9524
    @joseguevaraaltamirano9524 20 днів тому

    Como siempre muchas gracias por compartir tus conocimientos, me ayudaría mucho que explicaras lo de los códigos para clientes, supongo que también vas a ayudar a más personas a parte de mi, muchas gracias por tus atenciones.

  • @walterramonvelasquez3786
    @walterramonvelasquez3786 Місяць тому

    El curso de macro esta Excelente, para los seguidores de tu canal y que quiera aprender Macros, te felicito Bendiciones y que la comunidad entera sepa sacarle provecho a estos vidos tutoriales, que el Señor te Bendiga.

  • @josemaciel6788
    @josemaciel6788 4 місяці тому +1

    Muy bueno Miguel, excelente, un fuerte abrazo para ti y todos los hermanos Peruanos, José desde Florida Uruguay ❤❤

    •  4 місяці тому

      Gracias Jose. Saluduos. 😊😊😊😊😊😊

  • @mariam4879
    @mariam4879 3 місяці тому

    Bravo, bravisimo. Esto es todo un mundo y aqui salen propiedades y metodos como churros 🤣🤣🤣, recomiendanos alguna "lectura" donde podamos conocerlos, supongo que cuantos mas se conocen mas posibilidades hay de hacer cosas con vba. Muchas Gracias!!!!!

  • @sierra6460
    @sierra6460 4 місяці тому +2

    Excelente ejemplo muchas gracias 👍

    •  4 місяці тому

      Saludos.

  • @miguelpizzi5171
    @miguelpizzi5171 4 місяці тому +1

    Fantástico tío tech MAESTRO 👍 todo muy bien explicado 👍👍👍👍👍👍👍👍👍👍👍👍👍👍👍👍👍👍👍👍👍

    •  4 місяці тому

      Gracias Saludos.

  • @MANDARRIA99
    @MANDARRIA99 9 днів тому

    Agradezco la ayuda, corregido el problema.

  • @mcampana7398
    @mcampana7398 3 місяці тому

    Excelentes todas las exposiciones, Dios le bendiga y le siga dando esos conocimientos que nos ayuda muchisimo en nuestro trabajo.
    Me puede ayudar con el link de descarga del calendario que no lo puedo ubicar, muy agradecido de usted

  • @SantiagoMendez-bp6hw
    @SantiagoMendez-bp6hw Місяць тому

    muy buen video Tio Tech, por favor me podrías ayudar que código aplico para seleccionar en la url de la imagen insertado en la tabla de excel y que se vea la imagen en tamaño visible ?

  • @mesilemitvelasquez5717
    @mesilemitvelasquez5717 2 місяці тому

    excelentes tus videos.. tengo una duda, es posible que pueda verse un enlace de internet, en imagen? o solo se puede usar con documento descargado.

  • @jorgeenriquerestrepo5242
    @jorgeenriquerestrepo5242 2 місяці тому

    Buenas tardes, excelente proyecto y explicaciones, lo felicito por su trabajo. Estoy siguiendo el paso a paso del formulario pero no me deja agregar imágenes en formato png, sale el error 481. Con formatos jpg y gif no hay problema. Cual será el problema si la programación está exacta a la del video? Muchas gracias y de nuevo felicitaciones por tan excelente trabajo. Un saludo desde Colombia.

  • @azuangelesmejia4222
    @azuangelesmejia4222 26 днів тому

    El curso de macro esta Excelente, buenos días, me podría indicar como coloco un tercer calendario por favor, no me quedó muy claro .

    • @edwincifuentes5229
      @edwincifuentes5229 14 днів тому

      Hola, yo soluciones lo de doble y triple calendario de forma muuuucho mas sencilla, simplemente,
      1. creé una variable pública llamada exportarfecha
      2. en vez de colocar la ubicación donde el modulo de calendario iba a situar la fecha le asigné el valor a la variable nueva
      3. en el evento click del formulario registrar, coloqué el llamado del calendario y debajo coloque simplemente el código para estampar la variable publica que ya había creado y listo, funciona sin lio
      * En el modulo calendario*
      Public exportarfecha
      Option Explicit
      Option Private Module
      Private SenalCambioMes As Long
      Public Sub RecibeLaFecha(Dia As Long, Mes As Long, Ano As Long)
      Dim FechaRecibida As Date
      FechaRecibida = VBA.DateSerial((VBA.CInt(Ano)), (VBA.CInt(Mes)), (VBA.CInt(Dia)))

      'INDICAR UBICACIÓN DE LA FECHA
      'registrar.venlicencia.Value = FechaRecibida
      exportarfecha = FechaRecibida
      End Sub
      *en el evento click del formulario registro* (esto aplica en el click de todos los calendarios que vayas a poner
      Private Sub CommandButton5_Click()
      llamar_calendario
      Me.venlicencia.Value = exportarfecha
      End Sub

  • @angelperalta6670
    @angelperalta6670 4 місяці тому +1

    En vez del correo, ¿Qué otro campo podría ser , para que haga lo mismo que hace cuando se pone cualquier cosa en correo no le permite registrar y cuando está bien puesto el correo le permita registrar, por favor si me puedes ayudar con eso. Gracias, excelente trabajo

    •  4 місяці тому

      Hola Angel, no entiendo bien tu pregunta. Si me das mas detalles te podría ayudar.

  • @julianandreshoyos4496
    @julianandreshoyos4496 16 днів тому

    Otra forma es declarar un variable publica, la cual le asignas un nombre de acuerdo al botón de calendario que selecciones, y en el modulo de calendario con if controlas a donde vas a colocar la fecha.

  • @MANDARRIA99
    @MANDARRIA99 3 місяці тому +3

    Buenas Tardes, amigo, justo aca -> Dialogo.Filters.Add "Imágines", "*.gif; *.jpg, *.png" -> Arroja error 438, el objeto no admite esta propiedad o metodo.

    • @roddanrodtel
      @roddanrodtel 29 днів тому

      Amigo ese error vota cuando no esta bien definido el guardado de archivo, o cuando guardas de forma general el intéprete no lo lee cómo .png o .jpg sino como un archivo general. Intenta guardar bien el archivo con su formato original.

    • @josebaltodano6
      @josebaltodano6 21 день тому

      Amigo creo que el problema es que tienes Dialogo. Filters.Add "Imágenes", "*. gif y luego le pusiste un punto y coma donde se separan con comas.

  • @JhonierQuintero-sq4uo
    @JhonierQuintero-sq4uo 4 місяці тому

    Buen día, tengo una tabla dinámica con bastantes datos, voy agregando datos con botón macros y formulario userform, necesito es un formato en vba que pinte toda la fila al decir la palabra listo cuando tenga el trabajo realizado pero que al momento de agregar más datos el formato no se me borre. Gracias

  • @josebaltodano6
    @josebaltodano6 22 дні тому

    Buenas. Tengo una consulta y me gustaría saber como puedo hacer que con solo agregar un código de x o y trabajador este me jale de la base de datos sus datos personales y luego agregarle otras coas manuales y darle guarda en una nueva hoja llamada Producto rechazado. Esto lo hago para evitar el tequio de estar escribiendo todos los datos del trabajador.

  • @germansoriano6509
    @germansoriano6509 4 місяці тому +3

    Hola tío tech una consulta como cambio el número por CLI_001?. Como lo agrego al formulario automáticamente?

    •  4 місяці тому +1

      Hola german. Acá explico en el video que le sigue a este proyecto. ua-cam.com/video/BAWXw-DQRJw/v-deo.html

    • @germansoriano6509
      @germansoriano6509 4 місяці тому

      Ah Ok gracias

    • @domingofeliz6294
      @domingofeliz6294 2 місяці тому

      Si, por favor, muchas gracias.

  • @josevivas4982
    @josevivas4982 3 місяці тому

    ya logre el objetivo. pudo abrir carpeta con imagenes

  • @dianasofiavargasaranguren5068
    @dianasofiavargasaranguren5068 2 місяці тому

    Buena tarde,
    Tengo un problema con la acción de insertar la imagen. Este es mi código. No sé que estoy haciendo mal, si tuve en cuenta todas las variables que nos sugieres.
    Private Sub CommanExaminar_Click()
    Dim Dialogo As FileDialog

    'Limpie
    Set Dialogo = Nothing
    'Fin


    Set Dialogo = Application.FileDialog(msoFileDialogFilePicker)
    Dialogo.Filters.Clear
    Dialogo.Filters.Add "Imágenes", "*.gif; *.jpg, *.png"
    Dialogo.AllowMultiSelect = False


    If Dialogo.Show = -1 Then
    TextFoto.Value = Dialogo.SelectedItems(1)
    Image1.Picture = LoadPicture(TextFoto.Value)

    Else
    MsgBox "Nada"
    End If
    Set Dialogo = Nothing

    End Sub

  • @josevivas4982
    @josevivas4982 3 місяці тому

    no logro abril las imagenes. OBSERVO, en el Editor VBA acentuas la palabra Imagenes, mi Edito no hay manera que la acentue. y una 2da observaciòn, despues de gif pones (;) y en el jpg soalamente la "coma" .. en otras palabras no permite mi Editor escribir Imágenes aceptuada, (ni copiandola desde aqui pegandola en el Editor). no se si se puede configurar el Editor para que me permita escribir el "acento"

  • @luisechenagucia2897
    @luisechenagucia2897 Місяць тому

    Hola Alguin me pria explicar como poner el 3er calendario que no ,me quedo del todo claro estoy haciendo un experimeto y requiero 3 fechas, pero solo logre colocar 2 como explica el video , agrdeceria si me brindan su apoyo

  • @jenniffermoreira6986
    @jenniffermoreira6986 2 місяці тому

    Hola, como hago para que la ruta de la imagen se guarde en la tabla con el nombre del código "COD_0001"

  • @amairaniunicornio1304
    @amairaniunicornio1304 4 місяці тому +2

    buen dia tio Tech, me sale error 481 Imagen no valida al insertar imagenes png. espero tu respuesta gracias saludos

    •  4 місяці тому

      Hola, lo voy a probar.

    • @josedavidofficial
      @josedavidofficial 3 місяці тому

      saludos Tío, es cierto me ocurre lo mismo, unas imágenes si la selecciona pero hay otra que me arroja el código 481 "imagen no valida"

    • @josedavidofficial
      @josedavidofficial 3 місяці тому

      Estuve viendo las imágenes de tipo png no la agarra y por eso bota el error 481 de imagen no validad. Por qué será?

    • @CristhianYesidPena
      @CristhianYesidPena 2 місяці тому

      me sale el mismo error

  • @roddanrodtel
    @roddanrodtel 29 днів тому

    Minuto 10:00 Duplicar Calendario

  • @LuisRueda-hn5fw
    @LuisRueda-hn5fw 11 годин тому

    No me sale centrada la imagen.

  • @marcoantoniosernarivera7269
    @marcoantoniosernarivera7269 4 місяці тому +1

    No te olvides de crear una barra de progreso

    •  4 місяці тому

      Ok Gracias si lo tengo en mente. Saludos.

  • @josevivas4982
    @josevivas4982 3 місяці тому

    ya supere el error!, abri mi carpeta de imagenes

  • @aldairgutierrez4906
    @aldairgutierrez4906 2 місяці тому

    9:50 - 14:30

  • @edgarcanoelmono
    @edgarcanoelmono 4 місяці тому +1

    Buenas tío tech espero que estés bien. No sé porque me sale Din

    •  4 місяці тому +1

      Hola Edgar, no entiendo tu pregunta si me puedes dar mas detalles te podría ayudar.

    • @edgarcanoelmono
      @edgarcanoelmono 4 місяці тому

      Gracias. ya lo solucione. Excelente trabajo