Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Macro2()
- '
- ' Macro2 Macro
- '
- '
- Workbooks.Open ("C:\Users\dudkiewi\Desktop\EXCEL TEST MACRO\Remedy.xls")
- Windows("Remedy.xls").Activate
- LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
- Set Rng = Range("A1:T" & LastRow - 2)
- Rng.Select
- ActiveSheet.ListObjects.Add(xlSrcRange, Rng, , xlYes).Name = _
- "RemedyToImport"
- Columns("A:A").Select
- Selection.Hyperlinks.Delete
- Columns("J:J").Select
- Selection.TextToColumns Destination:=Range("J1"), DataType:=xlFixedWidth, _
- FieldInfo:=Array(Array(0, 3), Array(10, 9)), TrailingMinusNumbers:=True
- 'sortowanie
- ActiveWorkbook.Worksheets("Sheet 1").ListObjects("RemedyToImport").Sort.SortFields. _
- Clear
- ActiveWorkbook.Worksheets("Sheet 1").ListObjects("RemedyToImport").Sort.SortFields.Add _
- Key:=Range("RemedyToImport[Reported D]"), SortOn:=xlSortOnValues, Order:=xlAscending, _
- DataOption:=xlSortNormal
- With ActiveWorkbook.Worksheets("Sheet 1").ListObjects("RemedyToImport").Sort
- .Header = xlYes
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply
- End With
- 'koniec sortowania
- lastRow_T = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
- Set Rng_T = Range("A2:T" & LastRow - 2)
- Rng_T.Select
- Selection.Copy
- Windows("test.xlsm").Activate
- Worksheets("BMCD").Activate
- LastRow_E = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
- Set Rng_E = Range("A" & LastRow_E + 1)
- Rng_E.Select
- ActiveSheet.Paste
- Workbooks("Remedy.xls").Application.CutCopyMode = False
- Workbooks("Remedy.xls").Close SaveChanges:=False
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement