I have the macro below that looks at the sheet name in column A and copies what is in Column B to the sheet that is column A.
Ex
Col A Col B
Sheet1 5000
So in Sheet 1 it adds 5000
The problem is I want the target cell I want the data to go to changes. This means when I want it to go somewhere else I have to go into the macro and change the target cell.
Can someone please help me create an input box where the box would appear and I would just enter the the column and row and the macro would then run.
Here is the target cell for this week
.Cells(21, 15)
Thanks
Sub Macro1()
myRow = 1
Do Until Cells(myRow, 1) = ""
myName = Cells(myRow, 1)
Sheets("" & myName).Cells(21, 15) = Cells(myRow, 2)
myRow = myRow + 1
Loop
'
End Sub
Thanks
Ex
Col A Col B
Sheet1 5000
So in Sheet 1 it adds 5000
The problem is I want the target cell I want the data to go to changes. This means when I want it to go somewhere else I have to go into the macro and change the target cell.
Can someone please help me create an input box where the box would appear and I would just enter the the column and row and the macro would then run.
Here is the target cell for this week
.Cells(21, 15)
Thanks
Sub Macro1()
myRow = 1
Do Until Cells(myRow, 1) = ""
myName = Cells(myRow, 1)
Sheets("" & myName).Cells(21, 15) = Cells(myRow, 2)
myRow = myRow + 1
Loop
'
End Sub
Thanks