Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi Everyone
Need some help please: Although I have a reasonably good understanding of VBA, I fail miersably with Excel VB, and as such, I only have a small amount of VB knowledge, that said, I need to create a VB Code to execute the follwing scenario via CmdBtn. Firstly: Master & MastHist are located in the same folder, MastHist is purely an Archival File for the year. 1. check if "MastHist - 2011.xls" is open, If not, then open it. 2. Remove color formatting from "Master" 3. Check Cell from "Master", "E2" for applicable Sheet to set focus to, eg if "E2" = "Jan" then "MastHist - 2011" sheet focus will be "Jan" 4. Copy Cell from "Master", "D2" then set focus on "MastHist - 2011", "Jan" or which-ever (Sheet/Month) has the focus and find the first available Cell in Column A:A, Paste the Data.(Date) 5. Copy first Row available (from bottom Up) from "Master", between Column A:Q, then paste it to "MastHist - 2011", "Jan" or which-ever (Sheet/Month) has the focus and find the first available Cell in Column B:B, Paste the Data. Loop this until all cells up to and including Row 5 (Excluding rows 1 to 4) of Master have been copied across to MastHist. 6. Set focus on "MastHist - 2011", "Jan" or which-ever (Sheet/Month) has the focus, select range A1:Q4000 (Each sheet will not exceed 3000 rows but have added extra 1000 just to be safe), then sort by "A" - Ascending. 7.Whilst focused on MastHist, Save. Secondly: In a seperate Sub() 8. Set focus on "Master" Check for underlying VB Code attached to Workbook and Modules and delete all Code without the need to save Modules to another location. 9. Delete Rows 1, 2 & 3. 10. SaveAs T:\MyFolder\Filename - "dd-mmm-yy".xls I really appreciate any assistance you can afford me. TIA Clueless |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Deleting Rows With Non-Needed Data between Needed Data | Excel Worksheet Functions | |||
Needed Help.. | Excel Worksheet Functions | |||
Help needed | Excel Worksheet Functions | |||
help needed | Excel Discussion (Misc queries) | |||
help needed | Excel Discussion (Misc queries) |