Arkadaşlar bu makro kodu tam olarak ne iş yapar ?
Sub protus()
'
' protus Makro
' Makro xxxxxx tarafından 01.02.2006 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+b
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:F").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.NumberFormat = "0"
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Cut
Columns("E:E").Select
ActiveSheet.Paste
Columns("C:C").ColumnWidth = 25.29
Columns("D: D").ColumnWidth = 20
Range("B1").Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"","",RC[-1])"
Selection.Copy
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Columns("D: D").Select
Application.CutCopyMode = False
Selection.Copy
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B: D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("A:A").ColumnWidth = 46.71
Range("B1").Select
Selection.End(xlDown).Select
Range("A6367").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A6366").Select
Selection.End(xlUp).Select
End Sub
Sub protus()
'
' protus Makro
' Makro xxxxxx tarafından 01.02.2006 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+b
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("D:F").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.NumberFormat = "0"
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Cut
Columns("E:E").Select
ActiveSheet.Paste
Columns("C:C").ColumnWidth = 25.29
Columns("D: D").ColumnWidth = 20
Range("B1").Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"","",RC[-1])"
Selection.Copy
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Columns("D: D").Select
Application.CutCopyMode = False
Selection.Copy
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B: D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("A:A").ColumnWidth = 46.71
Range("B1").Select
Selection.End(xlDown).Select
Range("A6367").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A6366").Select
Selection.End(xlUp).Select
End Sub