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
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