Hii, i have a raw data in sheet 1 and sheet 2 is supposed to be a condensed version (i.e. pulls selected columns from sheet 1).
I need vba to copy specific columns (based on column header), and paste the entire column into the first blank column in sheet 2.
I'm not very sure how to continue from the codes below. Help will be greatly appreciated!
Dim z
Dim x as Integer
z = Array("Language", "ID", "Date", "Names") ' column headers
Sheets("Sheet1").Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
x = Selection.Columns.Count ' count number of columns
LR = Range("A" & Rows.Count).End(xlUp).Row ' last row of column
For i = 1 to x
If Cells(1,i).Value = Name Then
I need vba to copy specific columns (based on column header), and paste the entire column into the first blank column in sheet 2.
I'm not very sure how to continue from the codes below. Help will be greatly appreciated!
Dim z
Dim x as Integer
z = Array("Language", "ID", "Date", "Names") ' column headers
Sheets("Sheet1").Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
x = Selection.Columns.Count ' count number of columns
LR = Range("A" & Rows.Count).End(xlUp).Row ' last row of column
For i = 1 to x
If Cells(1,i).Value = Name Then