|
= 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 |
= 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 |
= 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 |
| All times are GMT +1. The time now is 01:14 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com