macro for crating a new sheet by comparing date

[ikshanu]

HI,

I have an excel sheet which contains date in A1 cell and one data in A2 cell.
These two data are changing every day

My purpose is: when a macro run,

*open a new work sheet

just paste the date in A1 cell of new work sheet and data to A2 cell
please help to create a macro.i am a begener

shanu

[davesexcel]

Here is one version:

Please Login or Register  to view this content.

[ikshanu]

HI,

Thanks for your help.I have updated this code as given under

Sub SendToNewSheet()
Dim sh As Worksheet, ws As Worksheet
Set sh = ActiveSheet
Set ws = ThisWorkbook.Sheets.Add(After:= _
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Range("A1").Value = sh.Range("A1").Value
ws.Range("A2").Value = sh.Range("A2").Value
End Sub


Here it is working,but my requirement is the values of cells A1 &A2 will be change every day(Set sh = ActiveSheet).In this code,sheets are creating every day and paste the value.But my requirment is paste the values from active sheet to the new created sheet like in DAY1:A1,A2 DAY2:B1,B2 DAY3:C1,C2.Is it possible

[davesexcel]

You can copy and change the code to whatever you require.