Hola que tal

Ando buscando ayuda con el siguiente archivo; en la hoja principal (Simple Order) tengo la columna AF y necesito delimitar por cada numero de parte (esta parte de la macro ya la hice en el archivo) pero no se como copiar el titulo (AF1) hasta la ultima columna que me haya dado la macro, todos los dias la cantidad de los numeros de parte cambian y que considere la ultima columna y al final agregue dos titulos mas: Notes y Status. Adjunto el ejemplo de como queda manualmente, cualquier ayuda es bienvenida y gracias de antemano.

example.xlsm

@vinzent , sustituye tu código con el siguiente (o copia solo la parte nueva):
 

Sub SepararColumnas()
Dim uC&, uF&
        Sheets("Simple Order").Select
        Range("AF1").Value = "Part_Number"
        Columns("AF:AF").Select
        Selection.TextToColumns Destination:=Range("AF1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

'CONTAMOS FILAS Y COLUMNAS FINALES'
ActiveSheet.UsedRange.Select
uC = Selection.Columns.Count
uF = Selection.Rows.Count

'PASAMOS EL TÍTULO Y AJUSTAMOS ANCHO DE COLUMNA'
Range(Cells(1, "Ag"), Cells(1, uC)).Value = "Part_Number"
Range(Cells(1, "Ag"), Cells(uF, uC)).Columns.AutoFit

'PASAMOS NOMBRE A LAS OTRAS 2 COLUMNAS'
Cells(1, uC + 1) = "Notes"
Cells(1, uC + 2) = "Status"
End Sub

 

Editado el el 4 de marzo5 años por Haplox

Hace 5 minutos , Haplox dijo:

@vinzent , sustituye tu código con el siguiente (o copia solo la parte nueva):
 

Sub SepararColumnas()
Dim uC&, uF&
        Sheets("Simple Order").Select
        Range("AF1").Value = "Part_Number"
        Columns("AF:AF").Select
        Selection.TextToColumns Destination:=Range("AF1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

'CONTAMOS FILAS Y COLUMNAS FINALES'
ActiveSheet.UsedRange.Select
uC = Selection.Columns.Count
uF = Selection.Rows.Count

'PASAMOS EL TÍTULO Y AJUSTAMOS ANCHO DE COLUMNA'
Range(Cells(1, "Ag"), Cells(1, uC)).Value = "Part_Number"
Range(Cells(1, "Ag"), Cells(uF, uC)).Columns.AutoFit

'PASAMOS NOMBRE A LAS OTRAS 2 COLUMNAS'
Cells(1, uC + 1) = "Notes"
Cells(1, uC + 2) = "Status"
End Sub

 

Gracias, ya lo probe y funciona a la perfección.

Hace 2 minutos , vinzent dijo:

Gracias, ya lo probe y funciona a la perfección.

Pues de nada hombre...