Estimado Yesid, agradezco por compartir sus conocimientos de verdad que gracias a tus aporte he aprendido bastante en el manejo de este control Listview pero tengo un detalle que no he podido resolver. Al ejecutar el formulario el control me aparece en el centro de la pantalla y no donde originalmente lo fije en el diseño, intente colocarlo dentro de un frame y se desplaza un poco con respecto a este, sigo navegando y de repente se corrige de posición y asi... No se si hay una configuracion con las propiedades height y Top ya que el formulario donde esta contenido el control listview lo modifique para que no aparezca en el centro de la pantalla sino mas hacia la izquierda-inferior de la pantalla. Espero tus comentarios y gracias de antemano.
Mi más cordial enhorabuena por el vídeo; muy completo y muy bien planteado. Pero siento decirte que la modificación de fechas no funciona como debería. Si se inserta en el tesxtbox una fecha con formato dd/mm/aaaa la cambia a formato internacional mm/dd/aaaa. Ya sabemos que es un problema entre VBA y EXCEL pero hay modos de solucionarlo. De todos modos cuentas con mi admiración. Un saludo desde España.
Muy buena la planilla pero como modifico los valores para que se adapten a mi pais como por elemplo aguregar un campo con "Numero de Documento" o "DNI" gracias
De que manera puedo editar Nombre apellido,país,me metí al Código y dónde tiene las comillas le pongo los datos que yo quiero y no me da al momento de filtrar,no sé si me explique?
Private Sub ListBox1_Click() For X = 0 To ListBox1.ListIndex lblCodigo.Caption = ListBox1.List(ListBox1.ListIndex, 0) TextBox1 = ListBox1.List(ListBox1.ListIndex - 0, 0) TextBox2 = ListBox1.List(ListBox1.ListIndex - 0, 1) TextBox3 = ListBox1.List(ListBox1.ListIndex - 0, 2) TextBox4 = ListBox1.List(ListBox1.ListIndex - 0, 3) TextBox5 = ListBox1.List(ListBox1.ListIndex - 0, 4) TextBox6 = ListBox1.List(ListBox1.ListIndex - 0, 5) TextBox7 = ListBox1.List(ListBox1.ListIndex - 0, 6) TextBox8 = ListBox1.List(ListBox1.ListIndex - 0, 7) TextBox9 = ListBox1.List(ListBox1.ListIndex - 0, 8) TextBox10 = ListBox1.List(ListBox1.ListIndex - 0, 9) TextBox11 = ListBox1.List(ListBox1.ListIndex - 0, 10) TextBox12 = ListBox1.List(ListBox1.ListIndex - 0, 11) TextBox16 = ListBox1.List(ListBox1.ListIndex - 0, 12) Dim PIEZAS As String PIEZAS = ThisWorkbook.Path & "\EMPLEADOS\" & TextBox1 & ".JPG" On Error Resume Next Image3.Picture = LoadPicture(PIEZAS) Next End Sub TE REGALO ESTE CÓDIGO FÍJATE EN EL EVENTO Private Sub ListBox1_Click() BORRAS LO QUE TIENES Y COPIAS TODO ESTE CÓDIGO, Y ELIMINAS LA COLUMNA URL EN LA HOJA DATOS, YA QUE CON ESTE CÓDIGO NO SERA NECESARIO QUE DEBAS COPIAR LA URL DONDE SE ENCUENTRA LA IMAGEN , PUES SE CARGARAN AUTOMÁTICAMENTE. SALUDO! NOTA: RECUERDA QUE LAS IMÁGENES DEBEN LLEVAR EL CODIGO CON EL QUE ESTA REGISTRADO CADA EMPLEADO/A EJEMPLO EMPLEADO 1002 ASÍ SE DEBE LLAMAR LA IMAGEN PARA ESE USUARIO 1002.jpg
@@yesidvalencia.8 Excelente, muchas gracias estimado, es la primera vez que entro a VBA y es fantástico. Tu aporte ayuda mucho para comenzar a aprender, he logrado dejar activo el formulario desde inicio, ahora mi reto es lograr poner el minimizar para que no interfiera con la hoja excel. FELICIDADES.
Estimado Yesid, agradezco por compartir sus conocimientos de verdad que gracias a tus aporte he aprendido bastante en el manejo de este control Listview pero tengo un detalle que no he podido resolver. Al ejecutar el formulario el control me aparece en el centro de la pantalla y no donde originalmente lo fije en el diseño, intente colocarlo dentro de un frame y se desplaza un poco con respecto a este, sigo navegando y de repente se corrige de posición y asi... No se si hay una configuracion con las propiedades height y Top ya que el formulario donde esta contenido el control listview lo modifique para que no aparezca en el centro de la pantalla sino mas hacia la izquierda-inferior de la pantalla. Espero tus comentarios y gracias de antemano.
Mi más cordial enhorabuena por el vídeo; muy completo y muy bien planteado. Pero siento decirte que la modificación de fechas no funciona como debería. Si se inserta en el tesxtbox una fecha con formato dd/mm/aaaa la cambia a formato internacional mm/dd/aaaa. Ya sabemos que es un problema entre VBA y EXCEL pero hay modos de solucionarlo. De todos modos cuentas con mi admiración. Un saludo desde España.
Excelente Control de Empleados
GRACIAS ESTIMADO
Muy buena la planilla pero como modifico los valores para que se adapten a mi pais como por elemplo aguregar un campo con "Numero de Documento" o "DNI" gracias
De que manera puedo editar Nombre apellido,país,me metí al Código y dónde tiene las comillas le pongo los datos que yo quiero y no me da al momento de filtrar,no sé si me explique?
Buenas tarde amigo.
Cómo busco el nombre en clave del cliente? pOrfalvor
Muita graces
Buenas tardes
Cómo busco usando el código de cliente?me puedes explicar
Me dirijo al link para descargar el archivo de control de empleados pero al abrirlo me dice que el documento esta dañado.
Quedo atento a su respuesta
buenas yesid tienes el paso a paso del archivo como lo realizaste
Buenas tarde.
Como se faz para busca con codigo na pesquisa amigo
Solucioné el Error 76 en tiempo de ejecución: Se coloca la Ruta de las Imágenes en "Columna N de la Hoja Datos"
estimado me sale este error porfa apóyame EMPLEADOS.Image3.Picture = LoadPicture(mypict)
Exacto es ERROR 76 : EMPLEADOS.Image3.Picture = LoadPicture(mypict)
Boa noite
mude o diretorio onde esta as imagens
Excelente. Solo que no he logrado que me aparezcan las imágenes, ni aún cargando el Link en el campo de url de la hoja datos.
Private Sub ListBox1_Click()
For X = 0 To ListBox1.ListIndex
lblCodigo.Caption = ListBox1.List(ListBox1.ListIndex, 0)
TextBox1 = ListBox1.List(ListBox1.ListIndex - 0, 0)
TextBox2 = ListBox1.List(ListBox1.ListIndex - 0, 1)
TextBox3 = ListBox1.List(ListBox1.ListIndex - 0, 2)
TextBox4 = ListBox1.List(ListBox1.ListIndex - 0, 3)
TextBox5 = ListBox1.List(ListBox1.ListIndex - 0, 4)
TextBox6 = ListBox1.List(ListBox1.ListIndex - 0, 5)
TextBox7 = ListBox1.List(ListBox1.ListIndex - 0, 6)
TextBox8 = ListBox1.List(ListBox1.ListIndex - 0, 7)
TextBox9 = ListBox1.List(ListBox1.ListIndex - 0, 8)
TextBox10 = ListBox1.List(ListBox1.ListIndex - 0, 9)
TextBox11 = ListBox1.List(ListBox1.ListIndex - 0, 10)
TextBox12 = ListBox1.List(ListBox1.ListIndex - 0, 11)
TextBox16 = ListBox1.List(ListBox1.ListIndex - 0, 12)
Dim PIEZAS As String
PIEZAS = ThisWorkbook.Path & "\EMPLEADOS\" & TextBox1 & ".JPG"
On Error Resume Next
Image3.Picture = LoadPicture(PIEZAS)
Next
End Sub
TE REGALO ESTE CÓDIGO FÍJATE EN EL EVENTO Private Sub ListBox1_Click()
BORRAS LO QUE TIENES Y COPIAS TODO ESTE CÓDIGO, Y ELIMINAS LA COLUMNA URL EN LA HOJA DATOS, YA QUE CON ESTE CÓDIGO NO SERA NECESARIO QUE DEBAS COPIAR LA URL DONDE SE ENCUENTRA LA IMAGEN , PUES SE CARGARAN AUTOMÁTICAMENTE.
SALUDO!
NOTA: RECUERDA QUE LAS IMÁGENES DEBEN LLEVAR EL CODIGO CON EL QUE ESTA REGISTRADO CADA EMPLEADO/A
EJEMPLO EMPLEADO 1002 ASÍ SE DEBE LLAMAR LA IMAGEN PARA ESE USUARIO 1002.jpg
@@yesidvalencia.8 Excelente, muchas gracias estimado, es la primera vez que entro a VBA y es fantástico. Tu aporte ayuda mucho para comenzar a aprender, he logrado dejar activo el formulario desde inicio, ahora mi reto es lograr poner el minimizar para que no interfiera con la hoja excel. FELICIDADES.
@@oscarzavala9534 en mi canal encontrarás un video de como maximizar y minimizar formularias Excel vba ua-cam.com/video/Wldd59701JA/v-deo.html
Bom Dia
como busco por codigo
Att.Elso
Cuanto cobran por hacerme un sistema de esos ?
+573146094051
How to make seach by product codigo my friend.
Al seleccionar fila, aparece este ERROR: EMPLEADOS.Image3.Picture = LoadPicture(mypict)
changer dir imagem in computer past
me sale error 76 :(
No esta bien explicado, no hay nada como haberlo con voz