Jump to content

Enid86

Members
  • Content Count

    38
  • Joined

  • Last visited

  • Country

    Spain

Everything posted by Enid86

  1. Buenas!!! A ver si me podéis ayudar, por favor! Tenía el siguiente código que funcionaba con pocos datos: busca.Offset(2, -13).Select With ActiveCell .Resize(Rows.Count - .Row, Columns.Count - .Column).Clear End With Pero al ponerlo en práctica real, me aparece error por recursos insuficientes en Excel 😭 ¿Esto hay forma de arreglarlo o no es posible? Muchas gracias.
  2. Buenos días! A ver si alguien puede ayudarme... 😅 Dada la celda activa, quiero seleccionar todas las celdas hacia abajo y hacia la derecha, hasta las últimas celdas con datos, aunque haya celdas vacías entre medias, y borrar su contenido. He probado de mil maneras y no doy con la buena..... Creo que lo que más se acerca a lo que quiero es esto, aunque no lo estoy aplicando correctamente porque me da error en 'Range' de '_Objeto' global: busca.Offset(filatm + 1, -13).Select Dim abajo As Range, derecha As Range abajo = Range(ActiveCell, Range(ActiveCell).End(xlDown).SpecialCells(xlCellTypeLastCell)).Select derecha = Range(ActiveCell, Range(ActiveCell).End(xlToRight).SpecialCells(xlCellTypeLastCell)).Select Range(abajo, derecha).Clear No sé qué estoy poniendo mal... Gracias de antemano! 😊
  3. MUCHAS GRACIAS, ANTONI! 😄 Perdona que haya tardado tanto en revisar la respuesta, es que estuve muy entretenida con el torneo de Carlsen Invitational.. 😅 Parece que me funciona perfectamente, solo omití el .Select, porque lo quería para almacenar el rango en una variable. Ya cuando termine con todo este proyecto lo subiré completo, para que cotilleéis si os apetece... Gracias porque siempre estás al pie del cañón... 😊🌺 Buen domingo!
  4. Buenas! Porque el de Antoni todavía no me había dado tiempo a probarlo! He estado un poco desconectada, pero ya lo estoy retomando.. A ver qué cositas interesantes me habéis dejado por aquiiiií..... 🤓
  5. En realidad no hay ningún patrón ni orden... Habrá C y D mezcladas, desordenadas y no hay que modificar su posición.. Pero gracias, igualmente.
  6. Buenas tardes! A ver si alguien sabe ayudarme... 🤓 Si tenemos una columna, cuyas celdas siempre contienen "C" o "D", ¿cómo puedo localizar la última "C" de la columna? Si: - La última "C" no tiene por qué coincidir con la última fila. - No podemos saber cuántas filas, ni cuántas "C" o "D" habrá. Es decir, que hay que evaluar todas las celdas de una columna, cuyo número de filas es desconocido y seleccionar la celda cuyo valor sea C y no haya más celdas después con C, aunque sí puede haber anteriores celdas con ese mismo valor. Gracias!
  7. ¡Buenas noches, Gerson! Ya he estudiado el código y me ha encantado, he visto un montón de cosas en docs.microsoft que no conocía... Al principio un poco complicado, con tanta variable y tanto rango, pero creo que lo he entendido. Voy a ver si lo amplío para el resto de condiciones que quiero que se apliquen y ya os contaré! 😊🌺
  8. Gracias Gerson! Obviamente no pretendo que lo hagáis vosotros, lo que quería era saber por qué el Código que yo he escrito da ese error, si según lo que he visto por YouTube, el Código está correcto... Respecto al código que tú me habías pasado, como le he dado a ejecutar y no funcionaba, pues no me he parado a mirarlo, pero si dices que lo mire en detalle, por algo será.. (Qué misterioso..jejeje). Seguiré tú consejo, a ver qué me encuentro. 😉 Gracias! 😊
  9. Hola Rolano! 😄 Fue un error al reducir el archivo a una pequeña muestra... En el original, la columna A es la de los vehículos, como muy bien apuntas. Poniendo BASE 1, me sale directamente el error de Subíndice sin llegar a enviar ningún dato. Puedes explicar un poco para qué debo poner Option Base 1, por favor? A qué afecta eso? Porque pensaba que la gente que lo ponía era por comodidad al trabajar arrays, no porque afectase luego a las instrucciones, funciones, métodos o lo que se a... Muchas gracias!! 😊 P.D: Subo el fichero correcto: MACROMod.xlsm
  10. Hola Gerson!! 😊 Muchas gracias, he puesto tu código en el módulo 2 y me da error de Subíndice fuera de intervalo tras enviar la primera línea de datos. El tema está en que cuando los camiones que aparecen en GS pertenecen al listado de Calidad, en ese caso se añaden dos columnas nuevas que no están en GS. Cuando los camiones están en el listado de camiones, en ese caso no se añaden esas dos columnas, sólo lo que aparece en GS. Y lo que me gustaría entender es por qué si todos los camiones de ambos listados tienen una hoja con su nombre para pegar los datos, por qué sale el error de Subíndice fuera del intervalo cuando finaliza el proceso... Entiendo que ese error sólo debería aparecer si en GS y en el listado de camiones hubiese datos del 1111, por ejemplo, y al ir a pegar esos datos, no existe hoja llamada 1111, pero no es el caso y sin embargo, sale el error... A ver si sois capaces de averiguar el motivo.. ADJUNTO EL FICHERO: MACROMod.xlsm
  11. Al fin.....😅 Las Macros aparecen descritas en la hoja "Macros". Las descripciones que no están coloreadas, es porque están sin hacer todavía. Me interesaría que me ayudáseis, si sabéis/podéis, en dos cosas fundamentales: 1-Módulos 3 y 5: Ver si conocéis un código mejor que el que he utilizado para pasar los datos que aparecen en la pestaña GS, al resto de hojas, según el listado "listacamionesKm" (módulo 3) y listado "listacalidad"(módulo 5). Aunque he comprobado que los datos se pasan correctamente, siempre da un error al final del proceso de "Subíndice fuera de rango" y no entiendo el motivo, porque todos los elementos en listacalidad y listacamiones, tienen una hoja creada. 2 -Módulos 3 y 5: Ver la forma de cumplimentar una matriz bidimensional con los datos de "listacamioneskms" que después se pueda comparar con la variable "vehículo" sin que dé error de tipos al usar If UBound(Filter(listacalidad, vehiculo)) >= 0 Then . Bueno, y cualquier mejora de código, aunque trate otros aspectos, será bienvenida y aprovechada, porque esto del VBA me encanta y escuchando críticas es como se aprende mejor... Así que no sintáis lástima y sed todo lo duros que queráis...😄 Mil gracias y que empiece la fiesta! 🤓🤓 MACROMODELO(web) - copia.xlsm
  12. No he conseguido que funcione, seguramente por características del código ya creado....Pero muchas gracias igualmente. 😊
  13. A ver si mañana tengo tiempo de probarlo y te cuento, Toldeman. Gracias! 😄
  14. Pues es que el fichero tiene mogollón de hojas, código a medias..... Ahora mismo, todavía es un caos. Cuando lo tenga apañado, ya lo subo y os pregunto lo que no he sido capaz de resolver ni si quiera con vuestros consejos y así podéis iluminarme y divertiros también un rato, claro.. Os dejo criticar y que os llevéis las manos a la cabeza por falta de eficiencia del código y tal y tal...(miedo me da...😅 ) jajajajajajajaja... 😊🌸
  15. Te lo agradezco, pero los sigue almacenando como Double... parece que sólo me funciona poniendo el apóstrofe delante del número... qué pena... Como siga así hoy, me veo comiendo tarta de chocolate para quitarme las penas.... He avanzado poquísimo.. Pero cuando lo tenga terminado, lo subiré para que veáis la pedazo locura que estoy inventando... xDDDDD. Si se te ocurre algo más Toldeman, soy todo OJOS...😉
  16. HE DADO CON UNA SOLUCIÓN CUTREEEE....🤣😉. Poniendo un ' delante del listado de todos los números que se almacenarán en la matriz.. Pero si dais con una solución más técnica... pues os agradezco si la compartis, porque esto me parece muy chapucero... Gracias!
  17. Dejando solo Dim v, me almacena los datos como tipo Double... ¿Cómo puedo hacer entonces para que los almacene como tipo String?
  18. Si pongo que quiero que sea de tipo String me da error porque no coinciden los tipos....
  19. Tengo otra cuestión respecto a esta solución... Yo quería que en la matriz todo fuese de tipo String, pero los datos de la primera columna me los almacena como tipo Double, porque son números.... ¿Hay alguna forma de forzar para que se almacenen como String?
  20. Muchas gracias a todos. Si no es por el fichero de Toldeman, no hubiese visto a qué te referías Gerson... Qué simple.. y yo volviéndome loca con los bucles. Al fin......😄 🌺😊
×
×
  • Create New...

Important Information

Privacy Policy