(RESOLVIENDO PREGUNTAS) Fomulario con botón nuevo, modificar, eliminar, buscar en Excel VBA

  Рет қаралды 125,719

El Tío Tech

El Tío Tech

Күн бұрын

En este video resolveremos las preguntas que se realizaron en el formulario con botón nuevo, modificar, eliminar, buscar en Excel VBA. #FormularioVBAExcel #Formulario #MacrosVBA
Suscríbete en mi otro canal:
/ @miguelvelaa
Parte 1:
• Formulario en VBA Exce...
Parte 2:
• Botón Agregar, modific...
Parte 3:
• Formulario de Búsqueda...
Parte 4: Lo estas viendo
🤗 Visita nuestras redes sociales:
Sitio web: www.tiotech.net
www.eltiotech.com
Facebook: / eltiotechoficial
Instagram: / luismiguelvelavela
🟩 Grupo de ayuda Excel:
/ excelayudas
🟦 Grupo de ayuda Word:
/ 2954410744838915

Пікірлер: 738
4 жыл бұрын
Para evitar datos duplicados tendríamos que agregar estas condicionales al código explicado en el video. Porque si tenemos dos apellidos igual va sumar igual a dos y lo va tomar como repetido por lo tanto poner este código. If uno > 1 Then uno = 1 End If If dos > 1 Then dos = 1 End If ::::::::::: EL CÓDIGO FINAL QUEDARÍA ASÍ::::::::::: ABAJO Private Sub BT_AGREGAR_Click() nombrev = Me.txt_nombre.Value apellidov = Me.txt_apellido.Value If nombrev = "" Or apellidov = "" Then MsgBox ("Ingrese Nombre y apellido") Exit Sub End If uno = WorksheetFunction.CountIf(Range("C:C"), nombrev) dos = WorksheetFunction.CountIf(Range("D:D"), apellidov) If uno > 1 Then uno = 1 End If If dos > 1 Then dos = 1 End If MsgBox ("Primero: " & uno & "segundo :" & dos) sumando = uno + dos If sumando = 2 Then MsgBox ("El registro ya existe") Else If Me.txt_nombre.Value "" Then Range("B4").EntireRow.Insert End If Range("B4").Value = txt_codigo.Value Range("C4").Value = Me.txt_nombre.Value Range("D4").Value = Me.txt_apellido.Value Range("E4").Value = Me.txt_sexo.Value Range("F4").Value = Me.txt_edad.Value txt_codigo.Value = Range("B2").Value Me.txt_nombre.Value = Empty Me.txt_apellido.Value = Empty Me.txt_sexo.Value = Empty Me.txt_edad.Value = Empty Me.LISTA.RowSource = "CLIENTES" Me.LISTA.ColumnCount = 5 End If End Sub
@juancarlos-zh2uc
@juancarlos-zh2uc 4 жыл бұрын
Me maté analizando ese error
@juancarlos-zh2uc
@juancarlos-zh2uc 4 жыл бұрын
El problema aún continua cuando se quiere registrar un cliente con nombre y apellido de clientes diferentes. Ejemplo: si tenemos clientes Juan Lázaro y Carlos Pérez y queremos registrar Juan Pérez no nos deja registrar
@juancarlos-zh2uc
@juancarlos-zh2uc 4 жыл бұрын
Por cierto estoy aprendiendo mucho con tus vídeos, son muy didácticos
@jcdeleon1998
@jcdeleon1998 4 жыл бұрын
@@juancarlos-zh2uc Este es el código que yo hice y es justo para evitar esos errores: Private Sub BT_AGREGAR_Click() If Me.txt_nombre.Value = Empty Or Me.txt_apellido.Value = Empty Or Me.txt_sexo.Value = Empty Or Me.box_edad.Value = Empty Then MsgBox ("Rellene todos los campos") Else nombrev = UCase(Me.txt_nombre.Value) apellidov = UCase(Me.txt_apellido.Value) repeticiones = WorksheetFunction.CountIfs(Range("C:C"), nombrev, Range("D:D"), apellidov) If repeticiones > 0 Then MsgBox ("El registro ya existe") Else Range("B4").EntireRow.Insert Range("B4").Value = Me.txt_codigo.Value + 1 - 1 Range("C4").Value = Me.txt_nombre.Value Range("D4").Value = Me.txt_apellido.Value Range("E4").Value = Me.txt_sexo.Value Range("F4").Value = Me.box_edad.Value txt_codigo.Value = Range("A1").Value Me.txt_nombre.Value = Empty Me.txt_apellido.Value = Empty Me.txt_sexo.Value = Empty Me.box_edad.Value = Empty Me.LISTA.RowSource = "CLIENTES" Me.LISTA.ColumnCount = 5 End If End If End Sub
@alejandrotignanelli6301
@alejandrotignanelli6301 4 жыл бұрын
@@juancarlos-zh2uc yo intente con esto y parece funciono, fijate: Private Sub BotonAgregar_Click() nombrev = Me.CampoNombre.Value apellidov = Me.CampoApellido.Value If nombrev = "" Or apellidov = "" Then MsgBox ("Ingrese Nombre y apellido") Exit Sub Else numerodedatos = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row For fila = 4 To numerodedatos nombre = ActiveSheet.Cells(fila, 3).Value apellido = ActiveSheet.Cells(fila, 4).Value If UCase(nombre) = UCase(nombrev) And UCase(apellido) = UCase(apellidov) Then MsgBox ("El registro ya existe") Exit Sub End If Next If Me.CampoNombre.Value "" Then Range("B4").EntireRow.Insert End If Range("B4").Value = CampoCodigo.Value Range("C4").Value = Me.CampoNombre.Value Range("D4").Value = Me.CampoApellido.Value Range("E4").Value = Me.CampoSexo.Value Range("F4").Value = Me.CampoEdad.Value CampoCodigo.Value = Range("A2").Value Me.CampoNombre.Value = Empty Me.CampoApellido.Value = Empty Me.CampoSexo.Value = Empty Me.CampoEdad.Value = Empty Me.LISTA.RowSource = "CLIENTES" Me.LISTA.ColumnCount = 5 Me.CampoNombre.SetFocus Exit Sub End If End Sub
@nikhinojosa1077
@nikhinojosa1077 2 жыл бұрын
Excelente clases de macros (completo en tus 4 videos), he revisado varios videos tratando de aprender a usar formularios y la verdad eres de los poquitos maestros que explican paso a paso y enseñan a usar cada comando.. Gracias .
@AlexAlarSASS
@AlexAlarSASS 2 жыл бұрын
De los mejores tutoriales que he visto. Muy bien explicado paso a paso y sin engaños, acepta sus errores y los corrige en vivo.
@makensii
@makensii 2 жыл бұрын
Hola Tio Tech, muy bueno tus videos. Una consulta, porfavor podrias hacer otro video para explicar el punto 8, 9 y 10. Además, los encabezados que no salían cuando le dabas buscar. Muchas gracias.
@mauro9739
@mauro9739 Жыл бұрын
Muchas gracias, excelente aporte, estos 4 videos para crear formularios han sido de los mejores que he podido encontrar en internet. Gracias por compartir este conocimiento.
@leopoldcalatayud6469
@leopoldcalatayud6469 4 жыл бұрын
Lo mejor que he visto hasta el momento, ameno , práctico y muy didactico. Despues de varios cursos online me ha sido muy clarificador y me ha solucionado cantidad de dudas.MUCHAS GRACIAS por compartir de forma altruista todos tus conocimientos.
@marellposadas
@marellposadas Жыл бұрын
Buenas tardes, noches o días a todos de este canal y al TIO TECH. Muy agradecido con su aporte y profesionalismo. He visto los 4 videos de este ejercicio y aún está pendiente un error que se mostró. Además, yo también tengo uno (ID = LISTA.List(LISTA.ListIndex, 0) me sale en amarillo, pero no me dice que error es el que tengo. Tengo un proyecto que traslade a su planteamiento y quiera por favor de la manera más atenta y respetuosa me ayudara a resolver el error.
@fredyregalado867
@fredyregalado867 3 жыл бұрын
Gracias por esta saga de vídeos referentes a elaborar un formulario con casi todas sus opciones Tío Tech. Ya elabore mi propio formulario de ingreso de productos de una bodega, con detalles de proveedor, fecha de compra, precio, margen, etc. Bendiciones broer 🙂
@franciscozeballoszopilote
@franciscozeballoszopilote Жыл бұрын
Hola tio tech...voy muy bien haciendo mi proyecto gracias a tus ejemplo..ahora bien..tengo 4 tablas...la original en la hoja 1..que anda muy bienn..pero tengo un listado de precios (3 campos.4 con el codigo) en esta no me funciona el boton editar ni el buscar..me marca error en numerodedatos ..y demas y pongo el mismo codigo..gracias por la forma se enseñar.
@edgarcarvajalpimiento
@edgarcarvajalpimiento 3 жыл бұрын
Buena tarde, agradezco y te felicito por estos videos que nos enseñan mucho. Una intervención con respecto a los registros repetidos: cuando haces la pregunta de sumando=2; no es efectivo porque la variable puede ser = 2, es decir dos clientes se pueden llamar igual pero con apellidos diferentes. la pregunta óptima es: que la variable sea mayor que 1 y que la variable dos sea mayor a 1, entonces si podemos asegurar que el registro o cliente es una duplicidad. Mil bendiciones por tus enseñanzas.
@luzmariagaray2938
@luzmariagaray2938 4 жыл бұрын
Muchas gracias TIO TECH, no sabia absolutamente nada de Visual base, sus enseñanzas son lo maximo
@andresleon5010
@andresleon5010 4 жыл бұрын
Hola Tío, gracias por tus tutoriales, eres un crack del Excel, amigo yo hice un inventario de 5 almacenes en un libro gracias a tus tutoriales a punta de macros, agradecería que hicieras un tutorial con esas condiciones de stocks de varios almacenes en un libro. Gracias sensei por su atención. Bendiciones.
@MegaViktor57
@MegaViktor57 4 жыл бұрын
Estimado Tío Tech, preguntas: Necesito más de 11 columnas para el Listbox, como saltar de una celda a otra al dar enter y para ser un poco más llamativo el formulario poner imagenes en todo el proyecto, NO se nada de VBA y este es un proyecto personal, ya he visto videos de más de 10 columnas pero no se en donde se ponen los códigos. Gracias por tu apoyo y una sugerencia No hagas tus videos con pocos datos, se que el tiempo es oro, pero necesitamos de tus conocimientos.
@ricardoros3551
@ricardoros3551 4 жыл бұрын
Muchísimas gracias, Miguel, gracias a tus claras explicaciones he progresado lo indecible en mis conocimientos de Excel.
@rrrraaaacccc80
@rrrraaaacccc80 3 жыл бұрын
Excelente tu conjunto de 4 videos. Felicitaciones y gracias 👍
@YuriEnriqueEcheverriMosquera
@YuriEnriqueEcheverriMosquera 4 жыл бұрын
y muchas gracias a, prendí mucho es primera ves que programo, aunque sea transcribiendo todo lo que indicas en los vídeos, son super buenos y explicas muy bien se te entiende todo a la perfección
@tiglathassur1267
@tiglathassur1267 5 ай бұрын
Hola Tio Tech, lo primero felicitarte pues sigo todos tus tutoriales y son los mejores,lo explicas muy bien. Mi consulta es que he hecho tu formulario para una base de datos de 460.000 entradas y al darle al boton de modificar solo me deja modificar el nombre el resto de columnas no,resulta que la columna nombre es la siguiente de la columna codigo el resto no me deja modificar. muchas gracias Un saludo
@eddiekaka1452
@eddiekaka1452 4 жыл бұрын
Aprendi mucho en las 4 videos ademas de construir un producto profesional y adaptable.. Gracias
@JorgeAma2
@JorgeAma2 2 жыл бұрын
Impresionante forma de buscar tio tech de lo mejor que he visto, una lastima que no me salgan los encabezados ni me salgan mas de 10 columnas en el resultado de la busqueda. Saludos
@erickosorio6842
@erickosorio6842 4 жыл бұрын
podrias hacer un video acerca de diseño de userform ya que aprendimos con tus videos como crear uno dinamico con macros y demas lo unico que queda seria aprender a hacerlos mas bonitos si pudieras hacerlo te agradeceria ya que en internet no hay videos muy buenos o personas que lo expliquen como tu
@elprimojamilrico6847
@elprimojamilrico6847 4 жыл бұрын
Y muy buenos sus tutoriales, muchas gracias por compartir tus conocimientos, Dios le multiplique por sus buenas obras y puedas seguir aportandonos más de tu sabiduría
@hectoralfonsolezamalastre2927
@hectoralfonsolezamalastre2927 3 жыл бұрын
Tío tech, casi un millón en tu canal, los buenos trabajos la divina providencia los premia, vamos pa esa meta
@terafix
@terafix Жыл бұрын
Muchas gracias por tus enseñanzas. Me han servido mucho. Las he aplicado y funcionan muy bien.
@alfonsoexcel8991
@alfonsoexcel8991 3 жыл бұрын
Muy buenas a todos, sobre todo a usted maestro Tio Tech. Yo soy nuevo y autodidacta , no tengo ni idea de programación y con usted estoy aprendiendo. ¿Me podría decir por favor la solución al encabezado del cuadro de lista del minuto 43:35 del video.? ¿Podría explicarme que código que tengo que poner a un botón que tengo como copiar_nombre en el mismo formulario , para que me copie el texto que hay dentro del textbox llamado txt_nombre? Muchas gracias. Gracias a personas como usted muchos aprendemos.
@diogenescueto2403
@diogenescueto2403 4 жыл бұрын
Excelente todo los vídeos, aprendí mucho!. estoy haciendo un formulario para nomina, y quiero aplicar un criterio. Cuando coloque el código de los conceptos (Sueldo, días Libres, Feriados y domingo, Horas extras diurna y nocturna) y las de deducción (IVSS, L.P.H., P.F, Impuesto) me la reconozca y aplique dependiendo la ocasión la formula de cada uno, en mi formulario!
@jcesarssalazar7370
@jcesarssalazar7370 2 жыл бұрын
Buenas tardes profe, Saludos desde Costa Rica, todo lo que explicas en este audio,lo puedo aplicar al control de inventario, y yo le puedo en lugar de nombre apellidos, y reemplazarlos por fecha, ubicación de donde sale el material, el proyecto a donde sale los materiales, y el encargado del proyecto, El de control de inventario lo hice dos veces el primero me tiraba error Y el segundo me quedo perfecto gracias a esos tutoriales suyos,
@ALONSO4173
@ALONSO4173 3 жыл бұрын
Muchas gracias por compartir sus inmensos conocimientos y además felicitarlo por sus excelentes videos.
@nirmalghimire2981
@nirmalghimire2981 4 жыл бұрын
Muy interesante el video. Estoy haciendo un proyecto para el fin de carrera. Que es basicamente tengo un formulario principal CON TRES OPCIONES DE BUSQUEDA; 1) hago la primera busqueda por el nombre del cliente(inicialmente tengo una hoja con una tabla fija donde tengo los datos identificativos del cliente, en el formulario me tiene que copiar y pegar los datos que me interesan que esten en los textbox que quiera yo de este formulario y le asigno un numero de registro en un textbox junto fecha de entrada en otro textbox; guardo junto todos estos en una hoja de baso de datos que se creará apartir de este formulario pulsando button REGISTER_X. 2)hago segunda busqueda por el numero de registro(que ya se creo una la primera hoja de base de datos despúes de pulsar button REGISTER_X; me tiene que copiar y pegar los datos que me interesan en unos textbox del formulario; añado más datos de forma manual en otros textbox creados y pulso el button REGISTER_Y 3)hago la tercera busqueda por el numero de PO(que ya se creo una la primera hoja de base de datos despúes de pulsar button REGISTER_X; me tiene que copiar y pegar los datos que me interesan en unos textbox del formulario; añado más datos de forma manual en otros textbox creados y pulso el button REGISTER_Z y se creará la tercera hoja de bases de datos de nuevo. la dificultad que he encontrado es llamar la hoja de base de datos que se crea de forma dinamica; copiar la celdas que interesan y pegarlas en en los textbox del formulario variando cada por tipo de busqueda. a ver si me pueden echar una mano.
@grijalvaescobedo158
@grijalvaescobedo158 3 жыл бұрын
Eres excelente tío tech, he aprendido muchísimo tenía varias dudas pero me han quedado claras que Dios te bendiga saludos desde León Guanajuato, México muy bien 👏👏👏👌👌👏👏👏👍
@misaelmarmol4195
@misaelmarmol4195 4 жыл бұрын
Hola Buenas tardes a todos!... Demasiado bueno el tutorial y la pedagogía Tío Tech, he seguido sus instrucciones al pie de la letra y todo marcha muy bien, gracias por eso... Lo que necesitaría saber es como hacer una búsqueda por mas de tres criterios con el botón de opción, agradezco de antemano su ayuda o la de alguno de los aqui presentes.
@aaronmendoza8313
@aaronmendoza8313 4 жыл бұрын
Excelente todo los vídeos, aprendí mucho!. Estaba buscando entro los comentario y no vi ninguno que hablara de como buscar en un listbox sin que los encabezados de columna no se borren. agradecería tu respuesta. gracias por todo!
@Jeffer.
@Jeffer. 4 жыл бұрын
Me pasa lo mismo, amigo llegaste a resolver ese error?
@EXCELentePMP
@EXCELentePMP 4 жыл бұрын
Tenemos el mismo problema y lo peor es que eso también le pasa a él pero lo omitió nada más
@AvanceTotal
@AvanceTotal 4 жыл бұрын
@@Jeffer. Utilicen mejor labels para evitar ese error
@agustinspena4347
@agustinspena4347 3 жыл бұрын
amigo pudiste resolver ese problema ?
@SalvadorRodriguez-ih1ym
@SalvadorRodriguez-ih1ym 4 жыл бұрын
Te felicito por tus videos. Cuando busco algún tema, siempre encuentro alguno tuyo, y me han sidu muy utililes para mi trabajo en la Industria donde trabajo.
@PV-uu6xs
@PV-uu6xs Жыл бұрын
Hola Tio Tech, muy bueno tus clases, se aprende bastante. lo que te pediría por favor agregues 3 combo box dependientes uno de cada uno a este mismo formulario que diseñaste. no encuentro tutoriales referente a combo box dependientes. Antemano muy agradecido.
@vichepozo7988
@vichepozo7988 3 жыл бұрын
Excelentes videos, voy a utilizar el ejemplo y ponerlo en práctica..felicitaciones y gracias por compartir los conocimientos
@JuanVarelaDecoplac
@JuanVarelaDecoplac 3 жыл бұрын
Hola que tal? Antes de nada enhorabuena por el trabajo que realizas, es realmente interesante y además realizas un gran trabajo didáctico. Bueno al lio, he hecho una base de datos con excel y me quedan unas cosillas para darle el Ok definitivo, te comento lo que creo que me falta para terminarla: - Al realizar busquedas perdemos los encabezados de columnas, que era algo que sucedía en el video de respuestas a dudas - He puesto dos selectores para buscar por nombre y grupo y buscar por nombre funciona con el boton de busqueda y por grupo al introducir texto en el cuadro de texto de busqueda - Cuando hago un registro no se refresca la lista de registros en el formulario, tengo que cerrarlo y volver a entrar (el formulario) Por otro lado, mis registros van acompañados de cinco fotos cada uno y cada foto está relacionada con el código y el problema es las imágenes son repetitivas, o sea, me gustaría saber si hay alguna forma de que una misma imagen pueda estar en dos registros o más al mismo tiempo. Te pido mil disculpas por el pedazo mensaje, un abrazo y muchas gracias
@MauritoGiorgi
@MauritoGiorgi Жыл бұрын
Muy bueno el video!!! El mejor canal, super detallado...Un crack ! Logro resolver el problema que limpia los cabezales cuando se busca? Poniendo Labels no sirve en el caso de que la lista tenga scroll horizontal, lo ideal seria que los cabezales se mantengan
@lalo2839
@lalo2839 4 жыл бұрын
Hola Tío Tech, primero antes que nada magnifico trabajo y que gran conocimiento tienes sobre excel, eso es de respetar, por otra parte amigo, ya tengo listo mi formulario como lo muestras en tus 3 videos para realizarlo y sin ningún problema, lo modifique a lo que necesito solo de tu amable ayuda sobre esto: 1. Quiero agregar un 3ª criterio de búsqueda, 2. Necesito que mi botón de "Agregar" se capture en la ultima fila, por que necesito que vaya de 1,2,3,4,5,... así sucesivamente, te agradecería mucho tu apoyo. Amigo
@santiopena4522
@santiopena4522 3 жыл бұрын
Hola, lo primero encantado con los videos, muchísimas gracias. Tengo una duda que decías resolver a parte del video: ¿Como resolver el error de que al pulsar buscar se borren los encabezados de la lista?
@egimen25
@egimen25 3 жыл бұрын
Hola Tio Tech, Recientemente fue que pude ver tu video. Puedo decirte que son excelente lo he seguido todos y practicado. Quedo pendiente; ¿Cómo modificar el código en el botón de Búsqueda para que aparezca el contenido del encabezado? Al momento de realizar la búsqueda. El problema es que sólo aparece el contenido del encabezado al principio y no en la Búsqueda. Cuál es la solución a este problema en la búsqueda para el ejemplo del formulario descripto en el video. Gracias de antemano
@klinyerjulcamedrano7406
@klinyerjulcamedrano7406 2 жыл бұрын
Excelente video para programar un formulario me sirvió bastante ya lo estoy usando y esta muy bien pero como no soy tan bueno como ud me salen dos errores q no puedo solucionar uno de ellos es que en mi base de datos tengo registrado precios con dos números decimales los cuales están separados con el punto decimal y al buscarlo en en el formulario y seleccionarlo el punto se convierte en coma y así lo manda a otra hoja Excel
@69Heberto
@69Heberto 4 жыл бұрын
Tio Tech eres muy bueno explicando, pero te falto incluir en tu video, si queremos incluir una fotografia a cada registro como lo hacemos... gracias... y un saludo desde Venezuela, Estado Zulia - Maracaibo.
@rubenmarques2156
@rubenmarques2156 4 жыл бұрын
Buenas tardes desde España , Barcelona, has podido resolver el problema de los Head del cuadro de lista que desaparecen cuando le damos a buscar?, gracias por tus vídeos y trabajo de nuevo!!!
@allanfco.marquez2410
@allanfco.marquez2410 3 жыл бұрын
Lo resolviste ?
@horacioprado9876
@horacioprado9876 4 жыл бұрын
Muchas gracias por todos los vídeos me sirvió para crear una pequeña base de datos para la escuela.
@RaulIsaacMeloHuertas
@RaulIsaacMeloHuertas 9 ай бұрын
Buenas noches. Dios le bendiga TioTech 🙏🙌🤝 De ante mano le agradezco por su dedicación y profesionalismo con el que nos enseña. Muy buenos videos Tengo una pregunta: ¿se pueden hacer programas de escritorio con los formularios hechos en VisualBasic? He notado que cuando uno ejecuta los formularios, es muy frecuente que presenten errores y es molesto ya que se debe volver a abrir el formulario para seguir trabajando. No se si quizás al convertirlo en un .exe se pueda mejorar el funcionamiento Muchas gracias de antemano TioTech
@guillermosaucomendez6014
@guillermosaucomendez6014 4 жыл бұрын
Mis saludos, las explicaciones han sido claras y concisas, ahora me gustaría que luego de insertar registros se ordenen segun un criterio
@baddyrichardbohorquezvaldi2704
@baddyrichardbohorquezvaldi2704 2 жыл бұрын
hola , excelente trabajo, te agradesco mucho por toda la informacion , se aprende ,realmente, podrias subir el archivo de excel .
@gwatekeklok4884
@gwatekeklok4884 4 жыл бұрын
Excelente explicaciones, ser programador no es tan facil y mucho menos enseñar con tantos detalles.
@MrSuperxaa
@MrSuperxaa 4 жыл бұрын
También, aplicar Tab Index, para la ordenación de los campos en el formulario. Muchas gracias por este gran videotutorial.
@ANDROIDenSEGUNDOS
@ANDROIDenSEGUNDOS 2 жыл бұрын
a parte de un fallo que detecte en el primer video y que logre arreglar, el resto es oro! mil gracias
@juanpedroyupanquicristobal593
@juanpedroyupanquicristobal593 3 жыл бұрын
Bastante ilustrativo los videos. Cambié la forma de ingreso de datos, después de la ultima fila hacia abajo, ultimo = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 1 Range("B" & ultimo).EntireRow.Insert Range("B" & ultimo).Value = txtItem.Value Range("C" & ultimo).Value = txtNombre.Value Range("D" & ultimo).Value = txtDni.Value Range("E" & ultimo).Value = txtTelefono.Value Range("F" & ultimo).Value = txtEntregado.Value Range("G" & ultimo).Value = txtFalta.Value txtItem.Value = Range("B2").Value MsgBox ("DATOS REGISTRADOS") Cuando deseo eliminar el último dato de la lista me sale error '1004' NO SE PUEDE OBTENER LA PROPIEDAD VLookup de la clase WorksheetFunction. Agradezco de antemano tu ayuda en este pequeño error.
@marcoantonio6
@marcoantonio6 3 жыл бұрын
Al comienzo de tu código en el botón eliminar pon ésta linea LISTA.ListIndex = -1
@marisarodenas
@marisarodenas 3 жыл бұрын
Hola Tio Tech, la verdad un genio para explicar la creación de este formulario que me fue de mucha utilidad. Podrías poner el código para seleccionar SI/NO por OptionButton? Lo necesito para mi formulario, es más fácil que ingresar un combobox. Muchas gracias
@sebastiangarciamartinez3663
@sebastiangarciamartinez3663 4 жыл бұрын
He aprendido bastante con sus videos, muy claro todo, muchas gracias
@colochini7905
@colochini7905 4 жыл бұрын
Muy buenos tus aportes Tech. Con tu ayuda pude realizar una base de datos muy completa. El único punto que me dejó con la duda es como trabajar la búsqueda con las tildes. Es decir, si se realiza una búsqueda donde la palabra de la base de datos tiene tilde pero quien hace la búsqueda omite escribirla con tilde, no la encontrará. ¿Es posible resolver ese detalle?
@alfredo_dx3933
@alfredo_dx3933 4 жыл бұрын
Hola. Me podrías decir cual es la forma para poder alinear el contenido de un TextBox o un Label, verticalmente? Muchas gracias Por cierto... TE FELICITO POR LA MANERA DE EXPLICAR !!!!!!!! EXCELENTES TUS TUTORIALES !!!!!
@fulldivierta
@fulldivierta 2 жыл бұрын
Excelente ayuda, Gracias a tu gran aporte, cree un formulario donde agrego clientes a mi base de datos, estos clientes son de Netflix, amazon, disney, spotify, youtube, etc, donde me filtra los que ya se van a vencer y les agregue un boton donde les envio un aviso desde VBA a WhatsApp directamente. Uff todos los creditos a ud Tio Tech.
@jojojojo4580
@jojojojo4580 2 жыл бұрын
Maestro lo amo
@sivispacemparabellum8592
@sivispacemparabellum8592 3 жыл бұрын
Como siempre fantastico. Eres mi canal favorito para aprender sobre excel. Sigue asi!!
@rogerbustillosmontalban928
@rogerbustillosmontalban928 4 жыл бұрын
Muchas Gracias por los tutoriales.... Excelente explicación
@rrrraaaacccc80
@rrrraaaacccc80 3 жыл бұрын
Me suscribí después de ver estos videos de los formularios. Muy bueno.
@lorenzoguerra7908
@lorenzoguerra7908 2 жыл бұрын
Muchas Gracias por tus videos, me han servido de mucho
@geovanniveliz8326
@geovanniveliz8326 4 жыл бұрын
Mi hermano te agradezco el tutorial, logré ponerlo a funcionar después de varios días de darle duro jajaja. Si podrías decirnos cómo hacer que todos los datos ingresados se conviertan a mayúsculas te lo agradeceré o si alguien sabe qué pase el dato. Y si hay alguna manera de que los cuadros de texto cuando uno edita si hay fechas que no se vean como el código de fecha. Mil gracias.
@victormalvasio1989
@victormalvasio1989 3 жыл бұрын
Muy buenos tus videos tio tech , te hago una pregunta. Tenes algun video donde explique como utilizar listas desplegables tanto en el modo insertar como en el editar? Ya que use mucho la base de este video pero muchos campos que necesito serian mejor con listas desplegables
@alfaomega7104
@alfaomega7104 4 жыл бұрын
Hoia Tio Tech excelente aporte, como siempre con cosas nuevas en cada aporte. Tio Tech, quisiera plantearle otra cuestion para ver si es posible que me pueda ayudar, teengo un abarrote pero solo quiero llevar el control de los creditos, donde pueda ingresar, cobrar, y borrar la deuda cuando me paguen el total del credito y si no pagan el total poder abonar a la cuenta del cliente, de antemano gracias
@ricardoluna3241
@ricardoluna3241 3 жыл бұрын
Excelentes videos todos. Me han servido de muchísima ayuda. Quisiera saber si se puede abrir el formulario y usarlo (no editarlo) sin tener que abrir excel, es decir, crear un icono directo y se abra exclusivamente el formulario. Gracias
@jorgeencisocuba9563
@jorgeencisocuba9563 3 жыл бұрын
Ud es un trome, se agradece la enseñanza y su valioso tiempo; Tengo unas preguntas: ¿Tengo una casilla para fechas, pero solo aparecen numeros?, igual forma ¿como configuro las cantidades en monedas?, en espera de su respuesta
@bceballos1
@bceballos1 3 жыл бұрын
Muy buen trabajo!!!!!! muchas gracias!!!!!!! 👏👏
@diegopellicer8566
@diegopellicer8566 3 жыл бұрын
Buenas noches, buenísimos todos tus vídeos de este tema, de verdad me ayudaste mucho en lo que necesitaba. ¡Buen trabajo, sigue asi!. Dios te bendiga :D
@miguelmiggzgonzalez9116
@miguelmiggzgonzalez9116 4 жыл бұрын
Miguel excelente tus tutoriales y este en especial muy completo👏👏
@dariomacetas4273
@dariomacetas4273 4 жыл бұрын
Miguel buenas , eh seguido los 4 videos del formulario VBA, muy bueno, quedo pendiente explicarnos como hacer para agregarle imágenes al formularios, gracias
@farif2212
@farif2212 4 жыл бұрын
Impecables tus vídeos y tu dedicación!
@ricardonoguera6492
@ricardonoguera6492 4 жыл бұрын
Excelente video y explicación, me gustaría que explicaras como hacer para armar una mase de datos con imagen pudiendolas consultar, pero que las imágenes se guarden en el mismo archivo ya que al mandar el archivo y las imágenes estar en rutas externas no se puede visualizar. Like por todo
@Hugobeltran7195
@Hugobeltran7195 Жыл бұрын
muchas gracias tio tech son muy buenos tus videos muchos exitos
@yaipau2012
@yaipau2012 4 жыл бұрын
Los cuatro vídeos son muy ilustrativos y ayudan muchísimo. Muchas gracias por compartirlos!!! Me surge una pregunta, ¿se podría poner un botón para deshacer? Por ejemplo modificas un dato y quieres deshacer esa modificación. Saludos,
@MeFlos
@MeFlos 3 жыл бұрын
Con una macro, solo grabas la acción de deshacer y al botón le agregas el call para que actives esa macro al presinoarlo
@manuelagonzalez5554
@manuelagonzalez5554 4 жыл бұрын
Super tus videos, la verdad SI que tienes el don de enseñar, sabes me gustaria saber si para los códigos que se van anexando en la BD se les puede anexar algún guion o letra de referencia por eje cod L-101 ... Muchas gracias por tu tiempo
@alvarosantin9894
@alvarosantin9894 3 жыл бұрын
¡Excelente tutorial! Muy bien explicado. Por favor me podrían ayudar para ingresar y editar fechas en un formulario, teniendo en cuenta el formato latino para fechas. ¡Muchas gracias!
@sergioherrera2740
@sergioherrera2740 4 жыл бұрын
Hoa tio exelecntes videos indudablemente el mejor que he visto hasta ahora. tengo un pequeño problemita . cuando añado mas de 500 registros me da un error "error 6 en tiempo de ejecucion. Desbordamiento" le doy a debpurar y me envia a este codigo " codigo = txt_codigo.Value" Muchas gracias de antemano. bueno ya esta solucionado solo hay k cambiar el codigo : "Dim codigo As Integer " por " Dim codigo As Long" y listo solucionado
@monicaapaza5686
@monicaapaza5686 2 жыл бұрын
Muy interesante video se aprende un monto, creo que falta el boton Salir ( para salir del formulario), una vez que tenga ya todo mi formulario listo como hago para que ya sea un programa ejecutable es decir para instalarlo en varias pc's
@leocalatayud4122
@leocalatayud4122 4 жыл бұрын
Buenos dias primero felicitarte nuevamente por tus videos Me quede con la duda del punto 4 de la lista de dudas , como hacer para que sirva el enter en lugar del boton buscar. Has hallado la respuesta? Muchas gracias
@jairocesar0527
@jairocesar0527 4 жыл бұрын
Hola Tio, excelente sus tutoriales, yo tengo un problema al generar la busqueda ya que al darle buscar no me trae nada, y creo que es por que tengo una tabla con 22 columnas, me podria ayudar. gracias
@franciscoadasmequintanilla5279
@franciscoadasmequintanilla5279 4 жыл бұрын
Encontraste esa solución ?
@LionWolfGame
@LionWolfGame 4 жыл бұрын
Tengo 14 columnas y no devuelve la búsqueda, queda la tabla en blanco con los campos de los encabezados también en blanco. Private Sub BT_BUSQUEDA_Click() NODATOS = Hoja1.Range("A" & Rows.Count).End(xlUp).Row LISTA = Clear LISTA.RowSource = Clear r = 0 For FILA = 18 To NODATOS NOMBRE = ActiveSheet.Cells(FILA, 4).Value If UCase(NOMBRE) Like "*" & UCase(Me.BUSQUEDA.Value) & "*" Then LISTA.AddItem LISTA.List(r, 0) = ActiveSheet.Cells(FILA, 1).Value LISTA.List(r, 1) = ActiveSheet.Cells(FILA, 2).Value LISTA.List(r, 2) = ActiveSheet.Cells(FILA, 3).Value LISTA.List(r, 3) = ActiveSheet.Cells(FILA, 4).Value LISTA.List(r, 4) = ActiveSheet.Cells(FILA, 5).Value LISTA.List(r, 5) = ActiveSheet.Cells(FILA, 6).Value LISTA.List(r, 6) = ActiveSheet.Cells(FILA, 7).Value LISTA.List(r, 7) = ActiveSheet.Cells(FILA, 8).Value LISTA.List(r, 8) = ActiveSheet.Cells(FILA, 9).Value LISTA.List(r, 9) = ActiveSheet.Cells(FILA, 10).Value LISTA.List(r, 10) = ActiveSheet.Cells(FILA, 11).Value LISTA.List(r, 11) = ActiveSheet.Cells(FILA, 12).Value LISTA.List(r, 12) = ActiveSheet.Cells(FILA, 13).Value LISTA.List(r, 13) = ActiveSheet.Cells(FILA, 14).Value LISTA.List(r, 14) = ActiveSheet.Cells(FILA, 15).Value r = r + 1 End If Next End Sub
@gabrielagaspar943
@gabrielagaspar943 4 жыл бұрын
@@LionWolfGame Hola, también tengo el mismo problema pero en el mensaje me sale false. podrían apoyarme
@borapchos5383
@borapchos5383 4 жыл бұрын
@@LionWolfGame LO INTESTASTE HACER PONIENDO "Me.LISTA.additem" ? y en vez de poner "ActiveSheet.Cells", poner el nombre de la hoja " = Hoja2.Cells (FILA, 2) yo trabajo con mas de 10 celdas, y el codigo me funciona bien
@danielulisesmarinfernandez4749
@danielulisesmarinfernandez4749 3 жыл бұрын
El código es hasta para una tabla con 10 columnas no nomas
@hotelasturias8724
@hotelasturias8724 4 жыл бұрын
Hola Miguel, he realizado todo tu procedimiento, pero para mis necesidades y hasta ahora todo ok, me he visto los 4 videos completos en un noche, pero no te olvides de completar lo que falta. Como hacer para que no se borre los encabezados.. :)
@Jeffer.
@Jeffer. 4 жыл бұрын
Lo pudiste solucionar? me pasa lo mismo.
@hotelasturias8724
@hotelasturias8724 4 жыл бұрын
@@Jeffer. no, todavía
@julianandresjimenez2020
@julianandresjimenez2020 4 жыл бұрын
Hola Tio Tech, excelente tus tutoriales, agradeceriamos que incluyeras un video creando un formulario para TRASLADOS entre bodegas o almacenes de productos con numero de serial, que permita hacer un solo ducmento que permita mover el producto de una bodega de otra. muchas gracias!!!
@leonelortiz3940
@leonelortiz3940 4 жыл бұрын
Excelente amigo es muy útil, felicitaciones
@jefersonchaconrengifo1944
@jefersonchaconrengifo1944 2 жыл бұрын
Gracias por tu información ha sido muy valiosa para mis propósitos y necesidades
@gustavob.5555
@gustavob.5555 4 жыл бұрын
Excelente la explicación eres el mejor!!!
@matiaszabaljauregui6192
@matiaszabaljauregui6192 3 жыл бұрын
excelente tu canal, segui asi pregunta: como seria el codigo si quiero que al guardar los datos se guarden en distintas hojas segun lo que elija en el combobox
@disneyleiva9509
@disneyleiva9509 4 жыл бұрын
Felicitaciones por cada video que haces me gustaría que explicaras como insertar imágenes por cada nombre registrado y cuando hagas la búsqueda la muestre. Me quede en esa pregunta que te habían hecho y no pudistes explicar porque estabas cansado ..Pero igual te felicito.
@janatodarky
@janatodarky 3 жыл бұрын
Cómo darle FORMATO de FECHA a un TextBox y que tambien la celda lo reconozca con formato de fecha. Me pasa que le doy formato de fecha al TextBox pero en la celda del excel no. Esta escrita la fecha bien, pero por ejemplo lo filtro y no lo toma como si tuviese el formato de fecha.
@aprendamosjuntosperu
@aprendamosjuntosperu 3 жыл бұрын
Le agregue CDate y me jala en formato de fecha espero te sirva Me.fecha1 = CDate(Application.WorksheetFunction.VLookup(CDbl(codi), Sheets("BD").Range("E:N"), 3, 0))
@sergioalegre2715
@sergioalegre2715 3 жыл бұрын
@@aprendamosjuntosperu Muchas gracias! me sirvio muchisimo..
@JesusMVP7
@JesusMVP7 2 жыл бұрын
@@aprendamosjuntosperu Hola que tal, no pude lograrlo, me sale un error. Lo copia tal cual lo pusiste y no salio. Gracias y saludos
@geminis2caras1
@geminis2caras1 2 жыл бұрын
Tengo esta misma duda me pueden ayudar?
@gustavosalvador1203
@gustavosalvador1203 Жыл бұрын
Cdate
@ndobaisiem2188
@ndobaisiem2188 Жыл бұрын
Hola Tío Tech. De casualidad tienes alguna solución para los encabezados de listbox a la hora de la búsqueda?
@martisteeverarrascobalvin407
@martisteeverarrascobalvin407 2 жыл бұрын
Estimado Tio Tech, Pudiste dar con la solución al realizar la consulta desde las cajas de texto no se eliminen los encabezados? o en todo caso vuelvan aparecer?
@alexrr9253
@alexrr9253 3 жыл бұрын
buen dia ,quiero felicitar primero que todo al canal y a su instructor , ojala la gente usara estos canales para cosas productivas como estas, tengo un formulario que diseñe gracias a esta pagina donde puedo, con el botón agregar , ir agregando registros a una base de datos, pero necesito que el ultimo datos agregado se agregue como un hipervínculo , y me muestre este hipervínculo en una lista de formulario que ya me esta en el formulario, y poderlo abrir al darle clic, y me muestre el archivo pdf, agradecería mucho me ayudaran con eso.
@alexandervelasquezisaza2298
@alexandervelasquezisaza2298 11 ай бұрын
Muy buen video, excelente, muchas gracias por compartir tus conocimientos.. Una cosa. Cuando borro toda la. Información desde el formulario, y agrego un nuevo codigo.. Sale error y se sale del formulario... Sera que es posible ayudarme como configuro para que funcione al 100% Muchas gracias y mil bendicciones
@franciscozeballoszopilote
@franciscozeballoszopilote Жыл бұрын
Le agregue un campo para agregar fecha y otro para hora y me carga cualquier cosa decimal y la fecha al revés. Me podrias ayudar a ver como solucionar este tema ? Es lo unico que me falta ..sos un genio..aprendo facil con tu forma de explicarlo gracias
@TheKingparty
@TheKingparty Жыл бұрын
excelente video
@MegaViktor57
@MegaViktor57 4 жыл бұрын
Desde México muchas felicidades por tus videos, aprendo mucho día con día, pero ahora una pregunta puedes realizar un video en donde expliques como juntarlos, ya que tenemos insertar filas, número consecutivo y muchos más; soy una persona de la tercera edad y quiero realizar un recibo de ingresos así como de egresos para mi comunidad, soy encargado del pozo del agua potable y existen pagos por derecho al agua y salidas como reparación de la bomba. Gracias y adelante.
@edgelion2959
@edgelion2959 2 жыл бұрын
Muy buenos videos , explicas muy bien los procedimientos, Tío Tech, una Pregunta si quisiera que al guardar el nuevo registro, este se guardara en otra hoja de excel. como se puede hacer ?? Saludos y gracias por tus Videos y por Compartir tu conocimiento ¡
@catalinafrez4213
@catalinafrez4213 2 жыл бұрын
Para guardarlo en otra hoja solo debes escribir un With NOMBREHOJA y dejar el mismo código por ejemplo: With Hoja2 llenar = Application.WorksheetFunction.CountA(.Range("A:A")) + 1 .Range("A" & llenar) = txt_ne2.Value .Range("B" & llenar) = txt_tipo.Text .Range("C" & llenar) = txt_tipo.Text .Range("D" & llenar) = txt_cuenta.Tex End With
@LuisHPetit
@LuisHPetit 3 жыл бұрын
Hola Luis, buenas tardes. Muchas gracias por el esfuerzo de tu realización. Qué pena que haya quedado inconcluso..!! Veo además, que no estás respondiendo los mensajes. ¿Has abandonado la página? Muchas Gracias
@JaimeUrizarA
@JaimeUrizarA 4 жыл бұрын
Excelente los 4 videos, muchas gracias
@luisja1965
@luisja1965 4 жыл бұрын
Excelente Video Miguel, he estado realizando busqueda varias y me da un error de la funcion if, lo he realizado varias veces y es ugual, no se donde puede estar fallo, lo he realizado exactamente igual, muchas gracias
@franklinbaqueroramos5017
@franklinbaqueroramos5017 4 жыл бұрын
Muchas gracias por sus videos
@aprendiendo.tecnologias
@aprendiendo.tecnologias 2 жыл бұрын
Hola Tio Tech, primeo que todo quiero darte las gracias por todo esta información bien enseñada y también tengo dos inquietudes: la primera como hago para ver la soluciones a las inquietudes 8, 9 y 10 de este vídeo, y donde puedo ver la solución de los encabezados que desaparecen? porffaaa has un video donde solucione lo de los encabezados que se desaparece..!
@IRAMWALKER
@IRAMWALKER 4 жыл бұрын
Hola Miguel, el vídeo es genial y súper claro, además es divertido ir construyendo paso a paso con tus indicaciones. Tengo una consulta, al trabajar con el formulario para eliminar, al traer nombre a etiqueta nombre y apellido, me sale un error "No se ha definido sub o función", y me subraya en azul "nom" y tengo el código igual al tuyo. Me podrías ayudar por favor?
Como evitar introducir datos duplicados desde formulario VBA Excel
21:15
Formulario en VBA Excel (Nuevo, Modificar, Buscar, Eliminar, Limpiar)
53:23
ПРИКОЛЫ НАД БРАТОМ #shorts
00:23
Паша Осадчий
Рет қаралды 5 МЛН
He bought this so I can drive too🥹😭 #tiktok #elsarca
00:22
Elsa Arca
Рет қаралды 59 МЛН
Or is Harriet Quinn good? #cosplay#joker #Harriet Quinn
00:20
佐助与鸣人
Рет қаралды 57 МЛН
Busqueda inteligentes con macros en excel VBA
57:01
El Tío Tech
Рет қаралды 183 М.
Calendario Moderno En excel VBA con formulario gratis.
32:32
VBA APLICACIONES CON EXCEL
Рет қаралды 6 М.
Display an Excel worksheet based on a username and password entered on a VBA UserForm @EXCELeINFO
16:14
Sergio Alejandro Campos - EXCELeINFO
Рет қаралды 109 М.
ПРИКОЛЫ НАД БРАТОМ #shorts
00:23
Паша Осадчий
Рет қаралды 5 МЛН