VAB to copy cell values into new Sheet, Overwrite if needed and ba
On Jul 13, 1:32 pm, Philosophaie
wrote:
Debug this. The premise is correct. Just insert a value in B2 and put the
string 'Monday' somewhere in the 10x10 block in sheet 2 and the program will
search for it in sheet 2 and place the B2 contents right below it.
Private Sub CommandButton1_Click()
Dim Monday As Double
Dim i, j As Integer
Monday = Worksheets(1).Cells(2, 1).Value
For i = 1 To 10
For j = 1 To 10
If Worksheets(2).Cells(i, j).Value = "Monday" Then
Worksheets(2).Cells(i, (j + 1)).Value = Monday
End If
Next
Next
End Sub
"gumby" wrote:
I have two sheets. Sheet1 and Sheet2
On sheet1 I have some finaical numbers that run. For instance I want
to run a particulay day of data and it returns certain values. I would
like to be able to click a command button and have the data copied to
sheet2 into certain cells in a column based of the day of the week.
For instance if B2 on Sheet 1 Equals Monday I want it to find the
column on sheet2 that has Monday in it and copy certain cells from
sheet1 into certain cells in sheet two under that column.
Thanks,
David- Hide quoted text -
- Show quoted text -
It places 0 to the right of it.
|