elsg
04-29-2015, 06:56 AM
Hi
How copy data from tab Tab_Orig fixed row 6 to Tab_Result inside table MyTable?
Look yeloow row both tabs
I try it, but nothing happening
Sub CopyfromTabToTable()
Worksheets("Tab_Result").Select
Range("A3").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.ListObject.ListRows.Add
Worksheets("Tab_Orig").Range("A6:C6, E6, H6:O6").Copy
Worksheets("Tab_Result").ListObjects("MyTable").Range.PasteSpecial (xlPasteValues) 'Here nothing happening
ActiveWorkbook.Worksheets("Tab_Result").ListObjects("MyTable").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Tab_Result").ListObjects("MyTable").Sort. _
SortFields.Add Key:=Range("B4"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tab_Result").ListObjects("MyTable").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Activate
Worksheets("Seg Seg").Select
Range("A1").Select
End Sub
Thank you!!!
How copy data from tab Tab_Orig fixed row 6 to Tab_Result inside table MyTable?
Look yeloow row both tabs
I try it, but nothing happening
Sub CopyfromTabToTable()
Worksheets("Tab_Result").Select
Range("A3").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.ListObject.ListRows.Add
Worksheets("Tab_Orig").Range("A6:C6, E6, H6:O6").Copy
Worksheets("Tab_Result").ListObjects("MyTable").Range.PasteSpecial (xlPasteValues) 'Here nothing happening
ActiveWorkbook.Worksheets("Tab_Result").ListObjects("MyTable").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Tab_Result").ListObjects("MyTable").Sort. _
SortFields.Add Key:=Range("B4"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tab_Result").ListObjects("MyTable").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Activate
Worksheets("Seg Seg").Select
Range("A1").Select
End Sub
Thank you!!!