Help with attached MACRO

  • Thread starter Thread starter jddonadio
  • Start date Start date
J

jddonadio

Good evening:



Is it possible to insert a formula in the below listed MACRO. [Column D is
always a date. I need Column F to display a date 14 days greater]



Thanks in advance

John



Sub EnterGrievance()

'

' EnterGrievance Macro

' Macro recorded 2/25/2008 by John Donadio

'

' Keyboard Shortcut: Ctrl+c

'Range("A12").Select



Dim FromRng As Range

Dim ToRng As Range



With Worksheets("Data Sheet")

Set FromRng = .Range("A12:M12")

End With



With Worksheets("Grievance Log")

Set ToRng = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)

End With



FromRng.Copy _

Destination:=ToRng



Sheets("Data Sheet").Select

Range("E19").Select

End Sub
 
Hi John,

If I am correct in assuming that you want the date in column F of the sheet
you are pasting to then the following should do what you want.

Sub EnterGrievance()
Dim FromRng As Range
Dim ToRng As Range
Dim dateRngF As Range

With Worksheets("Data Sheet")
Set FromRng = .Range("A12:M12")
End With

With Worksheets("Grievance Log")
Set ToRng = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
Set dateRngF = .Cells(.Rows.Count, "F").End(xlUp).Offset(1, 0)
End With

FromRng.Copy Destination:=ToRng

dateRngF = dateRngF.Offset(0, -2) + 14

Sheets("Data Sheet").Select
Range("E19").Select
End Sub
 
Back
Top