BÚSQUEDA DE DATOS Y MÁS
Aprende a insertar datos desde un UserForm, buscar datos de excel en visual basic, modificar datos de excel desde un formulario, estilos de texto en los formularios, entre otros temas que manejaremos en este capítulo lleno de contenido donde de paso seguiremos trabajando con las cajas de texto y otros controles de VBA.
Este es quizás uno de los capítulos más importantes y tal vez quedó un poco extenso, sin embargo como mencione trabajaremos bastantes temas muy recurrentes cuando se trata de macros en excel, asi que mirenlo con calma y les recomiendo descargar el material de apoyo para comparar los códigos ya que es muy común cometer errores en este ejercicio.
DESCARGAR MATERIAL DE APOYO
Descarga el archivo que vemos en el vídeo desde los siguientes enlaces
Mega | MediaFire | Descarga Directa
Capitulo Anterior Lista de Capitulos Capitulo Siguiente
Hola Dostin
Por favor ayuda , copié textual el código pero me da un error dice que no consigue el rango , esto fue lo que copié, donde puede estar el error.
Public filalibre As Integer
Public control As Integer
Public ubica As String
Private Sub CommandButton1_Click()
Sheets(«sheet5»).Select
If control > 0 Then
´actualizar datos
Range(ubica).Value = TextBox1
Range(ubica).Offset(0, 1).Value = TextBox2
Range(ubica).Offset(0, 2).Value = Val(TextBox3)
control = 0
Else
´crear nuevos
Cells(filalibre, 1).Value = TextBox1
Cells(filalibre, 2).Value = TextBox2
Cells(filalibre, 3).Value = Val(TextBox3)
End If
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End If
End Sub
Private Sub CommandButton2_Click()
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub CommandButton3_Click()
Unload UserForm1
End Sub
Private Sub TextBox1_AfterUpdate()
Sheets(«sheet5»).Select
filalibre = Range(«A2»).End(xlDown).Offset(1, 0).Row
control = 0
dato = TextBox1
rango = «A2:A » & filalibre
Set midato = ActiveSheet.Range(rango).Find(dato, lookin:=x1values, lookat:=x1whole)
If (midato) Is Nothing Then
MsgBox «no se encontraron los datos cree uno nuevo»
Else
ubica = midato.Address(False, False)
TextBox2.Value = Range(ubica).Offset(0, 1).Value
TextBox3.Value = Range(ubica).Offset(0, 2).Value
control = 1
MsgBox «datos cargados con exito»
End If
midato = Nothing
End Sub
Hola Dostin! yo quiero que a partir de un código me traiga varios resultados de una misma columna. Para ser mas especifica quiero poner un producto y que me traiga la formula (materias primas) y cantidades.. Sera que lo puedo hacer?
Son excelentes todos tus cursos, te deseo el mayor de los éxitos ! GRACIAS !!
Hola Dostin
Grandioso el vídeo
Sin embargo tengo un problema
Me aparece el mensaje «Se ha producido el error ‘9’ en tiempo de ejecución: Subíndice fuera del intervalo»
Sabes cuál puede ser la solución?
Gracias
Estimado Dostin, está genial tus cursos pues son fáciles de seguir y de comprensión, lo cual considero que es muy importante en un profesor, tras esto, sólo necesito una aclaración ya que esta programación contempla una base de datos que parte de información, pero si esa información no existe y lo que deseo es insertar, buscar o actualizar?? Lo digo, porque si borras los datos de la «base de datos» con este ejercicio no permite nueva creación pues parte de la filalibre que se supone que tiene datos…
No se si me he explicado bien, pero lo que quiero es, sin dato alguno crearlo y agregarlo, además del resto de opciones.
Excelente vídeo me gusta como explicas todo paso a paso, y muy claro, gracias Dustin por tu tiempo dedicado y cada día aprendo más con tus tutoriales, muchas gracias.
muy bueno sus videos
dostin porque no comparte ese trabajo, serviría un monto para uno guiarse y aprender mucho mas
por favor si lo puede compartir se lo agradeceríamos todos sus seguidrores
Hola Dostin
Muchas gracias , por compartir con todos el conocimiento que tienes y hacerlo de la manera mas sencilla, pratica y economica .
hola profe, muchas gracias por enseñarnos de esa manera tan práctica y con esa excelente pedagogía, para el ejemplo que nos presenta en esta ocasión quisiera acomodarlo con un cuadro de texto en el formulario que me permita ingresar nuevos registros en la última celda disponible de la fila, de esa manera puedo aumentar nuevos valores a un mismo registro, es muy util para cuando se necesita utilizar en un servicio técnico y a medida que se va progresando en la reparación se le van poniendo repuestos. muchas gracias por su respuesta
lo maximo !
EXCELENTE TRABAJO DOSTIN!! CADA VEZ ESTOY APRENDIENDO MAS Y ES GRACIAS A TUS VÍDEOS. ESPERO QUE SIGAS CON ESTE GRAN PROYECTO YA QUÉ ES UNA FUENTE DE CONOCIMIENTO PARA MUCHOS JÓVENES.
ERES UN CRACK ES EXCEL!!!
Un cordial saludo Dostin y te agradezco por los videos me an ayudado poco a poco a entender mejor Excel, me alegra que aun hay personas interesadas por compartir los conocimientos adquiridos y hacerlo de manera gratuita hoy en día la población a nivel mundial quiere ganar con el conocimiento una de las causas por las cuales existen muchas personas faltas de conocimiento, me agrada tu manera Tan práctica y sencilla de explicar cada video apenas voy en este capítulo pero voy entendiendo cada tema que das un saludo esperando que tengas una excelente semana
No logro imaginar cómo ganan y continúan ayudando personas que como tú, altruistas y profesionales, entregan tanto a nosotros, sedientos de esta información valiosa y al mismo tiempo incapaces de pagar el gran valor de lo que nos regalas.
Gracias a tu entrega hoy planifico mi futuro con muchísimas más herramientas.
Gustosamente contribuiré con tus proyectos en cuanto recoja mis frutos.
Desde hoy seré un fiel seguidor de tus instrucciones. No imaginaba tampoco el abanico de ofertas que tienes, es inmenso.
Hola Dostin,
Muchas gracias por compartir conocimientos, estoy feliz de aprender de esta forma siento que he avanzado mucho, estoy sorprendida de todo lo que se puede realizar en excel y lo estoy colocando en práctica.
Me gustaria saber si al terminar el curso hay posibilidad de obtener certificado de su parte, quedo atenta.
Hola Dustin serias tan amable de enviar el archivo de las planillas de hospitales?
Me seria de gran ayuda para completar otros proyectos, muchas gracias.
facu.pz10@gmail.com
Excelente dedicacion y explicacion, sigue asi!
Excelente video, de verdad gracias por tomarte el tiempo de explicar, felicitaciones amigo eres ejemplo a seguir, estoy aprendiendo gracias a esto, sigue así, saludos…
Estimado, ante manos agradecer por tu excelente trabajo, créeme que gracias a tus vídeos he realizado varios ajustes en mis planillas excel, no obstante, hay una problemática que aún no puedo resolver.
En este mismo caso del vídeo, ¿Cómo puedo buscar en una Base de datos con celdas combinadas? es posible?
Muchas gracias y saludos.
Hola cuando copia el primer código, me sale error en fila libre. Sabras por que podría estar saliendome mal. Y eso que lo que copiado tal y como esta pero me selección de amarillo la parte del filalibre en la parte del AfterUpdate(). Gracias de antemano.
Ya resolvi mi duda. Gracias
Hola, como lo hiciste?? me aparece el mismo error
¡Hola! Te recomiendo descargar el material de apoyo para que te guies mejor 😊
como lo hiciste hermano no puede
Don Dostin Muy agradecido con sus Tutoriales eh y hemos aprendido mucho de usted, quería pedirle el favor si se puede de regalarme el proyecto que explico en el capitulo 7 de un hospital, no es para nada malo es que tengo que hacer un proyecto muy parecido para empresa donde trabajo y poder comprar los codigos con su proyecto sería increible, si puede Mi Dios le pague, sino le agradezco mucho por la enseñaza y que tenga un muy buen día y resto de año, Saludos Dostin Hurtado.
Si me lo quieres obsequiar mi correo es miguelpaez9612@gmail.com
si puedes también compartirlo. quiero hacerlo con ese archivo por que la verdad no tengo ninguno así. gracias mi correo es lizethgaviria14@gmail.com
Hola, queria saber si me podrias enviar el excel del hospital para practicar diferentes metodos de ingresar la información si alguien lo tiene por favor seria tan amable de enviarlo a mi correo maty_ale_morales@hotmail.com
Saludos Dostin, excelente forma como cada video complementa el anterior. En este video #7 pude aprender como insertar datos al final de la hoja de datos y no al principio, este era precisamente una de las dudas que tenía, hasta este video, y que me resulta útil para el proyecto que estoy llevando a cabo
Muchas gracias
Tengo esa misma duda, pero no supe ¿cúal es el código? Me podrías decir Silvestre