Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
= Today()+1 into Sheet1, Sheet2, and Sheet3
I am trying to stick the formula = Today()+1 into E3:F3 on Sheet1 which is
already merged, C1 on Sheet2, and A3 on Sheet3. However, the problem I am having with the code below is that it sometimes sticks the formula =Today()+1 into the wrong cells or not into any of the cells at all. Can you help me make this work? Sub Todaysdate() Sheets("Sheet1").Activate ActiveCell.FormulaR1C1 = "=TODAY()+1" Range("E3:F3").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet2").Activate ActiveCell.FormulaR1C1 = "=TODAY()+1" Range("C1").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet3").Activate Range("A3").Select ActiveCell.FormulaR1C1 = "=TODAY()+1" Range("A3").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet1").Activate End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
= Today()+1 into Sheet1, Sheet2, and Sheet3
Hi
Try this, just make sure the cells are formated as Date: Sub Todaysdate() With Sheets("Sheet1").Range("E3") .FormulaR1C1 = "=TODAY()+1" .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With With Sheets("Sheet2").Range("C1") .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With With Sheets("Sheet3").Range("A3") .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With Application.CutCopyMode = False Sheets("Sheet1").Activate End Sub Or maybe better: Sub Todaysdate1() Dim MyDate As Date MyDate = Date + 1 Sheets("Sheet1").Range("E3") = MyDate Sheets("Sheet2").Range("C1") = MyDate Sheets("Sheet3").Range("A3") = MyDate Sheets("Sheet1").Activate End Sub Regards, Per On 4 Aug., 22:40, Jazz wrote: I am trying to stick the formula = Today()+1 into E3:F3 on Sheet1 which is already merged, C1 on Sheet2, and A3 on Sheet3. *However, the problem I am having with the code below is that it sometimes sticks the formula =Today()+1 into the wrong cells or not into any of the cells at all. *Can you help me make this work? Sub Todaysdate() Sheets("Sheet1").Activate ActiveCell.FormulaR1C1 = "=TODAY()+1" Range("E3:F3").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet2").Activate ActiveCell.FormulaR1C1 = "=TODAY()+1" Range("C1").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet3").Activate Range("A3").Select ActiveCell.FormulaR1C1 = "=TODAY()+1" Range("A3").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet1").Activate End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
= Today()+1 into Sheet1, Sheet2, and Sheet3
Dude this is sweet. Thanks for your help man!
"Per Jessen" wrote: Hi Try this, just make sure the cells are formated as Date: Sub Todaysdate() With Sheets("Sheet1").Range("E3") .FormulaR1C1 = "=TODAY()+1" .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With With Sheets("Sheet2").Range("C1") .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With With Sheets("Sheet3").Range("A3") .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With Application.CutCopyMode = False Sheets("Sheet1").Activate End Sub Or maybe better: Sub Todaysdate1() Dim MyDate As Date MyDate = Date + 1 Sheets("Sheet1").Range("E3") = MyDate Sheets("Sheet2").Range("C1") = MyDate Sheets("Sheet3").Range("A3") = MyDate Sheets("Sheet1").Activate End Sub Regards, Per On 4 Aug., 22:40, Jazz wrote: I am trying to stick the formula = Today()+1 into E3:F3 on Sheet1 which is already merged, C1 on Sheet2, and A3 on Sheet3. However, the problem I am having with the code below is that it sometimes sticks the formula =Today()+1 into the wrong cells or not into any of the cells at all. Can you help me make this work? Sub Todaysdate() Sheets("Sheet1").Activate ActiveCell.FormulaR1C1 = "=TODAY()+1" Range("E3:F3").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet2").Activate ActiveCell.FormulaR1C1 = "=TODAY()+1" Range("C1").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet3").Activate Range("A3").Select ActiveCell.FormulaR1C1 = "=TODAY()+1" Range("A3").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Sheet1").Activate End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
A1 Sheet2 is linked to A1 sheet1 so that user enters value(abc123) a1 sheet1 and A1 sheet2 is updated | Excel Programming | |||
Delete Worksheets Named Sheet1, Sheet2, Sheet3, etc. | Excel Programming | |||
A1 in sheet1 = =SUM('sheet2:sheet3'!A1) | Excel Programming | |||
consoildate all the worksheet(example sheet1,sheet2 and sheet3 etc | Excel Worksheet Functions | |||
copy data from sheet1 based on criteria in sheet2 to sheet3 | Excel Programming |