schedule

[JeremyGraham95]

I am working on a task assignment tool that simply rotates 9 cells with the click of a button. I am not very good with code and am having trouble finding an easy method to complete this tool. it will rotate the cells in rand A7:A15 and every other cell would just work off of those cells. please help

 

[JeremyGraham95]

here is the code i have put together so far. it doesnt seem to rotate down one row each time the button is clicked. P.S. i only want cells A7:A14 to rotate


'count the number of rows to be rotated
myRows = Application.WorksheetFunction.CountA(Range("A7:A14"))
myLast = Cells(myRows, 2)
For i = 0 To myRows - 2
Cells(myRows - i, 2) = Cells(myRows - i - 1, 2)
Next i
Cells(1, 2) = myLast

 

[JoeMo]

Is this what you want? First select the range (e.g. A7:A15), then run this macro.

Sub RotateSelection()
'Select the cells you want to rotate, then run this macro
With Selection
    .Cells(.Rows.Count, 1).Cut
    .Cells(1, 1).Insert shift:=xlDown
End With
End Sub

 

[JeremyGraham95]

thanks. it works perfectly !!!!!

 

[JoeMo]

thanks. it works perfectly !!!!!

You are welcome - thanks for the reply.

 

[JeremyGraham95]

so this works; however i have multiple cells with "=B10" as the value and once i click the button to rotate the cells that value changes. the whole table relies on the 8 cells that are rotating. how do i change the formula to not adjust for every time the button is pressed??

 

[JoeMo]

so this works; however i have multiple cells with "=B10" as the value and once i click the button to rotate the cells that value changes. the whole table relies on the 8 cells that are rotating. how do i change the formula to not adjust for every time the button is pressed??

Sorry, I have no idea what your table looks like or which cells you are referring to. It would help if you post your layout and show the cells you want to rotate and any formulas that are in those cells.