LOST: Dont know where to start

Catalin.B · #1 02-29-2012, 11:39 AM

try to separate part 5 from the rest of the code; The "P" entered by a macro
is not a worksheet_change event, like typing it .
So , at the end of part 3 of your code before End Sub, call this macro, with:

Code:

Call Date

You might need to call this macro from Private Sub Worksheet_Change too

Code:


sub Date()
Dim cell As Range

 For Each cell In Target  
    If Not Intersect(cell, Range("H:Q")) Is Nothing Then
        If UCase(cell) = "P" Then
            Application.EnableEvents = False
            Range("T" & cell.Row) = Now
            Application.EnableEvents = True
        End If
    End If
Next cell
end sub

Bondai · #2 03-01-2012, 06:05 AM

Thank you Catalin
I'll give it a go

Bondai

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Dont print header on first page	jezh	Word	1	02-01-2012 09:37 AM
Dont Speak Spanish	Dawneas	Office	1	01-30-2011 10:39 PM
I dont have Microsoft Office?	JasonKoltai	Office	1	09-26-2009 05:27 PM
word shortcuts dont work	glennc	Word	4	08-10-2009 07:10 PM
Hyperlinks dont work	iturnrocks	Outlook	0	11-21-2006 10:19 AM