no, non ne era a conoscenza...
non puoi darmi un codice macro da inserire?
Se vuoi....
In pratica ti spiego meglio...
Ho delle caselle:
A1 FORNITORE
B1 ARTICOLO
C1 DATA CONSEGNA
D1 ULTIMA BOLLA
E1 DATA ULTIMA BOLLA
F1 CONTRATTO
tutto questo è quello che mi manda il fornitore
In pratica io devo mettere in ordine tutte queste caselle automaticamente come voglio io.
Però c'è un problema...
La macro che ho gia in mano mi salva il file in csv e io lo vorrei in file .txt
Eccola:
Sub ARGO()
'
'
'
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Cut
Columns("I:I").Select
ActiveSheet.Paste
Columns("C:C").Select
Selection.Cut
Columns("J:J").Select
ActiveSheet.Paste
Range("D1").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Columns("C:C").ColumnWidth = 16.14
Columns("C:C").ColumnWidth = 19.43
Range("C2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TEXT(RC[1],""AAAAMMGG"")"
Range("C2").Select
Selection.Copy
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("C:C").Select
Selection.Copy
Columns("K:K").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.ColumnWidth = 8.57
Columns("K:K").EntireColumn.AutoFit
Columns("E:E").Select
Application.CutCopyMode = False
Selection.Cut
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Columns("L:L").Select
ActiveSheet.Paste
Columns("F:F").Select
Selection.Cut
Columns("M:M").Select
ActiveSheet.Paste
Columns("G:G").Select
Selection.Cut
ActiveWindow.SmallScroll ToRight:=2
Columns("N:N").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("H1").Select
Selection.Copy
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("G:G").EntireColumn.AutoFit
Range("G2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TEXT(RC[1],""AAAAMMGG"")"
Range("G2").Select
Selection.Copy
Range("G3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("G:G").Select
Selection.Copy
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.SmallScroll ToRight:=2
Columns("O:O").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("O:O").EntireColumn.AutoFit
Selection.Replace What:="47120101", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("P1").Select
ActiveWindow.SmallScroll ToRight:=4
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = "RIFERIMENTO"
With ActiveCell.Characters(Start:=1, Length:=11).Font
.Name = "Arial Unicode MS"
.FontStyle = "Normale"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("P2").Select
Columns("P:P").ColumnWidth = 16.71
Range("P1").Select
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("A:H").Select
Range("H1").Activate
Selection.Delete Shift:=xlToLeft
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Columns("H:H").Select
Selection.Replace What:="", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("I1").Select
ActiveCell.FormulaR1C1 = "DATA_PROGR."
Range("I2").Select
Columns("I:I").EntireColumn.AutoFit
ActiveCell.FormulaR1C1 = "=IF(RC[-7]="""","""",TEXT(R1C11,""AAAAMMGG""))"
Range("I2").Select
Selection.Copy
Range("I3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("I:I").Select
Selection.Copy
Columns("J:J").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("J1").Select
Columns("I:I").EntireColumn.AutoFit
Selection.ClearContents
ActiveWorkbook.Save
End Sub
Aiutami