Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2
Default implement vlookup formula to VBA code

On the sheet 2 I have table "Orders" where is in column A emplooyes in
column B is month january in column C is month February
and so to the end of year.
On the sheet1 I have pivot table where is emplooyes in row fields, months is
in page fields and one calculated item "working hours" in data fields.
I want copy paste only value calculated item "working hours" from pivot table
to table "Orders"
in adequate column.
If month in pivot table is january must copy value to column B in table
"Orders" if is month May must copy in column F and ect.
I try with formula =if(sheet1!$A$1=1;vlookup(Orders!$A2;sheet!1$A$4:$ B$50:
2;false)) but I must manually work too.
Maybe, someone who know how implement this formula to VBA code.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200901/1

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default implement vlookup formula to VBA code

On Fri, 23 Jan 2009 22:22:32 +0000, karlo via OfficeKB.com wrote:

On the sheet 2 I have table "Orders" where is in column A emplooyes in
column B is month january in column C is month February and so to the
end of year.
On the sheet1 I have pivot table where is emplooyes in row fields,
months is in page fields and one calculated item "working hours" in
data fields. I want copy paste only value calculated item "working
hours" from pivot table to table "Orders"
in adequate column.
If month in pivot table is january must copy value to column B in table
"Orders" if is month May must copy in column F and ect. I try with
formula =if(sheet1!$A$1=1;vlookup(Orders!$A2;sheet!1$A$4:$ B$50:
2;false)) but I must manually work too. Maybe, someone who know how
implement this formula to VBA code.


I guess you could do something along the lines of scrolling through all
the months x, in VBA, with yourPivotTable.TableFields
("month").CurrentPage = x

and each time get the appropriate range using the GetPivotData method:

for each employee y you'd be able to do
set rngResult = yourPT.GetPivotData("working hours","employees",y), with
rngResult.Value at that point being the working hours for one specific
employee in a certain month.

Hope this still helps.

--
Frederik Vanrenterghem | Help me, I'm a prisoner in a Fortune
| cookie file!
http://vanrenterghem.biz |
GPG Fingerprint: |
966B 0E4B 25C1 CC04 E2CB |
8D4C 117F 6469 8925 BDE0 |
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How best to integrate/implement this? Ed from AZ Excel Programming 2 December 10th 08 09:06 PM
WNetGetUniversalName - how to implement in VBA? KR Excel Programming 1 March 16th 06 03:48 PM
how to implement xbrl mariano Excel Discussion (Misc queries) 0 January 18th 06 02:00 PM
How to implement an iRtdServer? Hans Guijt Excel Programming 4 October 24th 04 07:17 AM
Can you implement a custom format with VB code? pH7[_5_] Excel Programming 3 July 10th 04 07:41 AM


All times are GMT +1. The time now is 10:10 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"