weekly updating macros

rizwan.planning

New member
Joined
Nov 15, 2013
Messages
4
Reaction score
0
Points
0
Sorry to post like this i am new to this side of world,
Current i am working on a macro ,
Basic is that , Every week i had to copy certain value from database to on worksheet,
I had generate the basic code,
Which is shown below


Sub Updateactualweekly()
'
' Updateactualweekly Macro
'


'
ActiveCell.Select
ActiveCell.Formula = "=VLOOKUP(A6,'JUDR PMS'!C[-76]:C[-60],17,0)"
ActiveCell.Offset(0, 1).Select
ActiveCell.Formula = "=VLOOKUP(A6,'JUDR PMS'!C[-77]:C[-57],21,0)"
ActiveSheet.Range("$A$3:$EA$469").AutoFilter Field:=80, Operator:= _
xlFilterNoFill
ActiveSheet.Range("$A$3:$EA$469").AutoFilter Field:=1, Criteria1:="<>"
ActiveSheet.Range(ActiveCell, ActiveCell.Offset(0, -1)).Select
Selection.Copy

ActiveSheet.Range(ActiveCell, ActiveCell.Offset(495, 1)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False



End Sub

Answer is weird

=VLOOKUP('A6','JUDR PMS'!C:S,17,0)

Please help me

Thanks for time and consideration



Regards ,
Rizwan Khan
 
Back
Top