Jump to content

audy

Pro Member
  • Content Count

    8
  • Joined

  • Last visited

  • Country

    Spain

About audy

  • Rank
    Newbie
  • Birthday 09/20/1965

Contact Methods

  • Skype
    audy5510@gmail.com
  • Facebook
    audy5510@gmail.com

Profile information

  • Gender
    Hombre
  • Localización:
    Burlada, Navarra
  • Interests
    Excel y vba

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0
  1. Gracias Antoni, no habia caido en que podia tratar las fechas como numeros, me habia encerrado en los formatos y no veia mas alla, asi si sale como yo quiero. Repito, gracias 😁😁 Solucionado!!!
  2. ok, se trata de informacion sensible y personal, pero bueno la hago algun retoque para que se disimule... En la hoja Datos, están las opciones para hacer el filtro, y en editor de vba está la macro para hacerlo. Si encontrais el fallo, decirme por favor que estoy haciendo mal, gracias cuentas de casa2020copia.xlsm
  3. Hola chicos, tengo un problema con una macro que tengo hecha y creo que está bien, pero no acaba de funcionar, os cuento lo que quiero: esa macro hace un filtro avanzado de una tabla, con unos criterios y pone el resultado en otra parte de la hoja. Entre los criterios, hay dos campos de fecha, para limitar los registros entre una fecha minima y otra maxima. Pues bien, a pesar de que en la tabla original, los datos del campo fecha los tengo bien puestos, por ejemplo, 03/05/2020, cuando en el criterio pongo >=03/05/2020 para incluir esa fecha de la tabla, en el resultado se me pone la fecha 05/03/2020, y me sale el resultado conforme a esa fecha, y ese no es el resultado que quiero tener. He pensado que cada vez que se ejecute la accion, se formatee la columna de la fecha al formato adecuado, o sea "dd/mm/yyyy", pero no funciona, cuando se introduce el dato de la fecha al campo del criterio, lo convierto al formato fecha con CDate, y ya no se que hacer mas para que el resultado de la fecha me salga con el formato dd/mm/yyyy. Os traigo aqui la macro: Range("Datos[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Range("AA1:AE2"), CopyToRange:=Range("AK1:AR1"), Unique:=False ActiveWindow.ScrollColumn = 37 Range("AK1").Select y aqui la macro previa para poner los valores en la parte de los criterios: fechaI = consultadatos.TextBoxfechaI.Value fechaF = consultadatos.TextBoxfechaF.Value cuenta = consultadatos.ComboBoxcuentas.Value movi = consultadatos.ComboBoxmovi.Value concepto = consultadatos.ComboBoxconceptos.Value Unload consultadatos Worksheets("Datos").Visible = True Worksheets("Datos").Activate Worksheets("Datos").Range("AA2:AE2").Clear 'borra el rango de criterios anterior Worksheets("Datos").Range("AK1:AR1").CurrentRegion.Clear 'borra el filtro anterior Worksheets("Datos").Range("B2", Range("B2").End(xlDown)).NumberFormat = "dd/mm/yyyy" 'formateo la columna B del campo Fecha, aunque no es necesario pues los datos ya son correctos Worksheets("Datos").Range("AA2").Value = CDate(Range("AA2")) 'tambien convierto a tipo fecha el criterio FechaI, aunque tampoco es necesario Worksheets("Datos").Range("AA2").Value = ">=" & fechaI Worksheets("Datos").Range("AA2").NumberFormat = "dd/mm/yyyy" 'y formateo al tipo adecuado el campo de criterios de la fechaI Worksheets("Datos").Range("AB2").Value = CDate(Range("AB2")) 'tambien convierto a tipo fecha el criterio FechaF Worksheets("Datos").Range("AB2").Value = "<=" & fechaF Worksheets("Datos").Range("AB2").NumberFormat = "dd/mm/yyyy" Worksheets("Datos").Range("AC2").Value = cuenta Worksheets("Datos").Range("AD2").Value = movi Worksheets("Datos").Range("AE2").Value = concepto
  4. Después de mucho darle vueltas y probar muchas cosas, he conseguido resolver el problema. El error estaba en los criterios, que habia un espacio donde no tenía que haberlo. Problema resuelto, gracias a todos...
  5. Marcelo uuuufff, es una hoja muy compleja, no consigo entender, si nos das algun dato mas, podriamos ayudarte En la funcion si, quitale las comillas al numero 1, pues los numeros no llevan comillas en excel
  6. audy

    No suma

    Hola Marcelo, si te das cuenta, los numeros están en formato General, conviertelos a Numero con 0 decimales y en teoria se te debe arreglar. Si no es así, copia esta subrutina en el editor vba y ejecutala con F5.(acuerdate de que el cursor este entre el sub del principio y el end sub del final)Para entrar al editor de vba pulsa ALT+F11 Sub funcionespacios() Dim rango As Range Set rango = Worksheets("Hoja 1").Range("D8:M35") rango.Select For Each rango In Selection rango.Value = VBA.Trim(rango.Value) Next rango End Sub Si te pierdes en vba y no te atreves a hacerlo asi, con la funcion Espacios, en cada celda, se soluciona el problema
  7. Hola Gabriel, gracias por atender mis dudas y dedicarme un poco de tu tiempo, debo pedirte perdon por no haber expuesto bien los rangos donde tengo la informacion. Esta distribuida de la siguiente manera: Tabla de datos: "A1:H485" La tabla se llama "Datos" Criterios: "AA1:AE2" Filtro a aplicar: "AK1:AR1" Si te das cuenta, al ir al editor de vba, veras como en el modulo filtrar, y la macro filtrar, tengo los datos correctos, o eso creo, ya no se que pensar. De nuevo, te pido disculpas por no haberte dado bien los datos Gracias
  8. Hola compañeros del foro ayudaexcel, estoy encantado de pertenecer a este foro, y he leido algunos comentarios, preguntas y respuestas que habeis escrito y me parece fantastico todo, yo hasta ahora no habia necesitado preguntar nada porque todavia no me considero un experto en excel, aun me queda mucho por aprender, y espero aprenderlo aqui...pero ahora si me ha surgido una pregunta que no he obtenido contestacion satisfactoria... me manejo mas o menos con vba y comprendo mas o menos bien las funciones basicas y medias de la hoja de calculo, incluso me estoy atreviendo con lo avanzado, pero ya os digo, aun tengo mucho que aprender. Pero me estoy volviendo loco con el filtro avanzado, aunque se como hacerlo, y se como hacerlo con vba, tengo una hoja con mis cuentas personales, y he intentado por todos los medios hacer un filtro avanzado, no consigo hacer que se muestre ni un solo resultado. Incluso he hecho otros filtros avanzados en otras hojas anteriormente, y me han salido bien, y ahora, haciendo lo mismo, no lo consigo y es algo que me está volviendo loco. No puedo enviaros la tabla sobre la que se basa el filtro porque es informacion personal sensible, pero os adjunto los encabezados de la tabla, los encabezados de los criterios, y el resultado debe mostrarse en otro lugar de la misma hoja donde estan estos. Y no se muestra nada!!! Estoy atascado aqui, y no se ya por donde salir, por favor, echarme una manita, igual me dais una pista que me permita salir del atolladero. Gracias copia de prueba.xlsm
×
×
  • Create New...

Important Information

Privacy Policy