Saltar al contenido

Lázaro

Miembros
  • Contador de contenido

    615
  • Unido

  • Última visita

  • Days Won

    3

Sobre Lázaro

  • Rango
    Miembro

Visitantes recientes del perfil

499 visitas de perfil
  1. Saludos @Gerson Pineda Disculpa la demora en contestar pero he estado muy liado en las últimas 24 horas. Muchas Gracias mi hermano, no solo por haberme resuelto este Tema, sino por la paciencia que una vez más has tenido hacia conmigo, creo que si de un principio hubiese sido más exacto en mi necesidad, pues sin duda la solución hubiese sido más rápida, de sobra sabes que jamás haría de forma premeditada algo así, en muchas ocasiones he expresado mis valoraciones sobre este Foro, es mas y aunque parezca dantesco, gracias a este Foro, encontré años atrás un lugar donde cobijarme de la situación tan extrema que tuve. Quiero de paso y para no crear otro post agradecer a todas las personas que se interesaron en responderme, es decir @Jamel @Leopoldo Blancas y @Antoni, que me disculpen si no fui lo suficientemente claro en el Tema. Te agradezco una vez más mi hermano @Gerson Pineda Tema Solucionado. Lázaro.
  2. Pues si @Gerson Pineda ya estaban delimitadas, lo que como vi Hoja1- Hoja2 y tu habías puesto los nombres de “uno”-“dos”, pues di por hecho que no estaban separadas. Ahora viene la pregunta del Millón. Existe alguna diferencia entre Eliminar un Rango y Borrar un Rango?, el porqué te hago la pregunta, es que al pasar a unos de mis Archivos Originales las dos Macros pues resulta que me afecta todas las formulas que están a su alrededor y por lo que he podido observar, supongo que al eliminar los Rangos, pues los Rangos de las Formulas también se reducen o se eliminan. Ya veré que puedo hacer al respeto. Necesito no dar por Solucionado el Tema hasta tanto analice que puedo hacer. Un Abrazo mi Hermano. Lázaro
  3. Hola @Gerson Pineda Si que están separadas pero se refieren al borrado de las columnas completas, no a los Rangos en especifico, es decir no tienen la limitación de las Filas (10-81) o (8-90).
  4. Saludos @Gerson Pineda Pues nada, le he dedicado toda la mañana a intentar separar la otra macros, pero sin éxito, lo más cerca que he estado es que me funciona pero me coge la Fila 8 pero No el 90, he realizado no sé cuantas combinaciones en esta instrucción que supongo sea donde hay que variar o quitar, fila = VBA.IIf(.Name = "Uno", 10, 8): filas = VBA.IIf(.Name = "Uno", 81, 90). Ya me estoy planteando cambiar los archivos originales para intentar depender de una sola Macros. Un Abrazo mi hermano. Lázaro. P/D- Bueno veo que me has escrito, creo que fue casi al mismo tiempo casi, ahora lo miro.
  5. Saludos @Gerson Pineda Al final cogí “un cinco”, así decimos en Cuba cuando necesitamos descansar un poco y me di a la tarea de intentar resolver lo de separar las Macros, no ha sido del todo fructífero, pero al menos he podido adaptar (sin usar un Razonamiento Lógico de Excel) la de la Hoja1, supongo que le deben de sobrar cosas, no obstante me da los resultados esperados. Sub EliminarRangoUltimasColumnas_GP1() '************ by Gerson Pineda ************ '************ 12/Dic/2018 ************ For Each vh In Array("Hoja1") With Sheets(vh) fila = VBA.IIf(.Name = "Hoja1", 10, 8): filas = VBA.IIf(.Name = "Hoja1", 81, 90) Dim Rango As Range: Dim vcm As Range: Set Rango = .Cells(fila, 1).EntireRow vnm = Application.Max(Rango) Set vcm = Rango.EntireRow.Find(vnm, , xlValues, xlWhole, , xlPrevious) If Not vcm Is Nothing Then _ .Range(vcm.Offset(1).Address, _ .Range(vcm.Offset(1).Address).End(xlToRight)).Offset(-1).Resize(filas).Delete xlToLeft End With Next Set Rango = Nothing: Set vcm = Nothing End Sub La otra de la Hoja2 se me resiste y no logro dar con la solución, quizás sea que son más de la una de la madrugada y el cuerpo se lo siente. Un Abrazo mi hermano. Lázaro.
  6. Saludos @Gerson Pineda Mi hermano Gerson, la verdad que ya hoy estoy a tope, no doy para mas, al menos he revisado el Archivo y todo parece indicar que es lo que necesito, pero siempre comente de dos Macros ya que en varios de mis Archivos solo hay un Rango a Borrar y en otros hasta tres, de ahí que necesitaba las dos Macros por separado, pero sin que te quepa duda alguna, mañana lo reviso e intentare estudiarlo para ver si logro entender tu Valioso Aporte. Un Fortísimo Abrazo. Lázaro
  7. Hola Señor Permítame que le increpe en sus palabras, quizás Usted tenga muchos conocimientos sobre Excel y tenga un Vocabulario muy Exacto sobre Tema, pero le puedo asegurar y sin tener la información a mano, que en este Foro mas 75% de las persona que preguntamos es precisamente por no tener los conocimientos necesarios y mucho menos manejamos las palabras exactas cuando abrimos un Tema, de lo contario igual este Grandísimo Foro no existiera. No obstante en mi primer post coloque este comentario en la Hoja1, donde especifico el rango que necesito Borrar, en ningún momento pinte de Amarillo las dos columnas completas, solo las que necesito. es decir en este caso es el Rango CG10:CH90, las he pintado de Amarillo. En la Hoja2 coloque este comentario, especificando cual era el Rango que necesitaba Borrar. es decir en este caso es el Rango CG10:CZ97 las he pintado de Amarillo. Quizás lo más exacto era haber puesto el Ultimo Rango Ocupado, pero puede Usted tener la seguridad que para nada mi intención era NO dar la Información Exacta. Discrepo de sus palabras Ofensivas para mí y mucho, que he querido cambiar ahora la jugada, pues No Señor Leopoldo Blancas se EQUIVOCA Y MUCHO, además en su post anterior su primera frase fue “ya me perdí”, quizás no leyó lo suficientemente bien y se perdió. Saludos Lázaro
  8. Saludos @Gerson Pineda Al menos pude resolver uno de los problemas, en la Hoja2 tengo intercalado celdas con fechas en la Fila 10 y no me daba los resultados, pero con un simple cambio ya está resuelto y he puesto que busque el máximo en la Fila 8. Lo que continúa con problemas, es que me sigue borrando las columnas completas y yo necesito que solo sea en la Hoja1 hasta la Fila 90 y en la Hoja2 hasta la Fila 97, es decir en la Hoja1 solo 81 Filas y en la Hoja2 solo 90 Filas. He creado la Hoja3 desde donde controlo las dos Macros y he colocado unos consecutivos en ambas Hojas para que te percates de que se borran todas las Filas. Un Abrazo mi hermano. Lázaro Borrar ultimas columnas_GP(2).rar
  9. Saludos @Gerson Pineda Muchas Gracias, creo que hay un detalle pero no logro definirlo bien, ahora estoy muy liado, en cuanto tenga un tiempo intentare resolverlo y te comento. Agradecido mi hermano. Un Abrazo Lázaro
  10. Hola @Gerson Pineda Aqui esta la parte del texto que no entiendo porque no me dejo subir. La verdad que si he solicitado ayuda para este Tema, es por no tener que ir a cada Hoja Seleccionando y borrando las Ultimas equis Columnas Ocupadas. Quizás si por favor me añades dentro de la propia Macros que trabaje en una determinada Hoja y el rango especifico a trabajar en alguno de los casos, pues me pueda servir. Un Abrazo Lázaro.
  11. Bueno No se porque no subio el Archivo. Incluso en la respuesta a @Gerson Pineda no me dejo editar una parte que me falto. Borrar Últimas Antoni.rar
  12. Saludos @Antoni Tu Aporte si hace lo que necesito, pero hay dos detalles muy imprescindible, uno es poder colocar la instrucción en la Macros para que trabaje solo en una Hoja determinada, (en te caso Hoja1) y ya para la Hoja2 será lo mismo, solo cambiando esa instrucción a Hoja2 y el otro detalle es que al borrar hasta la columna donde está el valor escogido, limpia además todas las filas, la idea es en el caso de la Hoja1 solo borre entre las Filas 10 y 90, en el caso de la Hoja2 entre las Filas 10 y 97, he colocado en el ejemplo algunos valores de 1 y 2 fuera de los Rango para que te percates. En el Archivo que subo existe la Hoja3 que es desde donde necesito controlar las Macros, la idea es no tener que pinchar en cada una de las Hojas para lograr el objetivo. Un Abrazo. Lázaro.
  13. Saludos @Gerson Pineda La verdad que si he solicitado ayuda para este Tema, es por no tener que ir a cada Hoja Seleccionando y borrando las Ultimas equis Columnas Ocupadas. Un Abrazo Lázaro.
  14. Saludos @Antoni y @Gerson Pineda Mañana a primera hora reviso sus Aportes, la verdad que hoy ya no meda para más la cabeza. Un Abrazo para Ambos. Lázaro.
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.