Results 1 to 2 of 2
Hybrid View
-
24th May 2010 13:35 #1Registered User
Join Date: Sep:2009
Location: Sofia
Posts: 12
. , 26 . -. .

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 22.5.2010
'
' Keyboard Shortcut: Ctrl + q
'
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
-
30th May 2010 09:39 #2




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in