automating drag & drop

jeffreybrown · #1 04-23-2016, 05:18 AM

I'm guessing since you have two different formulas in the last two rows, you want both rows to go down one.

Try

Code:

Sub MoveDown()
    Dim LastRow As Long
    LastRow = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
    Sheets("Data").Range("B" & LastRow - 1).Resize(2, 5).Copy _
    Destination:=Sheets("Data").Range("B" & LastRow)
End Sub

rob171171 · #2 04-23-2016, 05:37 AM

Hi Jeffrey

The formula is the same in each row, its a simple countif of open & closed form Column A (Tab Status) and Column B (P1, P2 & P3 possibilities).
The values in A & B of Tab Status will vary as the project progresses and (hopefully) the number of items open will decrease with those closed increasing. Similarly the number of P1's, P2's & P3's will fluctuate on a daily basis.

The purpose of tab Data is to record this on a daily basis to show the burndown. I 'simply' want the row which corresponds to each day in tab data to automatically update.

That make sense??

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Cannot drag and drop tasks	RandWald	Outlook	3	04-02-2016 06:45 AM
Drag and drop macro	Amanoo	PowerPoint	2	06-15-2012 04:01 AM
Drop and drag macro	Jamtart	PowerPoint	3	04-15-2012 11:05 PM
Drag and drop contacts	christer	Office	0	10-03-2011 09:54 AM
Drag & Drop problem	nickywave	Outlook	0	04-12-2011 01:40 AM