Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need help with code
I have this code that detects the end of a workweek by date in column (A)and when the Macro is run it inserts a row with "Weekly Subtotal" in column (A). There are two issues I can't figuire out: 1) I need to sum up columns (D, E, and F) above each row till the next "Weekly Subtotal" is detected or No date is detected (First entry in column) 2) The way the code is now, if I run the Macro for a second time, a duplicate row will be inserted below the last one that was inserted. How can I keep this from happining. Here is the code: Sub weekdaycount() Dim wrng As Range, lrng As Range Dim count As Long Set wrng = Cells(8, "a") '<<=== start range - change if need Set lrng = Cells(Cells.Rows.count, "a").End(xlUp) Do While (wrng.Row <= lrng.Row) count = 1 Do While (Weekday(wrng) <= Weekday(wrng(2))) If wrng(2) < "" Then Set wrng = wrng(2) count = count + 1 Else Exit Do End If Loop Set wrng = wrng(2) wrng.EntireRow.Insert wrng(0) = "Weekly Subtotal" Loop End Sub -- parteegolfer ------------------------------------------------------------------------ parteegolfer's Profile: http://www.excelforum.com/member.php...o&userid=31951 View this thread: http://www.excelforum.com/showthread...hreadid=519465 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
run code on opening workbook and apply code to certain sheets | Excel Programming | |||
stubborn Excel crash when editing code with code, one solution | Excel Programming | |||
option buttons run Click code when value is changed via VBA code | Excel Programming |