🟢 FORMULARIO Para Llevar el CONTROL de DATOS de tus Empleados Incluyendo su FOTO 🟢VBA
ฝัง
- เผยแพร่เมื่อ 20 ก.ย. 2024
- ¡Hola! Soy un programador de VBA en Excel y estoy aquí para ayudarte a automatizar tareas y mejorar tus hojas de cálculo. Ofrezco soluciones personalizadas a precios flexibles, desde $50 a $100 dólares, según la complejidad del trabajo. Contáctame para simplificar tus flujos de trabajo en Excel. ¡Hagamos que Excel trabaje para ti!
Escribir a: aexcel989@gmail.com
Whatsapp: 57 3016727958
Aprendamos Excel te trae un video donde aprenderás a cómo crear un formulario en Visual Basic con una foto para administrar los datos de sus empleados, incluida su imagen.
Este formulario lo ayudará a realizar un seguimiento de los datos de sus empleados, incluidas fotos y otra información. Ya sea que sea propietario o gerente de un negocio, este video es una excelente manera de administrar sus datos y realizar un seguimiento de sus empleados.
![[TH] RNT vs SPG - VCT Ascension Pacific - Day 1](http://i.ytimg.com/vi/RUTkf8Detj8/mqdefault.jpg)
Amigaso de lujo lo utilizaré en cualquier momento lo realizó bendiciones al canai
Muchas gracias por tu apoyo
Hola Maestro!! la verdad nunca pensé trabajar con lenguaje VBA, pero tus video son tan bien explicados, que ya aprendí. Favor no dejes de subir videos como estos. Te felicito, soy Fabian desde Argentina. Saludos
Mi hermano muchas gracias por ese sensacional comentario. que tengas un excelente día
excelente video, me gustaría que nos pudiera compartir este archivo
Excelente tutorial. Eso es lo que hace bastante rato andaba buscando para una base de datos para socios.
Muchas gracias por compartir su conocimiento.
Saludos
excelente trabajo Ingeniero... gracias por su humildad de compartir sus conocimiento tan valiosos. y sin costos alguno... muchas Bendiciones..y podrias anadir en sus videos en las validaciones de campos a nivel del formulario, para validar que los campos sean entrados con sus formatos correspondentes..
gracias y muchas Bendiciones abrazos desde Puerto Rico
Increible, no sabía que se podía hacer tanto con excel. He aprendido mogollón! Gracias!
Excelenter video justo el que necesitaba para incluir imagen. Gracias.
Excelente Tutorial, muy claro.
hola! muchas gracias, las verdad no tienen desperdicio tus videos! por favor no dejes de subir mas videos. Consulta por favor, al editar un empleado, cuando cambiamos la imagen, ya no tirar error, pero la imagen no cambia o no se actualiza, solo se actualizan los datos modficados. por favor una solucion para estos 🙏🙏 gracias!!!!!!
Muy bueno, yo el picturebox le ponía el mismo color del Form para que cuando muestre las fotos no se vea los espacios en blanco de los lados de la foto.
ME ENC😮NTRE ESTE TUTORIAL Y LUEGO ME SUSCRIBI DESPUES DE ESTUDIARLO TODO Y DE VERDAD GENIAL TU EXPLICACION HASTA GRABE EL VIDEO PARA ASIMILARLO MEJOR.. NO SE TU NOMBRE Y DEMAS GENERALES
Maravillosamente explicado
Eres muy Bueno excelente buenas Ideas. Saludos
Excelente.... Podrías ayudarme a hacer que a la hoja en excel no se le pueda. Introducir datos manualmente, es decir, que solo se pueda con el formulario. Gracias
Muy bueno, tienes mucho talento
buen dia me ayudo mucho el video solo quisiera saber si se puede usar como un ejecutable que lo traiga en la memoria para poder usarlo en cualquier maquina ,me imagino que tendra problema por la direccion en que se guarda
excelente video y muy bien explicado
BUENAS NOCHES AMIGO EN LA REALIZACIÓN DEL EJERCIÓ ME SALE UN ERROR AL EJECUTAR EN EL BOTÓN BUSCAR NO SE SI ESTA MALO O ES QUE NO ES COMPATIBLE CON OFICE 2013 EN EL INUTO 36;44 ESE PASO NO ME DEJA PASAR EN EL ERROR QUE ME SALE EN LA SIGUIENTE VARIABLE
BUSCAR = CLng(UserForm1.TextCEDULA.Value) ERROR DE COMPILACIÓN NO SE ENCONTRÓ EL MÉTODO O EL DATO MIEMBRO DEL RESTO ESTA MUY SUPER BIEN EXPLICADO Y BIEN ARGUMENTADO PARA LA NECESIDAD ESPERO PRONTA RESPUESTA GRACIAS
Porque no dejas en la descripción el código o el archivo como ejemplo
Hola, podrías por favor compartir este formulario para analizarlo y poder ver lo con mas detalle.
He visto que lo has compartido anteriormente pero el enlace no funciona.
Muchas gracias y felicitaciones por el gran trabajo que realizas ayudando a los demás a aprender mas sobre excel
Hola, muchas gracias por los tutoriales, muy faciles de comprender, ya hice mi base de datos personalizada con los ejemplos que has presentado, formulario, guardar, modificar, eliminar, agregar foto, lo unico que no me funciona es guardar una nueva foto con el boton modificar (e ocultado error), de nuevo muchas gracias.
Buenas tardes, seguí todos los pasos, pero en el momento de darle buscar, no me trae la imagen, la guarda en la carpeta de destino, pero sin el jpg, cuando le doy clic en la base de datos me coloca la información en I5 pero no puedo visualizar la imagen. gracias
Excelente Tutorial muy completo. Solo una duda si en el boton buscar requiero buscar un ID entre letras y numeros me da error como seria una posible solucion, de antemano muchas gracias.
Excente trabalho!
Muy bueno tu video, puedes hacer otro video sobre como mejorar el boton "modificar" :D
Ese método para cargar las imágenes no corre.
Es una macro asombrosa, gracias por compartir tus conocimientos. Es posible agregar un botón de imprimir la búsqueda realizada?
Hola, antes que nada muchas gracias por tus videos, son buenísimos. Me gustaría hacer esto mismo, pero en lugar de visualizar una imagen quiero ver un pdf, así igual pero pdf. Aún no lo logro por mi cuenta, así que espero en algún momento, si se puede, subas algún video de referencia. Saludos desde Argentina y re gracias por tus explicaciones!!
Gracias Julia por tu recomendación la tendré en cuenta
Saludos De Verdad Excelente El User Form Me funciona casi Perfecto Me Da un Error me envia a depurar en el boton modificar la Flecha del Depurador me señala "Linea = Fila.Row" como causa de la falla.
Me Podras Ayudar Por Favor
Hola explicas muy bien y siguiendo tus pasos es muy sencilo realizar macros .
una consulta seria posible que cuando introducamos los datos se ordenarian alfabeticamente gracias
Tengo un problema.. con el botón buscar.. que al darle buscar a una cédula que se registró sin imágen... El ejecución se interrumpe...
Mi pregunta es como se puede hacer, para que en el cuadro de la imagen se cargue sin foto al darle buscar...
Más claro que el agua
hola cuando compartes el archivo con otras areas de trabajo las imagenes no funcionan por la ruta, alguna solucion para eso que seria?
Ojala se pueda hacer que en un combobox se pueda escoger como buscar.. por cedula, por apellido por es posible que entre tantos empleados no se pueda recordar la cedula de cada uno... a decir verdad lo estoy modificando para tener una DB de contactos
Buenas nevesito ayuda, cuando le doy clik a la imagen q queda archivada en la celda no me aparece la foto, sale el cuadro pero sin la foto, que puede ser? A la imagen de useform2 le cambie el nombre no mas, y lo puse igualito y no me figura
Buenos días, estoy intentando crear una base de datos como la tuya pero llego a un punto en el que no puedo avanzar ya que no me detecta esta fórmula. a ver si me puedes ayudar.
ULFILA = Sheets("BASE").Cells(Rows.Count, "D").End(xlUp).Row
Me sale subrayado en amarillo y no me deja continuar.
Muy buen video👌
hola, felicitaciones por la dedicación que le das al enseñar macros en Excel.
pero no entiendo al decir que el objeto no existe donde dice Buscar= CLng(UserForm1.text0cedula.value), obviamente yo le puse otro, solo cambie el nombre, el resto se mantiene.
como se hace para evitar que el No de cedula no se repita.
Hola, excelente video, tengo una duda, la carpeta de imágenes tiene que ser de la PC o puede ser una carpeta de la nube
con excel 365 se puede con la nube
Hola buen día
Buenísimos todos tus videos, para preguntar por qué no se elimina la foto de la carpeta Nuevos Empleados cuando se elimina un empleado que ya no trabaja o simplemente se barra el dato, sigue saliendo en esta carpeta, mientras que si se modifica la foto, esa si desaparece y queda solo la nueva foto en esta carpeta. Por otra parte realice otro formulario agregando mas celdas como estado civil, fecha de ingreso etc. y no guarda nada
¿ que podrá ser ?
.
Gracias
Cordial saludo
Excelente
Cuando pongo depurar me sale en amarillo el primer código
Hola Muchas gracias, excelente tutorial. 🔥🔥
Cuando en un registro de cliente no guardo una foto, en la casilla de la foto aparece x.jpg según el código; pero cuando ejecuto la opción buscar me arroja un error. Igual cuando voy a modificar un registro. Como podría solucionarlo?
Saludos.
tengo esa misma falla... y no sé cómo solucionarlo.. si pueden ayudar en eso se los agradecería
Hola buen día podrías auxiliarme al compilar para mostrar el Nombre en el botón Buscar por Cédula, Me marca error 13 y señala la línea Buscar = Clng(Userform1.TextCedula.Value)
Puedes ayudarme por favor
PF ayuda porque me sale asi
Explorar.Filters.Add "Excel Files", "*.JPG?", 1 error 424 tiempo de ejecucion
que esta mal
me pasa lo mismo... ¡no sé porqué! espero que nos conteste el autor por favor... el tutorial no obstante genial!
Elimina el * amigo
De de quedar así explorar. Filters. Add "Excel files", ". Jpg?"
Hola! me parecen increíbles tus videos lo bien explicados que están, muchisimas gracias.
Por cierto, cuando cargo la imagen en guardar, la guarda en la carpeta nuevos empleados pero sin el .jpg y cuando le doy a la columna H para ver la foto sale en blanco. ¿Cuál podría ser el error? tengo los mismos pasos que los que seguiste pero ese justamente no sale igual.
gracias
un saludo
montarlo en un driver este mismo estas realizando por favor
Hola! Tengo el mismo problema, alguien sabe cual es la solución?
Donde se puede descargar la plantilla?
Creo que esta muy bien explicado pero hay varios codigos que no me funcionan incluido el boton de buscar solo sale la cedula y lo he revisado de arriba abajo y todo esta bien.
Hola, estoy siguiendo los cursos que dictas, me parecen muy interesantes, realizo los ejercicios de los cursos tal cual los emites, consultar que al configurar el BOTÓN BUSCAR POR NUMERO DE CÉDULA, realizo todo paso a paso tal como lo muestra el video en la linea : Buscar = CLng(UserForm1.TextCedula.Value) Al ejecutar el formulario me indica SE HA PRODUCIDO EL ERROR '13' EN TIEMPO DE EJECUCIÓN. NO COINCIDEN LOS TIPOS . algo de lo que dice la linea no esta correcto ? alguien me puede indicar donde esta el error
al colocar el codigo con el numero cero al inico (012) lo graba sin el cero, y me da error al buscar el 012 por favor orienteme
Lo hice adaptándolo a mis necesidades, pero en "modificar" me lanza un error, lo he revisado muchísimas veces y comparando con el vídeo y nada que encuentro la falla 😮
Perdón a tu canal abrazos ING 🇲🇽👍👌
Buenos días, pregunta como proteger la celda de sexo para que el usuario no pueda escribir; si no solo seleccionar.
Buenas tardes, como hacer para setear el campo de sexo, ya que al hacer la prueba puse en lugar del sexo, le puse un número tecleando y te permite registrar el número en la base de datos creada?
Otra consulta con respecto a las fotos, yo puedo tener las fotos obligatoriamente en la laptop?, o la puedo tener en un dispositivo USB y de allí las puedo jalar? y ese mismo sitio de donde jalo las puede almacenar allí o debo tener otra carpeta muy aparte???
Ese formulario se puede poner como aplicación? Me explico osea en el escritorio como si fuera una app ?
hola, excelentes tutoriales, mi duda es para crear el instalador de este proyecto?
hola Marce como asi un instalador?
Profe podrias compartir el archivo y los codigos para analizar por favor esta espectacular tu formulario
claro que si este es el link mega.nz/file/m1dmiDbb#HyqgeT6KMVLaaiQ23DDA6rVsX5f97Ua2DuEaDfAvrPM
Hello professor, the link has a problem, it does not work, could you please update the link. Thank you.@@AprendamosExcel
BUENAS NCCHES, MUCHAS GRACIAS POR TUS TUTORIALES, SIN EMBARGO TENGO UN PROBLEMA, NO PUEDO PASAR DE PONER LOS CODIGOS EN BUSCAR. ME SALE "SE HA PRODUCIDO EL ERROR ´9´ EN TIEMPO DE EJECUCIÓN, SUBINDICE FUERA DEL INTERVALO, ME PUEDES AYUDAR? GRACIAS
Buenas tardes, hay manera de que en lugar de ingrese un nuevo renglón hacia abajo , lo haga en la parte de arriba?
Saludos ☺️
Buenas un gusto saludarle exelente video es lo que nesecitaba. Le come to que tengo un problema en Buscar = CLng(UserForm1.TextNombres.Value) al ejecutar ne da un error '13' me dice que no conside los tipo ?
Me puede ayudar por favor de antemano gracias Soy de Honduras
Hola amigo
Tengo un problema, todo lo hice tal cual y me corrió excelente, pero cuando cerré el archivo de Excel y lo quise volver a abrir, resulta que me envía el síguente mensaje...
Excel ha encontrado contenido que no se puede leer en inventario. Xlsm. Desea recuperar el contenido del libro? Si confía en el origen de clic en si.
Le doy si, pero al ejecutar la macro me dice
No se puede ejecutar la macro inventario Xlsm mostrar formulario, puede que la macro no esté disponible o que se haya desabilitado todas las macros
Que puedo hacer
Saludo tus video fabuloso pero tengo un problema que cuando pongo lo códigos de guardar y el de la foto me manda un mensaje de 242 o que el servidor no reconoce lo que se hace y además estoy siguiendo el tutorial paso a paso me puedes decir que debo hacer
Se puede hacer con pdf?
Hola felicitaciones por el trabajo, una pregunta como haría para buscar por el nombre o descripción del producto por coincidencia con tan solo poner las primeras letras que salga opciones y seleccionar y que me arroje los datos.
Hola, tengo una duda Min 31:41 realice el proceso pero no muestra la foto, es decir cuando doy cli en la CELDA H4 si cambia el nombre pero abre la venta sin la imagen. he revisado el proceso paso a paso hasta lo realice de nuevo.
Me esta pasando lo mismo .
¿Pudiste resolverlo?
Saludos , excelente clase , tengo un problema , la foto no me la está guardando en la carpeta ,me la guarda en el escritorio , que puedo hacer
Hola!! Gracias por tu video, Buena explicación!!
Cuando ejecuto el boton Guardar, me aparece que active x no puede crear objetos, ¿Qué puedo hacer?
También me gustaría saber como puedo cargar un archivo pdf, cuando sigo este proceso para cargar un archivo JPG aparece error si lo hago con formato Pdf
Gracias.
hola muchas gracias por el gran tutorial, aprendí mucho
pero no se si me podría ayudar, cuando coloco el código Ulfila = Sheets("Inventario").Cells(Rows.Cound, "B").End(xlUp).Row , y trato de ejecutarlo me aparece error 438 y no se como arreglarlo y en la depuración solo me marca ese código
Hola Jose creo que estas cometiendo un erro donde dice Rows.count estas colocando la letra D, debes de escribir count
¿Buenas tardes, como está? En caso de olvidar agregar una foto, me estaría generando una foto "X". Eso si me sale. Pero cuando quiero consultar ese registro, no me busca la imagen. ¿Alguna idea de cómo arreglarlo? Saludos 🤔
Hola espero que estes Bien cuando intento guardar la data
me da este error : Ulfila = Sheets("DATA").Cells(Rows.Count, "B").End(x1Up).Row
tengo el mismo problema 365
solo puede ser la imgen con jpeg?
Buenaas una consulta todo esta ok guarda modifica pero cuando guardo mi trabajo y lo vuelvo a abrir ya no me quiere registrar las fotos lo de mas si registrar ,modifica y elimina menos la foto y todo el código esta ok tengo q crear otro formulario para q recien registre
Hola buen día
Excelentes todos sus videos, felicitaciones, he aprendido muchísimo.
Para preguntarle si el dato a modificar es el número de cedula, como se hace ahí en este caso, pues lo intento y no se puede, sale un error de depuración en la parte superior al inicio, como en la quinta línea de texto debajo de ValorBuscado = Me.textCedula. Value, así : Línea = Fila.Row, resaltado en amarillo ¿ como se depura ese error ?
y otra pregunta es cuando se busca un numero de cedula y no existe o que no existe en la base, no hace nada, se da click en buscar y nada, debería devolver un mensaje diciendo que CEDULA NO EXISTE o algo así; podría por favor darle un código con dicho mensaje o lo que deba hacerse y si el numero de cedula ya existe igualmente, ya que me permitió crear un nuevo empleado con el mismo numero de cedula de otro ya existente.
Gracias.
Como posso baixar o arquivo?
Buenas noches, cómo están? Alguno podria compartir el archivo por favor? Ya que el que esta fijado no funciona. Saludos 😊
Buenas noches, cómo está? Tendrá el archivo para revisarlo? Saludos ☺️
hola, me sale un error que no soy capaz de encontrar la solucion
Ulfila = Sheets("BASEDATOSPERSONAl").Cells(Rows.Count, "B").End(xlUp).Row , me marca esta linea y me da error "9" subindice fuera de plazo, donde puede estar el error? muchas gracias por tus videos
Hola Francesc creo que tienes mal escrito el nombre de la hoja base datos personal al final de la palabra personal colocaste una i por eso dice que el indice esta fuera de rango
minuto 39 y si no se guardo foto? a la hora de buscar muestra error por que no hay fotografia?
buenas dias tengo una problema y requiero un apoyo para terminar un macro, quiero completar el Código, para que al realizar el registro de personal en un formulario VBA, se hace clic en el botón "cmd_Imagen" para asignar una imagen al registro, y que la imagen quede insertada en el archivo excel, y que cuando busco datos el “cbo_NumeroIdentificacion_Change” o en “cbo_apellidosnombres_change”, trae la información del registro en el formulario VBA, pero me trae la imagen de la ruta y no la que esta guardada en el archivo como corrijo esto, para que me muestre es la imagen que este en el mismo archivo excel, no se si le pueda enviar el archivo para que pueda ser mas comprensible
Por favor enviar el archivo a este correo aexcel989@gmail.com
Buenas tarde le envie el achivo al correo que me comunico, agradezco cualquier ayuda con eso gracias
Maestro!!! yo toy tan fregado que no me sale cuando le doy buscar y me sale remarcado ultimafila (ultimafila = Sheets("Base").Cells(Rows.Count, "B").End(xlUp).Row) en el mensaje dice falta una variable por mas que le hago una replica siguiendo sus pasos y me sale la misma situacion que falta una variable, digame que estoy haciendo mal????
Por favor envia el archivo a este correo aexcel989@gmail.com
MUCHAS GRACIAS POR FACILITARME Y VER ESOS PEQUEÑOS DETALLES, ERES UN MAESTRO QUE CUMPLE CON SUS SUSCRIPTORES. BENDICIONES
Esto es lo que coloco en BT_Buscar, Imagenes.Picture=LoadPicture("C:\Users\Dell\Desktop\NuevosEmpleados\"& Buscar&".jpg") , aqui es donde me da error ,se pone en amarillo y no me guarda las fotos en la carpeta que cree
Quedate en la hoja 1 por ejemplo o a donde la vallas a jalar mantente en la hoja
BUNAS PROFE, EN LA PARTE DE EDITAR ME SALIÓ UN ERROR 91 Y NO SÉ CÓMO SOLUCIONAR
Hola Miguel El error "ERROR 91" en Excel generalmente se refiere a un problema con la variable de objeto. Ocurre cuando intentas acceder a una variable de objeto que aún no se ha establecido o cuando intentas usar una variable de objeto que se ha establecido en un objeto que se ha cerrado o liberado.
El error 91 puede ocurrir en varias situaciones, como:
Acceder a una variable de objeto sin haberla inicializado previamente.
Usar una variable de objeto después de haberla liberado o cerrado.
Referenciar un objeto que no existe o está fuera de alcance.
Utilizar una variable de objeto en un contexto incorrecto.
Que mostró
Buenas tardes, podrías pasarnos el archivo por favor ☺️
hola Jerry este es el link de descarga : mega.nz/file/m1dmiDbb#HyqgeT6KMVLaaiQ23DDA6rVsX5f97Ua2DuEaDfAvrPM
me gustaría que nos pudiera pasar el archivo
Hola Ezequiel este es el link de descarga mega.nz/file/m1dmiDbb#HyqgeT6KMVLaaiQ23DDA6rVsX5f97Ua2DuEaDfAvrPM
@@AprendamosExcel , muchas gracias por el archivo y tu pronta respuesta,además es excelentes contenido sigue así.
Hola vendes tu proyecto ?
Hola Andrés pídelo totalmente gratis a este correo aexcel989@gmail.com por favor colocar en el asunto que se refiere al formulario de guardar foto
Alguien me puede ayudar con el Error 424 cuando intento cargar una imagen
LAS IMAGENES TAMPOCO ME SALEN E EL EXCEL AYUDA
Ve al min 29:13 y en la última línea, el dice Imagen1.Picture y realmente es Image1.Picture, sin la “n” o sea la palabra imagen pero en inglés
@@paulberrios2583yo le cambien el nombre y cuando doy click no me aparece
Buenas todo el codigo esta ok registra pero menos no guarda la foto en la carpeta ni en el hoja excel revise el codigo con lo de tu video todo ok aq se debe version de Excel
A mi me pide variable lo pongo y sale se requiere un objeto
en q parte le sale lo que dice amigo
por favor si usted lo desea envíeme su archivo a este correo aexcel989@gmail.com para revisarlo mejor puede ser un problema de la versión de excel
En la foto
La creció de mi Excel es2016
@@Bravo_2001 envieme por favor el archivo y le digo cual es el error
Muxvhas gracias por enseñarnos tanto, excelente explicacion. Cree mi formulario con este video th-cam.com/video/3O3HA6dw3sM/w-d-xo.html y me funciono excelente. Ahora quise hacer este con la foto (th-cam.com/video/hoXGf3cwrgk/w-d-xo.html) y me sale error 5 Argumento o llamada a procedimiento no valida en Cargar imagenes "direccion = Explorar.SelectedItems(1)", me podria ayudar? gracias por su tiempo
hola disculpa estoy haciendo un proyecto como este para facilitar mi trabajo y al momento de querer guardar me sale error al agregar el destino en el global range te dejo mi código espero y me puedas ayudar muchas gracias
If Me.ruta "" Then
Set copiarfoto = VBA.CreateObject("scripting.filesystemobject")
origen = Me.ruta
destino = "C:\Users\fidel\Desktop\proyectoexcel\Fotosalu\" & Range("D" & ulfila) & ".jpg"
copiarfoto.copyfile origen, destino
Range("X" & ulfila).Value = Range("D" & ulfila) & ".jpg"
Else
Range("X" & ulfila).Value = "x.jpg"
End If
Private Sub UserForm_Initialize()
Me.TextBuscar.SetFocus
Me.FINALIZO.AddItem "SI"
Me.FINALIZO.AddItem "NO"
End Sub
.AddItem no me funciona, ya le pregunté a GPT y la opción .List tampóco me funciona ...AYUDA !!!!😵💫
Hola Bryan, este codigo puede ayudarte
Private Sub UserForm_Initialize()
With Me.ComboBox6
.AddItem "Microsoft"
.AddItem "Excel"
.AddItem "VBA"
.AddItem "Macros"
End With
End Sub
UNA PREGUNTA, NO ENCUENTRO EL Me.SEXO.ADDITEMS DE ANTEMANO
GRACIAS POR TUS ISNTRUCCIONES UNA GRAN AYUDA.