	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.0

Search for tab in another workbook

Asked by FPLES in Microsoft Applications, Microsoft Excel Spreadsheet Software

Tags: Microsoft Excel

I am trying to put together some code that I had and some code that I found on this site. I have 2 workbooks and what I am trying to do is to get the workbook that I am working in to..

1. Open another workbook
2. Search for the tab in the workbook that is 1 year ago from today's date
-ex: Today's tab is Nov 06 and one year ago it was Nov 07.
3. Give me the data that is in a specific range in that specific tab
4. Paste the information back in the workbook that I am working in.

I have tabs named by Month (mmm format) and day (dd format). I keet getting a "400" Error when I run the code and I don't know why it cannot find the tab in the other workbook. If I run the code in the same workbook without the OpenandCopy routine, it works fine, but once I put the Call function in there it crashes. Can anyone provide some help?? Thanks in advance

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

           
           
             Sub OpenandCopy()
    Workbooks.Open Filename:="H:\ADMIN\Weekly Backlog - 2008.xls"               'open the other workbook"
    Windows("Weekly Backlog - 2008.xls").Activate
    Call FindTabMacro                                                           'select the tab that I want to copy from
    Range("F4:F8").Select                                                       'select the range I want to copy
    Selection.Copy                                                              'copy the highlighted range
    Windows("Automated Weekly Backlog.xls").Activate                            'Activate the workbook that I am working in
    Range("E4").Select                                                          'select the first cell that I want to paste in
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False                                               'Paste the copied celled special (values) to open workbook
End Sub
Public Sub FindTabMacro()
Dim d As String
d = Format(DateAdd("d", 1, DateAdd("yyyy", -1, Now)), "mmm dd")
 
   FindTab d
 
End Sub
 
Public Sub FindTab( _
      ByVal SearchString As String _
   )
   
   Dim TargetWorksheet As Worksheet
   
   For Each TargetWorksheet In Worksheets
      If TargetWorksheet.Name Like SearchString Then
         TargetWorksheet.Activate
         Exit Sub
      End If
   Next TargetWorksheet
   
End Sub

           
         

Related Solutions

Keywords: Search for tab in another workbook

	Title
1	Zulu Date/Time Conversion

Loading Advertisement...

20091111-EE-VQP-92 - Hierarchy / EE_QW_3_20080625

Hall of Fame

1. war1411,623
2. BlueDevilF...323,247
3. chris_bot...249,486
4. brettdj207,743
5. saurabh726196,293
6. apache09180,705
7. Mestha174,447
8. rorya148,450
9. redrumkev139,409
10. tbsgadi133,609
11. boag2000132,805
12. matthews...107,967
13. capricorn1105,125
14. barryhou...104,700
15. JOrzech98,273
16. GrahamSkan97,165
17. LSMCons...81,974
18. patrickab73,355
19. DatabaseMX70,075
20. tigermatt69,017
21. itkamaraj66,248
22. dstewartjr56,404
23. pari12353,395
24. tedbilly50,850
25. jppinto48,851

1. war12,075,106
2. BlueDevilF...612,422
3. saurabh726319,582
4. chris_bot...293,911
5. brettdj264,643
6. rorya258,854
7. GrahamSkan231,313
8. apache09226,110
9. KCTS210,090
10. redrumkev209,989
11. matthews...200,797
12. sunray_...194,417
13. boag2000187,601
14. capricorn1180,150
15. byundt177,935
16. Mestha174,447
17. tigermatt164,080
18. zorvek163,699
19. tbsgadi139,109
20. DatabaseMX135,659
21. Sembee128,572
22. barryhou...128,000
23. JOrzech127,021
24. patrickab125,732
25. LSMCons...123,854

Search for tab in another workbook

Asked by FPLES in Microsoft Applications, Microsoft Excel Spreadsheet Software

Tags: Microsoft Excel

About this solution