Programación en Excel. Combobox dependientes.Manejo avanzado controles ActiveX
Вставка
- Опубліковано 15 вер 2024
- En este Videotutorial, se explica cómo rellenar hojas de cálculo como facturas, presupuestos, ofertas, etc. utilizando userforms con cuadros combinados dependientes.
Aquí el código: www.mediafire.c...
Encantado con todos sus tutoriales. Lo felicito y muchas bendiciones en su trabajo
Gracias por sus aportes la verdad me han sido de gran ayuda ya que he podido realizar mis aplicaciones personalizadas que facilitan mi trabajo cotidiano. Saludos
Hola don excel......excel....excelente......gracias excelentísimo por sus videos y su enseñanza....es un verdadero crack para el excel !
Quizás dentro de sus vídeos y su conocimiento puede ud ayudarme con un lector de huella digital para llevar el registro de control de personal en excel. de antemano muchas gracias.
Cada tutorial mejor que el anterior, muchas gracias
es usted un maestro grACIAS
ah, Bueno muchas gracias por tu respuesta y mucho mas por tus video-tutoriales Saludos desde Colombia
muy bien explicado y muy interesante, muchisimas gracias por la enseñanza
excelente lo voy a repasar y adaptar a un formulario que hago en mi trabajo.
muy bueno el tutorial brindado, Gracias me servirá de gran ayuda.
Siempre es una satisfacción ayudar a los demás.
Impresionante, en verdad impresionante
Gracias por todo
muchas gracias por el link tmbien por los videos recomendados los voy a mirar saludos
Hola, gracias por compartir sus conocimientos y experiencia en estos tutoriales, me han sido de gran utilidad, es posible conocer un orden de todos sus tutoriales publicados. Gracias nuevamente
Entra en mi canal. Elige "Listas de reprocucción". Ahí están ordenados.
Caballero he estado estudiando toda la tarde tratando de hacer una forma que me ayude a describir unos clientes con precios. No he aprendido nada, quzas ya soy muy viejo. Pero cuando legue a su video, el bombillo se me prendio y entiendo mucho mas. Gracias por su detallado video. Como le puedo hacer una pregunta especifica.
Javier Polo Por aquí nismo, o mediante un mensaje privado desde la opción "enviar mensaje" de mi canal.
Deje sin efecto mi problema Maestro! Ya solucioné! Era un error en el procedimiento comboboxRUBRO_Enter, donde en el For - Next puse "comboboxARTICULO.Additem Sheets(L).Name" y tenia q haber puesto "comboboxRUBRO" . Muchas gracias de todas maneras y lo seguiré molestando con mis consultas!
BUENO YA LO HICE YA ME DI CUENTA QUE EL CODIGO ESTABA EN LA HOJA PRESUPUESTO (2)...GRACIAS
gracias, simplemente GRACIAS!!!
Caballero gracias por todos tus vídeos han sido muy edificantes.....pero hoy quiero hacerte una pregunta; tienes un video que lleve el control de ingreso de empleado por medio de un huellero ? te agradezco tu ayuda.
buenas otra vez, una pregunta para introducir en los textbox que te aparezca el calendario para no tener que introducir fechas a mano sabrias decirme en que tutorial si lo tienes creado. gracias y eres un moustro de esto un saludo
Hola sus tutoriales son excelentes y me han ayudado mucho, yo soy nueva en esto de visual basic y estoy terminando un proyecto que tengo que entregar el miercoles, necesito su ayuda en algo de los combobox.Lo que necesito es que no se pueda escribir nada en el combobox, osea que el usuario solo pueda ingresar lo que esta en la lista desplegable del combobox (porque usted sabe que al darle clic sobre el combobox se puede escribir cualquier cosa aunque no este en la lista desplegable), le agradeceria si me pasa el codigo, me imagino que ha de ser facil pero aun estoy aprendiendo, aprovechando tambien necesito un boton dentro de un useform, que al darle clic me sume los valores o numeros que estan en otros cuadros de texto dentro del mismo useform, en otras palabras seria como la funcion suma solo que dentro de un useform y activada mediante un boton. espero me responda pronto, de antemano muchas gracias y saludos.
Daigoro Tunnertoy Quizá es tarde para responderte. Lo siento pero he estado ausente y no he visto los comentarios hasta hoy. En las propiedades del combobox, limita las entradas a la lista.
Hola, me encanto tu video, me ha servido mucho solo que tengo un problema,
lo que sucede es que necesito ocultar las hojas que alimentan a los combobox y al hacerlo ya no me aparecen en el 2do. ¿Habrá la manera de solucionar este problema?
De antemano gracias
Buenas tardes Maestro, gracias a este tutorial he realizado un gran avance en mi proyecto de facturación. He creado una macro de volcado de factura para insertar valores de un Albaran o factura en el caso de que un cliente me los pidas y me gustaría saber como desactivo el rango de selección en el evento SelctionChange de la hoja activa considerado que en el momento en que se vuelcan los datos se activa el formulario, gracias de antemano y saludos.
MUY BUENO EL TUTO! muchas gracias por subirlo, hay algo que no entiendo, es sobre la variable lista_corresp , hay que darle algun nombre en administrador de nombres? a alguna fila , no se cual? favor responder que no v el total del userform.
Quedo atento muchas gracias de ante mano.
Hola Anaxandridas. Por favor me podrías decir en qué video aparece la creacion de este formulario ?
Como siempre, gracias por compartir tus conocimientos con los demás
ENRY:)
Hola Maestro,
He podido solucionar el problema, pero de otra forma.
Fijo un rango de comienzo (para factura, albarán, presupuesto, ..) y creo un bucle do loop y lo activo para cada linea de concepto (modelo, producto, ...) desde un commandbutton. Sin embargo creo que es más elegante como tú lo haces por lo que agradecería tus comentarios.
Saludos.
La eficacia es lo importante y lo concreto. Si funciona y te vale... ¿a quien le importa la elegancia, que es un concepto abstracto?
Amigo puedo preguntar algo?
Pues mira, yo quiero hacer un programa como este y quiero hacer una interface como la que tu has enseñado a hacer en fotoshop, pero yo no lo se manejar muy bien, entonces mi pregunta es si en Corel Draw X5 tambien lo puedo diseñar y podre obtener el mismo resultado?
Gracias por los vídeos!
Hola... Tengo un problema con combobox como hago para que aparezca una lista de productos q se encuentran en la misma hoja de excel del formulario... Gracias
Hola muy bueno tus tutoriales. Necesito hacer las cosas inversamente , tengo un moton de facturas y quiero cargarlas en un excel para poder hacer un seguimiento de gasto por proveedor, producto, seccion, etc. que video turotia me recomendarias?
muchas gracias por tus aportes.
Pues no se. Lo más parecido que tengo yo, es el video de Excel Fácil - Control Gastos Anuales, no es para eso, pero puedes reemplazar las hojas de los meses, por los proveedores, y en cada hoja poner sus movimientos, y luego llevarlos a la principal, haciendo sumatorios.
Solo es una idea, pero puede que te sirva
***** lo acabo de ver. pero me gustaria hacerlo mediante formularios, voy a tratar de agarrar varias macros y te cuento como me fue . muchas gracias.
Hola de nuevo maestro,
Aquí estoy en el siguiente video con otro pequeño problema y es al pasar los datos del combo a la factura, albarán, presupuesto o lo que sea. Clicko en la celda correspondiente para que emerja el formulario, acepto y todo va bien pero al clickar en la celda inferior para que vuelva a salir el formulario y cargar otro concepto, se me ha seleccionado la celda B2 y los datos los empieza a ingresar en esa celda (como celda 0,0) y me los añade por extensión a las adyacentes. No sé como solucionar este inconveniente.
Quiero desde éste correo agradecerte el enorme valor de estos tutoriales. Sigue así amigo.
Saludos
Revisa en qué celda posicionas el cursor en el código del botón aceptar. Tienes que darle una referencia de partida. Probablemente te falte la línea [Range "A1". Select], o similar.
Pero si fijo una celda o rango en el botón aceptar, cada vez que ingrese un dato machacará a la primera (a la que he fijado el rango). Sigo con el mismo problema. te vuelvo a pedir otra vez ayuda. Gracias.
si tengo todos los datos en la misma hoja, como relacionas el combobox asociado a la columna A, con el combobox columna B. Gracias
hola Anaxandridas, alguna ves ya no recuerdo cuando fue (hace mucho ya), sobre un problema que tenia, ya que los productos que vendo son ropa y un prenda puede tener varios colores, modelos y tallas, lo logre solucionar haciendo cmbcategorías y cmbprendas, es decir categorias jardines colegios universidades etc, y prendas pues la prenda y su talla, logre resumirlo en 2 combobox, en fin muchas gracias por tu ayuda__ ahora quisiera saber si me puedes ayudar para que al introducir algunas letras del texto que busco el combobox reconozca esas letras y me despliegue las palabras con dicha letras?. muchísimas gracias por estos importantes vídeos.
Hola Maestro. Tengo un pequeño problema, he creado un formulario como el tuyo con los mismos botones, los mismos combobox y textbox, que coinciden con los registros de la factura. Los nombres están bien asignados, pero al cargar las tarifas de los proveedores (sheets (L).Name), en el primer registro me sale bien, pero en el segundo me ha duplicado los nombre (hojas de tarifas), en el tercer registro me lo vuelve a hacer. He intentado sustituir "to sheets.count" por el nº de hoja final de proveedores, pero hace lo mismo. Los códigos los he repasado una y otra vez y están OK. No sé que falla. Agradecería tus comentarios. Saludos.
Si no funciona, es evidente que no está igual. Los nombres de las hojas pueden ser los que quieras, por eso no se especifica . No te confundas con nombres de rangos, aquí no se usan. Asegúrate de que el bucle For... Next está bien. Es decir, que la primera hoja desde la que cuenta es correcta (min 10:25), que no has insertado hojas ni hay hojas ocultas.
Hola no logro encontrar el tutorial en donde explicas como desde un desplegable te trae todos los demas datos. eso que haces al principio de este video, si me pasas el link te agradeceria.
MAESTRO, YA ENCONTRE COMO PONER EL DATO Y QUE APAREZCA,AHORA SURGUIO UN DETALLE....
elegante.......
Maestro perdón por la molestia, pero no se usar el photoshop, podria usted pasarme las imágenes de los botones si fuera tan amable? desde ya muchas gracias por otro genial tutorial.
Está en la descripción del vídeo Programación en Excel Cómo hacer un formulario de diseño avanzado
buenas hermanos, despues de haber hecho el userform no me esta cargando la marca me queda el formulario en blanco ayudame por favor
Amigo anaxandridas100 puede hacer un ejemplo de Presupuesto con costos unitarios para la construcción
MAESTRO, HAY UNA FORMA PARA QUE EN EL CUADRO COMBINADO TECLEE UN DIGITO Y ME DESPLIEGUE TODOS LOS DATOS QUE COMIENZAN CON ESE DIGITO, ASI COMO EN EXCEL NORMAL QUE SELE PONE FILTRO Y EN BUSCAR DATO LO DESPLIEGA Y DE AHI SE SELECCIONA EL DATO QUE NECESITAMOS, ESPERO PUEDA AYUDARME, GRACIAS
hola. muchas gracias por tus tutoriales son realmente buenos.....
Quisiera saber si para empresas que tiene productos varios de una misma marca. como por ejemplo una tienda de ropa.. el caso seria asi: MARCA:1-Ropa Colegial, 2-Ropa Empresarial, 3-Ropa Industrial. De estas 3 se desprende otras listas asi.. en la ropa colegial, habrían los diferentes colegios,(que se manejen en la empresa) y a su ves del colegio ej: Colegio Jesús el Rey (es un ejemplo) , tiene ropa de educación física y otra elegante o de diario (es decir el tipo de prenda), y ademas femenino y masculino y ademas las diferentes tallas (mas o menos 8 tallas) . ¿Como se haría para que los combobox dependientes se filtren de acuerdo a esa categoría, escogiendo un rango especifico?
Lo más simple, efectivo y seguro,es colocar cada marca en una hoja, y luego codificar con prefijos distintivos diferentes para cada tipo.
la "x" es para que ponga el nombre de mis hojas??
y si tengo más de 1 tengo que poner el nombre de todas??
Perdon por tantas preguntas n_n
QUE TAL BUEN DIA COMO HACERLE SI EN LUGAR DE QUE SEAN HOJAS DONDE HAGA LA BUSQUEDA, SOLO USAR RANGOS?? ME PODRIAS AYUDAR POR FAVOR LO QUE ESTOY HACIENDO ES PASAR A FORMULARIOS UN ARCHIVO QUE MANEJABA EN CELDAS (EN ESTE CASO NO TENIA PROBLEMAS CON HACERLO DEPENDIENTE PERO EN FORMULARIO NO LO SE HACER)
Hola me di cuenta que si quiero hacerlo con 50 marcas distintas tendria que agregar 50 hojas de excel; esto lo podria resumir si en una sola hoja coloco los datos de las 50 marcas (osea las 50 hojas de excel que tendria que crear lo haga solo en una hoja de excel)...puedes ayudarme..
HOLA ANEXANDRIDAS TENGO DOS ERRORES QUE ME SALE, UNO EN ESTE PROCEDIMIENTO Private Sub ComboMARCA_Enter()
On Error Resume Next
ComboMODELO.Clear
For l = 10 To Sheets.Count
ComboMARCA.AddItem Sheets(l).Name
Next
End Sub
CUANDO EJECUTO ESTE CODIGO ME SALE UN MENSAJE DICIENDO FALTA DECLARAR VARIABLE AYUDAME PORFAVOR SOLO ME FALRA ESTE PASO Y TERMINO GRACIAS
Buenas Noches, excelente trabajo sus videos, tengo una pregunta talvez me puede ayudar con un tema: como puedo hacer que la celda tenga un texto en el que indique ingrese nombres pero que eso texto solo se informativo y que al ingresar texto se cambie y al borrar la celda vuelva ha aparecer el texo de informativo
Buenas! me gustaría que vieras los "sistemas" que cree en vba me interesa mucho tener una opinión profesional al respecto. Los videos están en mi canal. Saludos! Gracias!
En las facturas avanzadas, método mejorado y siguientes. Sólo dando click en la fila que quieres rellenar aparece el formulario. Es lo más práctico. Si nó, ¿cómo sabe el programa cuándo tiene que parar de rellenar filas, sin añadir más código y complicarlo?
El combobx es un control activex, que pone el dato exactamente en la hoja en la que se sitúa este. Está diseñado específicamente para eso. Para hacer lo que quieres, deberías usar una hoja intermedia, asignar el valor del combobox a una variable y luego volcarlo a la hoja base de datos.
estimado, como puedo hacer q un combobox tome la información de una hoja parámetro y cuando sea seleccionada la deje en otra hoja de calculo base de datos, en esta formula la esta dejando en la misma hoja de parámetros.
Private Sub ComboBox1_Enter()
On Error Resume Next
Application.ScreenUpdating = False
ComboBox10.Clear
lista_corresp = ComboBox1.List(ComboBox1.ListIndex)
Sheets("parametros").Select
Range("Q2").Select
Do While Not IsEmpty(ActiveCell)
ComboBox1.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
end sub
El comboBox pone el dato en la hoja en la que se encuentra. Estab específicamente diseñado para eso. Para hacer lo que tú quieres debes usarlo en una hoja intermedia, asignar el Valor del combo a una variable, y luego volcarlo la base de datos.
Reciba un cordial saludo. Excelentes videos profesor. Una pregunta como hace para realizar las presentaciones al comienzo de los Videos...
Las realizo con Adobe After Effects. Tengo algunos tutoriales en mi canal.
gracias. master
hola que tal Anaxandridas100, tengo una duda, como le hago para abrir el formulario con tan solo un click en la celda, asi como lo tienes en la celda de marca, o en que video de los que tienes lo puedo ver....
+Ruben Rios Aunque en este vídeo aparece en el minuto 25:56, la primera vez que lo expliqué, más extensamente, está en esta lista de reproducción: ua-cam.com/play/PLOD1MFxGA_qHN1jU8LPqMOJpAU6vD9Ejc.html, en los vídeos 2 y 4
anaxandridas he puesto los codigos y todo al igual que tu, pero no se me carga el textbox de la marca ni nada ayudame por favor
Hola Estimado,
Hay manera de que un userform me envie a outlook alarmas para recordarme una fecha en particular?
HERMANO CREO QUE EL PROBLEMA ES QUE NO HE PODIDO VER O SE TE HA PASADO DECIR EN LAS PROPIEDADES DE LOS COMBOBOXES EN EL ROWSOURCE QUE SE DEBE PONER PARA QUE TE CARGE LA MARCA Y EL CONTENIDO DEL MODELO
Hola me quisiera pedirte un favor bueno yo ya tengo una lista despegable pero quiero que con el comboBox la ejecute a ese lista osea que el comboBox la mueva desde VBa
Por favor auyudame lo lo agradezco mucho
Gracias espero tu ayuda
MAESTRO, COMO LE INDICO A LA SUBRUTINA CUANDO EN UN TEXBOX VOY A PONER UN DATO MANUAL. GRACIAS
AYUDA HE creado un formulario donde con un ComboBox el usuario podrá elegir que gráfico quiere exportar [ los gráficos están en hojas distintas, uno por hoja ], ahí voy.
Quiero que al darle click a un commandButton la macro vaya a la hoja seleccionada en el ComboBox copie el gráfico, cree un nuevo libro en Excel, pegue la gráfica como imagen y guarde el archivo en el escritorio con un nombre especifico.
Le agradecería mucho su colaboración, es para un trabajo de la universidad.
Gracias
Hola Maestro! Lo molesto con un problemita que me desorienta. No me devuelve ninguna lista el combobox MARCA, y el combobox modelo me muestra lo que tengo en la celda A2 del formulario PRESUPUESTO. O sea que no me esta leyendo las hojas donde tengo las listas. Verifique los codigos y aparentemente estan acorde a lo explicado. Donde podra estar la falla? Si no es mucha molestia le quisiera pasar como lo tengo confeccionado a ver si le erre en algo. Muchas gracias!!
PD: en mi caso lo que quiero hacer es en vez de seleccionar por MARCAS, hacerlo por RUBROS. Userform con 2 combobox( 1 para rubros y otro para articulos) y un textbox para precios.
Private Sub ComboBoxRUBRO_Enter()
On Error Resume Next
ComboBoxARTICULO.Clear
For l = 11 To Sheets.Count
ComboBoxARTICULO.AddItem Sheets(l).Name
Next
End Sub
Private Sub ComboBoxARTICULO_Change()
On Error Resume Next
Cells(ComboBoxARTICULO.ListIndex + 2, 1).Select '2,1 : 2=fila 1=columna
TextBoxPRECIO = ActiveCell.Offset(0, 3) & "$"
End Sub
Private Sub ComboBoxARTICULO_Enter()
On Error Resume Next
Application.ScreenUpdating = False
ComboBoxARTICULO.Clear
lista_corresp = ComboBoxRUBRO.List(ComboBoxRUBRO.ListIndex)
Sheets(lista_corresp).Select
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ComboBoxARTICULO.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Private Sub CommandButtonACEPTAR_Click()
Sheets("Presupuesto").Select
ActiveCell = ComboBoxARTICULO
ActiveCell.Offset(0, 2) = CDbl(TextBoxPRECIO)
ComboBoxRUBRO.Clear
ComboBoxARTICULO.Clear
TextBoxPRECIO = ""
UserForm7.Hide
End Sub
Private Sub CommandButtonCANCELAR_Click()
ComboBoxRUBRO.Clear
ComboBoxARTICULO.Clear
TextBoxPRECIO = ""
UserForm7.Hide
Range("c8").Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a17:a31")) Is Nothing Then
UserForm7.Show
End If
Sheets("Presupuesto").Activate
End Sub
**********************************************************************************************************
Gracias x esta ayuda y todas las anteriores!!!!!!!
Lo aprecio muchisimo!!
Hola mister Anaxandridas100, tengo un problema y es con el segundo combobox. Cuando se selecciona un item del primer y segundo combobox va perfecto pero por ejemplo, si me he equivocado al seleccionar la marca que yo no queria (primer combobox), ya una vez que he seleccionado el modelo, al abrir la lista de las marcas nuevamente esta se agranda y se repite con las mismas marcas. Y si repito el proceso, la lista se repite y se agranda cada vez mas. ¿Como hago para que no se repita y se agrande la lista?.
Parece que te falta la línea que descarga de memoria. (Unload userform).
***** Otra cosa es que tambien al intentar cambiar el modelo a otro modelo, por la misma razon que antes que me he equivocado y no era el modelo que queria pinchar (todo esto sin cerrar el cuadro del userform), este no me cambia los valores como el precio sino que mantiene el del anterior producto que yo no queria y que habia seleccionado por error.
maestro, me podra apoyar en como aparecer automaticamente el cuadro de dialogo en el siguiente renglon para ingresar mas articulos al momento de dar aceptar. gracias
Sigue viendo los tutpriales....
buenas amigo, a ver si me pueden ayudar, estoy haciendo un formulario en un userform en el cual el precio de un material especifico varia dependiendo del tipo de cliente osea si el tipo de cliente es al mayor o detal me varia el precio del material, en tal caso me gustaría aprender a hacer esta programación si conocen algún tutorial en donde esto aparezca se lo agradeceria
Que tal! buen día.
En mi excel no me reconoce Combobox_ Enter, si existe combobox change, etc. pero enter no lo encuentro.
Es 2013, sabe cómo migró? o estoy buscando mal.
Saludos
+El Meme Estás buscando mal. Abre VB, abre el form, haz doble click sobre el combo, y aparece el evento change por defecto. E na ventana arriba a la derecha abre el desplegable y busca Enter.
Estoy viendo desde el numero 1 del playlist y en este video me he quedado estancado, ya que se me hace imposible ver en que linea del codigo se da la instruccion que al dar clic en la hoja salga el userform. ya que quisiera hacerlo por medio de un boton o bien hacer 2 userform una para que busque por codigo o otra por descripcion, pero al dar clic abajo de codigo en la hoja que me lanze la de codigo. Muchas gracias por los videos
***** me respondo a mi mismo, ya he encontrado el linea es en el worksheet_SelectionChange.. ahorita lo empezare hacer si de repente a alguien le interesa compartire el codigo para buscar por descripcion o por codigo de articulo.
Muchisimas gracias por tus videos. Sabes que quiero hacer un programa en donde 3 combobox sean dependientes. En el primero por ejemplo quiero que aparezcan a b c d. Si presiono a, quiero que el combobox 2 me muestra a1 a2 a3 y a4. Me podrias ayudar? He buscado por varios lados y no encuentro solucion a mi problema
+1991titanium Debes elaborar tres listas de manera que cada item de la 1ª sea encabezado de las 2as. y así sucesivamente. Por ejemplo: Combo1= Paises (una hoja por cada país, como las marcas en este vídeo)en el evento enter carga los nombres de las hojas y aparecerán los países.
Combo2= Provincias (1 tabla de ciudades con las provincias por encabezado), en evento change del Combo1 carga el rango de encabezados y aparecerán las provincias.
Combo3= Ciudades (en el evento change del Combo2 carga la columna del encabezado elegido) y en éste ya tienes las ciudades.
+1991titanium Y aquí la respuesta en vídeo: ua-cam.com/video/Vfztjrm_OpY/v-deo.html
+Anaxandridas100 Muchas gracias por darte el tiempo de responder. Me ha servido de mucho tu ayuda.
maestro, no localizo el tutorial me podra apoyar en cual lo explica, gracias
Cuando voy a INSERTAR y elijo la opción combobox (controles activex) me aparece deshabilitado... qué hago...???
+Sebastian Orihuela Asegúrate de que el userform está seleccionado. Major usa la caja de herramientas de controles ActiveX
SALUDOS
TENDRAS ALGUN EJEMPLO SIMILAR, EN VEZ DE VINCULAR 2 COMOBOBOX SEA UN TEXTBOX Y ME DESPLIEGUE UNA LISTA EN UN COMBOBOX, LO QUE ESTOY INTENTANDO HACER ES QUE APARTIR DE UN REACTIVO PREPARAR UNA SOLUCION PERO EL REACTIVO TIENE MAS DE UN LOTE ENTONCES, YA LOGRE HACER QUE ME PONGO EL NOMBRE DEL REACTIVO EN EL TEXTBOX AHORA LO QUE QUIERO ES QUE EN UN COMBOBOX, ME DESPLIGUE LOS LOTES QUE TENGO DE ESE REACTIVO, ES SIMILAR A LO QUE PONES EN TU VIDEO PERO NO LOGRO VINCULAR UN TEXTBOX CON UN COMBOBOX
GRACIAS QUE TENGAS UN EXCELENTE DIA...
johan ibq Pasa el contenido del textbox a una variable, y realiza una búsqueda, un filtrado o un additem al combobox con esa variable como criterio o comdición.
muchas gracias!! por tu ayuda
Gracias por la ayuda, pero sigue sin responder el 2do combobox
Sigue sin cargarme los datos
Private Sub CbPresentación1_Enter()
On Error Resume Next
Application.ScreenUpdating = False
CbPresentación1.Clear
Sheets("Hoja[x]").Visible = True
lista_corresp = CbIngredientes1.List(CbIngredientes1.ListIndex)
Sheets(lista_corresp).Select
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
CbPresentación1.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Hoja[x]").Visible = False
End Sub
exelentes tutoriales muy bien explicados, me gustaria saber si puedes hacer un tutorial con un sistema de inventario como el que aparece en este enlacePrograma Inventario Realizado en excel .muchas gracias ,y felicitaciones por compartir tus conocimientos
Hola
buen tutorial me podri mandr el link o el nombre del video donde muestra como mostrar el userform cuando le dio click a una celda por favor
EL LINK: Programación en Excel 2010 Cómo hacer un calendario emergente
También te recomiendo que veas los tutoriales anteriores de la lista de Facturas Avanzadas
No puedes dejar los pictures de ese cuadro que sale con combo box
el video No1 de Programación en Excel. Combobox dependientes.Manejo avanzado controles ActiveX donde lo puedo ver. Gracias
+Jonathan Sologaistoa MIra esta lista: ua-cam.com/play/PLOD1MFxGA_qHN1jU8LPqMOJpAU6vD9Ejc.html
Hola, buenos dias. he visto varios videos y son excelentes.SOY NOVATO DE HACE 3 SEMANAS. Estoy atascados en dos temas. Uno es ordenar un COMBOBOX con NIF. La hoja de datos donde extrae combobox, contiene NOMBRE, NIF, POBLACIO, etc hasta 17 variables. Podría ordenar esta hoja si fuera posible automaticamente cada vez que entro DATOS NUEVOS y me saliese en el combobox al momento. o sino arreglame la rutina de abajo por favor.
he visto esta rutina en internet pero me ordena en el combobox mis hojas no los nif !!!!!!!!!!!!!!!
en ComboBox2 pongo mi ComboBoxNIFEMP
La hoja donde estas los datos es LISTA EMPRESAS
Private Sub UserForm_Activate()
Dim iL1, iL2, OK
ComboBox2.Clear
Hoja1.Activate ....... YO HE PUESTO ESTO.......Sheets("LISTA EMPRESAS").Select Y Range("B2").Select ...columna NIF
For x = 1 To Sheets.Count ...... ESTO POR LO QUE HE VISTO EN TUS VIDEOS CUENTAS LAS HOJAS HASTA LA ULTIMA
OK = False
ComboBox2.AddItem ""
For iL1 = 0 To ComboBox2.ListCount - 2
If Not Sheets(x).Name > ComboBox2.List(iL1, 0) Then
For iL2 = ComboBox2.ListCount - 2 To iL1 Step -1
ComboBox2.List(iL2 + 1, 0) = ComboBox2.List(iL2, 0)
Next iL2
OK = True
ComboBox2.List(iL1, 0) = Sheets(x).Name
iL1 = ComboBox2.ListCount - 2
Exit For
End If
Next iL1
If OK = False Then
ComboBox2.List(ComboBox2.ListCount - 1, 0) = Sheets(x).Name
End If
Next x
End Sub
El otro tema es la barra herramientas he añadido con la rutina (COPIADA INTERNET) de abajo COMPLEMENTOS y se abre un Menu Empresa y luego otro Datos Empresa. Hasta aquí bien.. Aquí en DATOS EMPRESA quiero abrir un USERFORM , COMO PUEDO HACERLO
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
.Controls("Menu Empresa").Delete
On Error GoTo 0
End With
End Sub
Private Sub Workbook_Open()
Dim objPopUp As CommandBarPopup
Dim objBtn As CommandBarButton
With Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
.Controls("Menu Empresa").Delete
On Error GoTo 0
Set objPopUp = .Controls.Add( _
Type:=msoControlPopup, _
before:=.Controls.Count, _
temporary:=True)
End With
objPopUp.Caption = "Menu Empresa"
Set objBtn = objPopUp.Controls.Add
With objBtn
.Caption = "Datos Empresa"
.OnAction = "nombre marco " ....ABRE SOLO MACROS! Y QUIERO ABRIR USERFORM. no funciona UserForm1.Show
Load UserForm1
.Style = msoButtonCaption
End With
ATENTAMENTE. GRACIAS MISTER.
+Xavier Boada
Segundo tema solucionado, poner en................. .OnAction = "Macro1"
y creo la macro
Sub Macro1()
DATOEMPRESA.Show ....el nombre de mi userform
End Sub
Si sabes como hacerlo directo sin hacer macro bien, sinó creo me servirá. Gracias
+Xavier Boada
Dame tu opinión,
Lo solcioné todo con esta rutina, ordena todas las columnas a partir de la segunda (NIF), pero tengo que salir y volver ejecutar:
Sub Macro1()
DATOEMPRESA.Show
ActiveWorkbook.Worksheets("LISTA EMPRESAS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LISTA EMPRESAS").Sort.SortFields.Add Key:=Range("B1:B999"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("LISTA EMPRESAS").Sort
.SetRange Range("A2:Z999")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
+Xavier Boada Vaya lçio macho. Simplemente en el botón aceptar o en el evento change del combobox pones:
ActiveWorkbook.Worksheets("LISTA EMPRESAS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LISTA EMPRESAS").Sort.SortFields.Add Key:=Range( _
"B2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("LISTA EMPRESAS").Sort
.SetRange Range("B3:[??]")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ok gracias mister
Y EN ESTE OTRO TAMBIEN Private Sub ComboMODELO_Enter()
On Error Resume Next
Application.ScreenUpdating = False
ComboMODELO.Clear
lista_corresp = ComboMARCA.List(ComboMARCA.ListIndex)
Sheets("lista_corresp").Select
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
ComboMODELO.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
End Sub
ME SALE FALTA DECLARA VARIABLE CREO QUE ES POR EL LISTA_CORRESP Y NOCE COMO DECLARAR ESA VARIABLE AYUDAME POR FAVOR SOLO ME FALTA ESE PASO MUCHAS GRACIAS DE ANTEMANO
Como ya habrás comprobado, con el pdf que dejé en la descripción, el código está correcto. El error que te dá es típico de cuando se tiene habilitada la opción exigir declaración de variable (Option Explicit). Ve a PROGRAMADOR => Visual Basic, en la venyana de Visual ve al menú Opciones y en la pestaña "Editor" desmarca la casilla requerir declaración de variables. O simplemete decláralas (Hay tutoriales al respecto). Esto no le pasa a un usuario avanzado...
***** si habia desactivado las casilla de declarar variables
ya encontre mi error esta aqui l
ista_corresp = ComboMARCA.List(ComboMARCA.ListIndex)
Sheets("lista_corresp").Select lista corresp lo puse entre comillas igualñ de todas maneras gracias y estan bueno los tutoriales
alexpiero16
Pues es verdad, se me habia pasado,y te prometo que lo miré. A veses pasa. Tienes una cosa delante de las narices, y no te das cuenta.
¡Enhorabuena por descubrilrlo!, eso significa que estás aprovechando y aprendiendo más cada vez.
DISCULPA TANTO MOLESTAR ANAXANDRIDAS100 PERO NECESITO AYUDA NO HE PODIDO CARGAR LA MARCA Y NO PUEDO CONTINUAR CON TUS VIDEOS AYUDAME PO FAVOR
Hola Anaxandridas ejecute tu codigo y me manda el siguiente error
ActiveCell.Offset(0, 4) = CDbl(TextBoxPrecio) error 94 uso no valido de null
te agradecer me puedas orientar el mensaje de error que me manda
Por algún motivo el textbox tiene valor cero, y por eso da error
anaxandrida100 me podrias dar tu correo para enviarte mi ejercicio para que me lo corrigas que quiero continuar por favor