Jump to content

Un saludo a todos


ingrid67

Recommended Posts

Me llamo Ingrid y os mando un saludo desde un pueblo de la provincia de Barcelona, ya tocando al Pirineo, soy autónoma y me dedico al transporte.Como no he encontrado un programa de facturación que me funcione para mi actividad pues con los poquitos conocimientos que tengo de excel he ido tirando y por esto mi entrada en el foro, a ver si poco a poco voy mejorando.

Gracias a todos por estar ahí y si yo puedo aportar algo (aunque sea poquito) también lo haré.:distracted:

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • 52 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      158
    • Comments
      89
    • Reviews
      25

    Latest File
    By pegones1

    1    0

  • Crear macros Excel

  • Posts

    • Hola Antony buenas tardes Muchísimas gracias.. le había dado vueltas y no encontraba el problema... funciona perfecto...
    • Prueba modificando esta parte de la macro: '..... ' Llenar la columna AE con la concatenación de AC y J For Each Celda In NuevaColumnaAE.DataBodyRange Celda.Value = Celda.Offset(0, -2).Value & Celda.Offset(0, -21).Value '<------------------------- Next Celda '.....  
    • Hola Antoni buenos días agradezco tu tiempo en la revisión del problema, el archivo pesa 5 mb y ya pase de 40.000 registros a 50, pero no me da el peso establecido en el foro te adjunto el link de onedrive https://termotecnicaco-my.sharepoint.com/:x:/g/personal/79602213_termotecnica_com_co/EYRltgPklQxEsgBpT8MzVc8BbBNnM5yeZbM_w4YOVruTSA?e=w5576e  
    • Con el archivo no se, pero sin el archivo, imposible ayudarte.
    • Buenos días grupo Solicito su amable ayuda con lo siguiente: Tengo un archivo que contiene en la Hoja Procesar un botón que básicamente debe realizar 3 acciones que líneas abajo describo. Tiene una hoja llamada Data que contiene una tabla “Table1” que va desde la columna A hasta la columna AB con todos los datos que arroja un informe de un software específico   En la macro, las columnas que se adicionen al final debe ser parte de la tabla “Table1” y esta debe hacer: 1-. Copiar el contenido de la columna K en la columna AC, es decir la columna siguiente a la última de la tabla. 2-. Usar la función texto en columnas a través de la macro para que en la columna AC quede el número de documento del proveedor y en la AD el nombre del proveedor, el separador que usa es el Alt+124 “|” 3-. Luego en la columna AF debe concatenar lo contenido en la columna AC con la Columna J   Ejemplo: Columna K = 900983925 | NOVA SEGURIDAD PRIVADA LTDA Columna AC = 900983925 | NOVA SEGURIDAD PRIVADA LTDA Columna AC luego de aplicar el texto en columnas = 900983925 y se renombra como “NitProveedor” Columna AD luego de aplicar el texto en columnas = NOVA SEGURIDAD PRIVADA LTDA (pero esta no se necesita) Columna AF = Concatenar AC & J = 900983925ME 5031 todo de tipo texto para que no coloque calores exponenciales y se renombra “NitConFactura” 4-. A continuación, la macro, el problema es que en la columna AF solo trae el contenido de AC (ver tabla), es decir no concatena con J y no encuentro la falla   Columna J Columna K Columna AC Columna AD Columna AE Número de la factura Proveedor NitProveedor Columna1 NitConFactura ME 5031 900983925 | NOVA SEGURIDAD PRIVADA LTDA 900983925 NOVA SEGURIDAD PRIVADA LTDA 900983925 FE3 1206 901392828 | FERRINGSA S.A.S. 901392828 FERRINGSA S.A.S. 901392828 FE 5703 9012896213 | GRUPO SISO S.A.S 9012896213 GRUPO SISO S.A.S 9012896213 FE 5702 9012896213 | GRUPO SISO S.A.S 9012896213 GRUPO SISO S.A.S 9012896213 FC-7424 900446898 | ARENAS Y TRITURADOS SANTAFE S.A.S. 900446898 ARENAS Y TRITURADOS SANTAFE S.A.S. 900446898 FC-7425 900446898 | ARENAS Y TRITURADOS SANTAFE S.A.S. 900446898 ARENAS Y TRITURADOS SANTAFE S.A.S. 900446898 FC-7426 900446898 | ARENAS Y TRITURADOS SANTAFE S.A.S. 900446898 ARENAS Y TRITURADOS SANTAFE S.A.S. 900446898 SET188251 830029102 | SALUD OCUPACIONAL DE LOS ANDES LTDA 830029102 SALUD OCUPACIONAL DE LOS ANDES LTDA 830029102     De antemano, mil gracias por su ayuda     Private Sub btnFacturacion_Click()     Dim wsData As Worksheet     Dim wsProcesar As Worksheet     Dim MiTabla As ListObject     Dim NuevaColumnaAC As ListColumn     Dim NuevaColumnaAE As ListColumn     Dim UltimaFila As Long     Dim Celda As Range     Dim Valor As String     Dim partes As Variant         ' Definir las hojas de trabajo     Set wsData = ThisWorkbook.Worksheets("Data")     Set wsProcesar = ThisWorkbook.Worksheets("Procesar")         ' Definir la tabla     Set MiTabla = wsData.ListObjects("Table1")         ' Añadir columna AC y copiar los datos de la columna K     Set NuevaColumnaAC = MiTabla.ListColumns.Add     NuevaColumnaAC.Name = "NitProveedor"     MiTabla.ListColumns(11).DataBodyRange.Copy Destination:=NuevaColumnaAC.DataBodyRange         ' Separar las columnas AC y AE     For Each Celda In NuevaColumnaAC.DataBodyRange         Valor = Trim(Celda.Value)                 ' Separar AC en columnas AC y AE         partes = Split(Valor, "|")         Celda.Value = Trim(partes(0))         Celda.Offset(0, 1).Value = Trim(partes(1))     Next Celda         ' Renombrar columna AE     Set NuevaColumnaAE = MiTabla.ListColumns.Add     NuevaColumnaAE.Name = "NitConFactura"         ' Obtener la última fila de la tabla     UltimaFila = MiTabla.ListRows.Count         ' Formatear columnas AC y AE como texto     NuevaColumnaAC.Range.NumberFormat = "@"     NuevaColumnaAE.Range.NumberFormat = "@"         ' Llenar la columna AE con la concatenación de AC y J     For Each Celda In NuevaColumnaAE.DataBodyRange         Celda.Value = Celda.Offset(0, -2).Value & Celda.Offset(0, 9).Value     Next Celda         ' Ajustar el ancho de las nuevas columnas     NuevaColumnaAC.Range.EntireColumn.AutoFit     NuevaColumnaAE.Range.EntireColumn.AutoFit         ' Activar la hoja "Procesar"     wsProcesar.Activate End Sub    
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy