| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
For Each Sheet in Workbook
Thought I would post the rest of it.
Case Is = 2 For Each Sh In ThisWorkbook.Worksheets If Sh.Name Like "EDL *" Then DtRg = Sh.Range("O1").Value If DtRg = UFdate Then Select Case True Case Is = wsData.Range("E20") Select Case DtRg Case Is = UFdate Sh.Range("J23").Value = "" Sh.Range("H23") = 24 Case Is = UFdate + 1 Sh.Range("J23").Value = "" Sh.Range("H23") = 24 Case Is = UFdate + 2 Sh.Range("H23").Value = "" Sh.Range("J23") = 24 Case Is = UFdate + 3 Sh.Range("H23").Value = "" Sh.Range("J23") = 24 UFdate = UFdate + 4 End Select Case Is = wsData.Range("E22") Select Case DtRg Case Is = UFdate Sh.Range("H23").Value = "" Sh.Range("J23") = 24 Case Is = UFdate + 1 Sh.Range("H23").Value = "" Sh.Range("J23") = 24 UFdate = UFdate + 2 Case Is = UFdate + 2 Sh.Range("J23").Value = "" Sh.Range("H23") = 24 Case Is = UFdate + 3 Sh.Range("J23").Value = "" Sh.Range("H23") = 24 UFdate = UFdate + 4 End Select End Select End If End If Next Sh End Select *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Copy sheet cells into differnt workbook/sheet, How? | Excel Discussion (Misc queries) | |||
| Aquiring data from one sheet to another sheet in the same workbook | Excel Worksheet Functions | |||
| Link individual sheet to one sheet in another workbook | Excel Discussion (Misc queries) | |||
| Select sheet tabs in workbook & save to separate workbook files | Excel Worksheet Functions | |||
| I would like to move from sheet to sheet in a workbook using keybo | New Users to Excel | |||
Hybrid Mode
