Re : Date to be placed into Column "C" with matching value in Column "B" in same row


C

Corey

If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False And
CheckBox4 = False And CheckBox5 = False Then GoTo Here
Sheet1.Unprotect
Dim rngFound As Range
On Error Resume Next
With Worksheets("Main").Range("B17:B28")
Set rngFound = .Find(What:=Sheet5.Range("B1").Value, After:=.Range("B16"),
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=True, matchbyte:=False)
If Sheet5.Range("B1").Value = rngFound.Value Then
rngFound.Offset(0, 1).Activate
rngFound.Offset(0, 1).Value = Format(Now, "mmmm yy")
MsgBox "The selected Report pages have been sent to the printer",
vbInformation, " ...."
Sheet1.Protect
With ActiveSheet
Range("A1").Select
End With

Came up with this, but i get nothing placed in sheet1, why ?

Sheet5 Range(B1) has a value of "January 07" and
sheet1 has a value of "January 07" yet C17 does NOT get a value placed in
it????

Corey....
 
Ad

Advertisements

G

Guest

Corey, I could be missing something, but I don't see where your code tells it
to put anything in "C17" except a format.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top