Jump to content

Gerson Pineda

Administrators
  • Content Count

    11,710
  • Joined

  • Last visited

  • Days Won

    330

Everything posted by Gerson Pineda

  1. Hola Siendo que fue lo que sospeche, lo haría un poco mas corto Function Vbuscar(Valor As Range, Matriz As Range, Columna As Range) Application.Volatile Set c = Matriz.Find(Columna): Col = c.Column - 1 v = Application.VLookup(Valor, Matriz, Col, 0) Vbuscar = v: Set Col = Nothing End Function Lo que si debes hacer, es seleccionar los encabezados de la matriz, esto servirá para obtener la columna Modo de uso: =Vbuscar(A3,$B$21:$P$34,$K$21) Saludos UDF Vbuscar VBA_GP.zip
  2. @Leopoldo Blancas ese foro también lo administramos, pero por costos de servidor, no se pudo sostener mas Y si el aporte, no es mío, no vaya ser, que otros se "ofendan" @logroastur es de lo mejor que he visto, pasar por aquí Saludos
  3. Hola ¿Que es lo que según tu, no hace Buscarv pero si una UDF? ¿Necesitas una UDF solo para reemplazar una función nativa? Intuyo que solo necesitas escribir un criterio de busqueda y seleccionar un rango, ¿estoy bien? Saludos
  4. Hola Pues es sencillo, solo agrega una condición antes de llamar la macro que guarda el pdf Algo asi if c4 <> 0 then call guardarpdf Saludos
  5. Hola @gonza Como puedes notar, ya tienes variedad de ayudas, así es éste foro!, de hecho hay muchos temas similares al tuyo con diferente programación Y esperando no haber llegado tarde a este concierto (de aportes) , te adjunto el mío Por hoy no se me antojó usar ni matrices ni diccionario Saludos a todos! Agrupar datos VBA_GP.zip
  6. Hola nick En realidad no necesitas macro de evento para correr la otra macro, puedes usar el evento change del combobox Tal que: Private Sub ComboBox1_Change() If Range("A2") > 0 And Range("A2") <> "" Then "tumacro" End Sub Saludos a ambos
  7. Posiblemente en algún lugar estas seleccionando esa hoja [.select], asegúrate de eliminar esa linea Por ejemplo tienes esto Hoja3.Visible = True Hoja3.Select Mejor trabajarlo con With [y no utilices "Visible"] with hoja3 ..... todo tu precedimiento .... end with También elimina "activesheet" pero deja el punto y antes de los Range pon el punto ".Range...." En resumen lee bastante sobre algunos objetos como Range, Worksheet y el controlador With Saludos
  8. Visor Como ya debes saber, el tratamiento con las horas es diferente, como también para la búsqueda Te adjunto de nuevo el archivo, ahora mas completo y funcionando con cada criterio de búsqueda [incluyendo horas] Saludos Formulario Multi Buscador Vba_GP.zip
  9. Lo que debes hacer es subir un archivo, con ejemplos mas apegados a la realidad y no estar suponiendo, como lo haces aqui Saludos a todos!
  10. Es que no debes correr, es la percepción que dejas, con tus respuestas, porque en el tema original [igual que este], te explique, que debes tener dos botones, uno para cada libro Es sencillo, libro1 con boton para activar/abrir el libro2; en libro2 boton para activar el libro1 Saludos
  11. A simple vista, es mejor que utilices un combobox, con el solo escoges la opción [con el evento click por ejemplo], y el color de fondo cambiara Algo así With TextBox22 .BackStyle = 1 If .Text = "Libre" Then .BackColor = &HFFFF& If .Text = "Ocupada" Then .BackColor = &HFF& If .Text = "Reservada" Then .BackColor = &HFF00& End With Como buena practica, nombra cada objeto, en este caso, puedes poner como nombre: "Estado" al textbox22 Saludos
  12. En este tema, parece que habías quedado satisfecho Para abrir un libro, debes tener abierto por lo menos uno, una vez abierto el primero, puedes desde ahí, abrir los que sean, y ya abiertos, se puede navegar entre varios... Si te ha quedado mas claro, busca por el foro, como abrir un libro con macro o vba Saludos
  13. Hola Jose Para poder trabajar con cada hoja, en cada tabla inserte una fila en blanco [es buena practica dejar los encabezados en una sola celda]; antes de preguntar si tienes dudas, evalúa y analiza suficientemente la programación VBA Revisa el adjunto y ya nos comentaras algo... Saludos Filtrar multiples hojas_GP.zip
  14. Te adjunto, el archivo ya trabajando completamente [hice unos arreglos] Saludos Buscar con combobox y llenar en listbox_GP.zip
  15. Pues si andas un poco dormido 😅 Y sin UDF? tal que =SUSTITUIR(EXTRAE(A1,3,4),0,"",1) Igual ésta, también se puede pasar a UDF😅 Saludos a ambos!
  16. @Visor En realidad no necesitarías usar Case, para realizar ese procedimiento [es mas, en el combobox1 tenias la clave], y bueno no se, ni como decírtelo, algunas lineas de códigos tuyas asustan 😅, pero ese es otro tema, limpie un poco; con los elementos únicos hay varias formas, pero el que tienes es un clásico y yo los adoro 😇 Mira el adjunto [hay mas que mejorar pero....] y nos comentas Saludos a todos! Buscar con combobox_GP.zip
  17. Y encima de todo, después le escribes a otro colaborador diciendo esto: Ahora resulta que también eres desmemorizado, que no sabes porque te hago el reclamo, que valentía la tuya! [te estaré siguiendo]
  18. Hola Visor Asi rapidito, no estas usando bien la funcion de Case y ademas la variable debe ser ComboBox2, no un texto Revisa la ayuda de como usar Select Case, por aqui https://excelyvba.com/select-case-en-vba/ Saludos
  19. Por lo menos conmigo te equivocas, yo no he sido "intolerante" como dices tu... ¿A caso es malo recomendarlas? ¿Cuanto se debe esperar [de parte de los que las usamos]? Eso si, soy de los que me gusta hacer reflexionar al usuario, sin tanta palabrería, si no siendo mas pragmático, ya luego tendrán tiempo o no, de conocer mas de cerca las cosas técnicas de Excel Saludos
  20. Y esto que ahora, Excel es mucho mas facil que antes Ahora cualquiera puede aprender bien y en menos tiempo, pero claro eso depende de "actitud" Saludos
  21. Hola a todos También puedes usar una de las clásicas [mi separador es la coma ","] =ESPACIOS(DERECHA(SUSTITUIR(A2," ",REPETIR(" ",90)),90)) Saludos
  22. Es indistinto que sea el numero o la letra, ambas puedes usarlas Mira asi: Set cel = Hoja1.Cells.Find("Gato", , , xlWhole) If Not cel Is Nothing Then vmc = VBA.Split(cel.Address, "$")(1) Set cell = Nothing Saludos
  23. @Silvia porque te ríes?😨 ahhh ya se, no las utilizas verdad 🤩
  24. Porque la comunidad Exceleana se resiste a la TABLA estructurada!... no entiendo, desde el 2007, fueron incorporadas y muchos ni cuenta se dan!😥 Saludos a todos
×
×
  • Create New...

Important Information

Privacy Policy