Jump to content

ramonvar

Members
  • Content Count

    159
  • Joined

  • Last visited

About ramonvar

  • Rank
    Advanced Member
  • Birthday 08/31/1961

Recent Profile Visitors

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

  1. Hola buen día Gerson y Avalencia Desde ya agradecido por su tiempo, es muy interesante conocer las opiniones de Uds, eso nos hace ir conociendo un poco mas de esta fabulosa herramienta. Podemos dar por encerrado. Abrazo
  2. Buenas Tardes a todos los del Foro Nuevamente queriendo consultar a ver si me dan un auxilio, para los expertos sé que no sería nada, como hacer para que el texto de esta macro me salga en negritas en el Status Bar? Esta macro la tengo en un Módulo, me gustaría que al abrir mi fichero el texto "AUTOR: RAMON ARISTIDES VARGAS", salga en Negritas Sub Auto_Open() ' Auto_Open Macro Dim Dautor As String Dautor = "AUTOR: RAMON ARISTIDES VARGAS" Application.StatusBar = Dautor ActiveWorkbook.Save End Sub De todos modos adjunto fichero FORO - 2019.xlsm
  3. Excelente JSDJSD, la verdad, y sin querer justificar, es que ese archivo lo exporto de un sistema, y me lo toma así, conforme uno va dando de Alta.. pero en fin, ahora si ya podrás descansar, está excelente y podemos sí darlo por encerrado. Mi agradecimiento por todo este tiempo que has dedicado por darme este apoyo Abrazo
  4. Hola JSDJSD Ahora lo subo, con la disculpa del caso FORO - 2019 (Prueba3).xlsm
  5. Buenas Tarde JSDJSD, ya cumple lo solicitado, lo que me llamó la atención es que en caso que, en la fila 19 de la columna "E", contenga una fecha no extrae el mes correspondiente en la columna "F"..., esto te comento porque podría comenzar en es fila con formato Ej. 02/03/2019.. Nada mas faltaría ajustar ese detalle, nuevamente va mis agradecimientos por tu tiempo
  6. Buen día JSDJSD Estuve probando tu última ayuda y ya me falta muy poco, tal vez sea por no hacerme entender correctamente, pero te envío en anexo la situación del fichero, lo que sucede es que me está eliminando los contenidos ya existente en la columna "F", lo cual no debería de suceder, solamente pretendo extraer el mes de la columna "E" y pasarla a la "F"..., los valores existente en la columna "F", deben de permanecer.. Abrazo FORO - 2019.xlsm
  7. Si asi mismo es, no recordaba de quien era la macro, pero recuerdo que era para extraer el año.. intente adecuarlo a mis necesidades pero por lo ya explicado arriba es que pido una mano.. lo estuve probando y no me resuelve, a las celdas vacías si lo iniciamos en la celda E19, polo rellena con el valor 1, sin embargo eso no debería de ocurrir.. Espero nuevamente la ayuda de Uds los maestros.
  8. Con la disculpa del Caso, JSDJSD, probe la macro, y luego la revise, y tendría que haberlo hecho lo contrario Porque al revisarle me percaté que se cambió el valor del rango de la celda E, de E19 a E26, pero en realidad las celdas con fecha podría comenzar en la celda E19, y así hasta el final del informe que no se cuantas filas tendría. No me resuelve en síntesis esta solución inicial
  9. JSDJSD, Está a la perfección, gracias por tu tiempo.. abrazo Podemos dar por cerrado este tema
  10. Buenas Tarde a Todos los del Foro Mi necesidad es la siguiente.: 1- En la columna "E", tengo algunas celdas vacías y otras con fechas 2- Las celdas vacías no deben lógicamente ser consideradas, solo las que están llenas con algunas fechas, estas inclusive no necesariamente están en orden 3- De las celdas con fechas, solo necesito sacar el mes, pero en la columna "F" 4- A cada tanto este fichero es actualizado, por lo tanto tendrá celdas vacías y algunas celdas con fechas, nuevamente Tengo esta macro que encontré en este foro y trate de adaptarlo a mis necesidades, pero como mi conocimiento es prácticamente nada en términos de macro solicito una mano de los expertos, para que me funcione de acuerdo a lo explicado arriba esta es la macro encontrada Sub ObtenerMes_GP() Dim Rango As Range: Set Rango = Range("E19", Range("E19").End(xlDown)) With Rango vr = .Cells(1, 1).Address(0, 0) .Offset(, 1) = "=text( " & vr & ", ""mm"" )" .Offset(, 1).Value = .Offset(, 1).Value End With Set Rango = Nothing End Sub Adjunto Archivo FORO - 2019.xlsm
  11. Estimados HAPLOX y FRANKPALMA, le agradezco a los dos por la paciencia y por sus valiosos tiempo en atender mi inquietud, les comento que lo mio ya esta solucionado y funciona al adaptar la macro..mi necesidad es un podo diferente a la de FRANKPALMA, pero muy similar..nuevamente mis agradecimiento a Uds.. Abrazo..
  12. Estimado FRANKPALMA Podrías orientarme donde o en qué línea tengo que poner esto?.....On Error GoTo, para solucionar el error que mencioné mas arriba?.. sobre el error que se produce cuando se cancela la selección del archivo en el explorador de windows
  13. Hola Haplox, me refiero a que cuando ejecutas la macro, abre el explorador, y si, en ese instante le das cancelar en lugar de seleccionar el archivo, da error en esta línea ...Set MyFile = Workbooks.Open(fichero) 'Acá da el error....si está declarado así mismo ..Dim MyFile As WorkBook...a inicio de la macro.. también está bien escrito ...fichero.. Una consulta..aprovechando..cuales líneas de la macro debería de desactivar si quiero que siempre me sobre escriba todos los datos, sin que me vaya creando tablas?... se da un fenómeno para mi..mismo que elimine los Datos copiados, y volviendo a ejecutar me lo copia al final de la última fila en que me copió por primera vez, mismo que elimine lo anteriormente copiado, espero haberme explicado.. Gracias por la paciencia
  14. Hola buenas..disculpen que entre en este tema, Haplox solo una consulta, es que lo adapte a mis planillas y funciona, solo un error.. Cuando pasamos a buscar el archivo "origen", y lo cancelamos antes de ubicar da un mensaje "error 1004", 'Buscamos el fichero y lo declaramos como libro origen fichero = Application.GetOpenFilename("Archivos Excel (*.xl*), *.xl*", , "Elegir fichero a consolidar") Set MyFile = Workbooks.Open(fichero) 'Acá da el error Gracias y Disculpen, es que mi necesidad es prácticamente igual al de FRANKPALMA
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png