Jump to content

Visor

Members
  • Content Count

    1,127
  • Joined

  • Last visited

  • Days Won

    2

About Visor

  • Rank
    Advanced Member

Converted

  • Campos Array

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Si gracias Gerson, efectivamente asi sí funcionó. Me gustaría pedirte un último detalle al respecto, pues cuando la hoja esta vacía o el criterio que busco no existe (osea no esta el dato), la macro se me inhibe y debo cerrar el programa oblgadamente. Allí me faltaría un código en caso de no exitir datos Como seria en ese caso?? ya he intentado varias cosas
  2. Ok Gracias Gerson, de ese modo no lo intenté, lo use estando la hoja filtrada, voy a quitar manualmente todas las filas ocultas y probaré todo desde el inicio tal como lo indicas.
  3. Si,.. Sub QuitarFiltro() Application.ScreenUpdating = False Fila = Hoja6.Range("A" & Rows.Count).End(xlUp).Row LimpiarCbx criterios Hoja6.Range("A4:R" & Fila).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Hoja6.Range("A1:R2"), Unique:=False Rows.EntireRow.Hidden = False Application.ScreenUpdating = True End Sub
  4. Asi mis esta hecho Private Sub CmdFiltrar_Click() Fila = Hoja6.Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False criterios Hoja6.Range("A4:R" & Fila).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Hoja6.Range("A1:R2"), Unique:=False cargaListbox QuitarFiltro Application.ScreenUpdating = True End Sub mejor animate en abrir el archivo,..
  5. Pues no funciona, Mejor espero a que te animes en abrir el archivo,...
  6. Saludos Al parecer no abres el archivo subido Hoja6.Range("A4:R" & ultimaFila).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Hoja6.Range("A1:R2"), Unique:=False
  7. Gracias Gerson, he usado ese codigo y otros que tu mismo propones en otros temas, pero no funciona. 'Primer intento Hoja6.Range("$A$4:$R$60").AutoFilter 'Field:=8 'Segundo intento 'For Each Hoja In Array("OCT") ' If Sheets(Hoja).AutoFilterMode Then Sheets(Hoja).AutoFilterMode = 0 'Next No he usado una forma de filtración como autofiltro, es otro modo de filtrar supongo que por eso no funciona.
  8. Saludos amigos del foro Supongo que las soluciones que se vayan teniendo es util compartirlas Efectivamente he solucionado en gran medida el tema, sin embargo la solucion no la he logrado como lo habia planteado al inicio. Lo he cambiado mucho al planteo inicial y para ello he usado la filtración, funciona usando cualquiera de los combobox o de varios a la vez sin tener que usar los operadores And u Or. Usualmente vemos la filtracion usando textbox pero aqui el planteo es usando combobox. Asi que subo el archivo para que lo vean. No obstante, hay una falla que no logro arreglar pues luego de filtrar en la Base de datos es obvio que se debe dejar como estaba inicialmente, es decir, sin filtrar. para ello he puesto un codigo para quitar filtro pero esto me funciona parcialmente, pues tengo datos hasta la fila 56 y al quitar el filtro, solo se quita hasta la fila 47. Por favor alguien me podria ayudar a resolver esto??, Agradezco anticipadamente su apoyo Haga click aquí para Descargar el archivo
  9. A mi me gusto tu tema porque el modo en que te solucionaron la filtracion me intereso. parte 1 Como sugerencia encontre que no creo que siempre te sea la misma variable que quieras buscar y mostrar en el listbox. La mayoria de temeas similares a eso lo hacen buscando en textbox, que pasaria si usas combobox la palabra que buscas al fin que la palabra completa es lo que interesa. parte 1 Con respecto a lo que necesitas una vuelta doble seria click en el listbox se observa en un textbox y a este le le aplica un encontrar con Find en la hoja3 de tu libro excel Private Sub ListBox1_Click(ByVal Cancel As MSForms.ReturnBoolean) With Me.ListBox1 Me.TextBox1 = .List(.ListIndex, 0) End With End Sub Te pongo el archivo de la parte 1, segun te menciono https://drive.google.com/open?id=12asTr538FxgLonIl8jjw9KQKhShfTJv1
  10. No se si lo tengo claro pero al cambiarte el index supongo que debes aplicar un find para encontrar la clave en la hoja que corresponde a la fila especifica y asi proceder
  11. Supongo que es porque te cambia el index en el listbox y con eso no coincide con lo de la hoja
  12. Tengo Excel 2013 en un win10 64bits procesador x64
  13. Lo importante es que en mi tema hubo interes y apoyo. Al recuperar al archivo (sobre todo el codigo), ya pude pasarlo a xlsm y continuar con mi aplicacion,.....como dije al ejecutar el codigo de guardar en pdf me sucedio aquello, mientras que mi archivo de programa no podia abrirlo. Saudos y gracias
  14. Saludos amigos del foro, he realizado varias pruebas en las que la intencion de guardar una hoja cualquiera de un libro excel me da resultados un poco dudosos. A mi parecer no guarda la hoja sino que guarda todo el libro y lo que hace es mostrar en el pdf la hoja actual o la que nos interesa. Es decir si podemos transformar el archivo pdf en xls quiza mostraria todas las hojas en realidad. Me gustaria saber si lo que indico es cierto o es falso. En el codigo mas simplificado que he podido construir con lo encontrado en la red sucede lo siguiente: el archvo que contiene la macro donde ejecuto el guardado en pdf de la hoja2 o tambien hoja actual en el codigo,..tiene 184Kb mientras que cuando crea el archivo pdf éste llega a tener 228Kb Lo que me hace pensar que alli en realidad esta todo el archivo y solo hace es mostrar la hoja seleccionada para guardar como pdf agradezco sus comentarios este es el codigo mas simplificado del que menciono, el mismo que toma el nombre del archivo del texto contenido en la celda B3 Sub CmdGuardarPDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=ThisWorkbook.Path & "\" & [B3], Quality:=xlQualityStandard End Sub
  15. 😊 la cara más feliz Gracias Amigo En realidad envié el codigo orignal, al que le cambie .pdf en lugar de .xls. Es decir quiero enviar la Hoja2 como PDF. Tendré que buscar el código apropiado para guardar como pdf en la carpeta que seleccione. Pero con la solucion que me has dado he recuperado inmediatamente mi archivo junto con todo el trababo de codigo Te quedo eternamente agradecido,
×
×
  • Create New...

Important Information

Privacy Policy