Jump to content

Max2005

Members
  • Content Count

    202
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by Max2005

  1. Hola Visor, Una solución más, pero si no te da resultado, estoy de acuerdo con el comentario de Marco Antonio Sub Macro1() Dim cf As String Sheets("FORMATOF").Select cf = Sheets("DB_OFICIOSE").Range("E" & Fila & "").Value cf = Format(cf, "[$-C0A]dd-mmm-yy;@") Range("A1").Value = Sheets("Remitente").Range("I2").Value & ", " & cf End Sub[/CODE] Saludos !!!
  2. Hola Visor, Prueba con esta solución Sheets("FORMATOF").Select Range("A1").Value = Worksheets("Remitente").Range("I2").Value & ", " & Worksheets("BD_OFICIOSE").Format(Range("E" & Fila, "[$-C0A]dd-mmm-yy;@"))[/CODE] Comentas Mucha Suerte Saludos !!!
  3. Hola Julio Arteaga, Te anexo una propuesta, y me dices si es lo que buscabas Mucha Suerte Saludos !!! Insertar Columan al final_Max.zip
  4. Hola Visor, Por lo mencionas, no veo el caso de creear una macro que no funcione, o que funcione solo una vez, pero yo crearia una copia del libro y despues eliminaria la que tiene las macros (kill.me) Saludos!!!
  5. Hola jaloux26, Te anexo modificación, he colocado en la columna E, un código de transferencia y cada vez que ejecutes la macro aparecerá un OK, para identificar que ya se transfirió, así cuando pegues los nuevos solo transferirá estos, por favor comentas si es lo que necesitas Saludos !!! INFORME SEMANAL_Max (1).xls
  6. Hola jaloux26, Te anexo una propuesta, espero sea lo que buscabas Mucha Suerte Saludos !!! INFORME SEMANAL_Max.xls
  7. Hola EDGAR S.H. Prueba con esta solución Saludos !!! ejercicio_Max.xls
  8. Excelente !!! Un Gusto haberte ayudado Saludos !!!
  9. Hola Enrique_chuc Prueba eliminando los saltos de pagina de tu archivo Mucha Suerte Saludos !!!
  10. Hola fgranada, Bienvenido al foro, debes de leer las normas del foro, pues para poder ayudarte sube tus archivos Saludos !!!
  11. Hola EDGAR S.H. Te anexo la corrección, por favor me indicas si es lo que necesitas Mucha Suerte Saludos !!! ejercicio_Max.xls
  12. Hola home can, Te anexo una propuesta y comenta si es lo que buscabas, solo cambias el dato en la celda "A2" Mucha Suerte Saludos !!! hoja_bd_Max.zip
  13. Excelente franciscojose, Gracias por su comentario Maestro [uSER=188524]@Marco Antonio[/uSER] Un Gusto haberte podido ayudar Saludos a Todos !!!
  14. Bien, te anexo la última modificación, solo deshabilite el msgbox, revísalo y coméntanos Saludos !!! Copia de PRUEBA (2) (1).xls
  15. Hola Visor, Pues no se si sea tu máquina pero ejecute los proceso y no se muestran lentos, aún sin la propuesta de [uSER=163374]@Diego9019[/uSER] ... Y el código lo deberás de poner donde al ejecutar el proceso se hace lento Saludos !!!
  16. Hola Visor, la aplicación que te indica Diego se coloca así : Sub TuSubrutina () application.screenupdate=False TU CODIGO application.screenupdate=True End Sub[/CODE] Mucha Suerte Saludos !!!
  17. Hola jaimecruz, Puedes revisar el adjunto espero sea lo que buscabas ... Mucha Suerte Saludos !!! BuscarvConHoras_Max.zip
  18. Hola Nuevamente, Mira es lo único que se me ocurrió, espero te sirva, en la columna E, puse una columna alterna y esta indica si ya se traspaso o no, por lo que al postear nuevas solo traspasara esta y no las que ya había posteado, para probarlo quita las x de la columna E y ejecuta la macro Mucha Suerte Saludos !!! PRUEBA (2).xls
  19. Hola franciscojose, Te anexo una propuesta, "aunque no dudaría que el Maestro [uSER=188524]@Marco Antonio[/uSER]" tuviera una solución más adecuada Mucha Suerte Saludos !!! PRUEBA (2).xls
  20. Hola home can, Te anexo una propuesta, espero sea lo que buscabas, por favor comentas. (NOTA : la formula es matricial, por lo que si entras a ella, deberás de posicionarte al principio del formula y dar CTRL + MAY + ENTER) Mucha Suerte Saludos !!! ejemplo_Max.xls
  21. Hola a Todos ... Creo que la mejor recompensa que puede uno recibir en este y/o cualquier otro FORO, es la satisfacción de haber podido ayudar a alguien que esta empezando a trabajar con Excel o cualquier otro Programa o software, yo en lo personal estoy de poco tiempo aquí pero mi única intención es poder ayudar a alguien y APRENDER de todos ustedes .... Muchas Gracias !!! Saludos
  22. Hola home can, Modifique el código en tu hoja actual y ya funciona, te anexo el archivo, por favor comentas ... Saludos !!! ejemplo2_Max.zip
  23. Hola [uSER=187503]@juan[/uSER] Reyes Martínez, Gracias por tus calificaciones, ni en la escuela obtuve tal promedio ... Saludos a Todos (Johnmpl, Silvia y Gabriel)
  24. Hola home can, No había entendido bien tu solicitud, pero anexa este código y me comentas Private Sub CommandButton1_Click() For x = 2 To Range("A2").End(xlDown).Row If Cells(x, "A").Text <> "X" Then Cells(x, "C").Value = "" End If Next x End Sub[/CODE] Saludos !!!
  25. Hola home can, anexo esto al código: If Range("a2:a5").Text <> "X" Then 'Aquí puse .Text [/CODE] Mucha Suerte Saludos !!!
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png