Jump to content

martincosme

Members
  • Posts

    3
  • Joined

  • Last visited

  • Country

    Mexico

Posts posted by martincosme

  1. Hola a todos:

    ¿como podría concatenar la columna C y D de la siguiente macro de la cual su autor es Antoni, y que me la pegue en la hoja2 columna D?

    Muchas gracias por su tiempo y su apoyo.

    Bendiciones.


    Sub Copiar()
    Application.ScreenUpdating = False

    Set H1 = Sheets("ORIGEN")
    Set H2 = Sheets("DESTINO")

    H2.Range("A1:Z50000").ClearContents
    H2.Range("A1:Z50000").ClearFormats


    fila = H2.Range("A" & Rows.Count).End(xlUp).Row '+ 1
    'Range("A" & fila) = "Albaranes"
    fila = fila '+ 1
    ufila = H1.Range("A" & Rows.Count).End(xlUp).Row

    H1.Range("B1:B" & ufila).Copy: H2.Range("A" & fila).PasteSpecial 'xlValues

     

    H1.Range("C1:C" & ufila).Copy: QUE SE CONCATENE CON LA COLUMNA E Y LA PEGUE EN LA HOJA 2 COLUMNA D
    H1.Range("E1:E" & ufila).Copy: H2.Range("D" & fila).PasteSpecial 'xlValues

    End Sub

  2. Buenos días, solicito su apoyo para pasar los datos de la columna A y B a txt, con el ancho fijo a una sola columna, con 2 decimales y a partir de la fila 3 
                
    Y la columna C enseguida de los datos en txt, igual con ancho fijo.            
                
    En total de columnas a txt serian 2    

    Seria asi:

    COLUMNA A   COLUMNA B          COLUMNA C                              

    ANCHO FIJO 20   ANCHO FIJO 2     COMO DEBE DE QUEDAR EN TXT
    Costo Costo       con 2 decimales  
                       32.20    SI                                      32.20  SI 
                                   22.25  NO                                      22.25  NO 
                       28.33    SI                                      28.33  SI 
                                   29.00  NO                                      29.00  NO 
                                   23.00  NO                                      23.00  NO 
                                     8.00  NO                                        8.00  NO 
                                   22.05  NO                                      22.05  NO 
                       28.00    SI                                      28.00  SI 
                                   29.55  NO                                      29.55  NO 

    Anexo archivo.

     

    Muchas gracias de antemano.

    Saludos      

     

    Pasar a TXT con ancho fijo.xls

×
×
  • Create New...

Important Information

Privacy Policy