hi
I have this code works from sheet to another . what I want loop for specific sheets are (export,import) and ignore sheets(main,data,archive ) .
so if any body help truly appreciate .
I have this code works from sheet to another . what I want loop for specific sheets are (export,import) and ignore sheets(main,data,archive ) .
so if any body help truly appreciate .
VBA Code:
Sub Copy_Columns()
Dim cols As Variant, sh1 As Worksheet, sh2 As Worksheet, i As Long, c As Long, f As Range
Set sh1 = Sheets("SHEET1")
Set sh2 = Sheets("INVENTORY")
cols = Array("BRAND", "MODEL", "CLIENT", "QTY IMP", "QTY EX") 'Put column titles here
For i = 0 To UBound(cols)
Set f = sh1.Rows(1).Find(cols(i), , xlValues, xlWhole)
If Not f Is Nothing Then
c = f.Column
Set f = sh2.Rows(1).Find(cols(i), , xlValues, xlWhole)
If Not f Is Nothing Then
sh1.Columns(c).Copy sh2.Columns(f.Column)
End If
End If
Next
MsgBox "End"
End Sub