I Attached my file please check...
In this allotment page.... listbox1 is have "date" 1 to 31... if I double click any dates. eg. 3
that time "Green colour" Background area automatically populate data from " Duty chart hk" & "duty chart wa" page similar 3 day column details.....
Please help Me
Hi rukman
To help us better understand please add a worksheet to your workbook with expected results and please tell us why.
John
If you have issues with Code I've provided, I appreciate your feedback.
In the event Code provided resolves your issue, please mark your Thread as SOLVED.
If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.
I already attached a sample file. please check
You do not need vba; use formulas instead:
Named Ranges:
DutyChartHK ='DUTY CHART HK'!$A$1:$AG$11
DutyChartWA ='DUTY CHART WA'!$A$1:$AG$12
HK ='DUTY CHART HK'!$AI$1:$AJ$11
SelectedDay =ALLOTMENT!$H$4..........<----- Linked cell for the listbox
WA ='DUTY CHART WA'!$AI$1:$AJ$12
Typical formula in C4 and down:
D4:
Please Login or Register to view this content.
Please Login or Register to view this content.
Ben Van Johnson
Thanks for answer
Ya its working... but small problem in there. see that... neuro ward had 2 rows. But only one name only shown....
If you want VBA. DoubleClick a number in ListBox.
I left the formulas in Name Column but that can also be added to code.
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
column C:
Please Login or Register to view this content.
Thanks for the reply guru....
But again one problem.... WA Generated correctly. But HK Side Not. Because Neuro ward had only one HK. But its generate 2. Center Core Had one HK. But its not Populate the person.
c4=IFERROR(INDEX(DutyChartWA,MATCH(IF(T$1=0,$B3,T$1),INDEX(DutyChartWA,,2),0)+(1*(T$1=0)),MATCH(SelectedDay,INDEX(DutyChartWA,1,),0)),"")
d4=IFERROR(VLOOKUP(T$2,WA,2),"")
e4=IFERROR(INDEX(DutyChartHK,MATCH(IF(T$1=0,$B3,T$1),INDEX(DutyChartHK,,2),0)+(1*(T$1=0)),MATCH(SelectedDay,INDEX(DutyChartHK,1,),0)),"")
f4=IFERROR(VLOOKUP(T$4,HK,2),"")
Last edited by protonLeah; 09-11-2017 at 10:33 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks