Help with attached MACRO

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

jddonadio - 29 Feb 2008 23:24 GMT

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

Reply to this Message

OssieMac - 01 Mar 2008 05:10 GMT

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

Signature

Regards,

OssieMac

> Good evening:
>
[quoted text clipped - 44 lines]
>
> End Sub

Reply to this Message

Rate this thread: