Help with If function in vba

[laxminarayana]

Hi,

In the 5th line of the following code marked with red, i am trying to copy date from a cell.
How to do this?

Sub autotext()
If Worksheets("Sheet1").Range("B1").Value = Worksheets("Sheet1").Range("B3").Value Then
Worksheets("Sheet2").Activate
Range("D1").Select
Range("D1").Value = "This is the Date **\**\**** "
Else
Worksheets("Sheet2").Activate
Range("D1").Select
Range("D1").Value = "N/A"
End If
End Sub

Thank you

 

[Joe4]

It looks to me like the you are trying to place a sentence with a date in a cell, not copy the date from a cell.
Where is the data that you are trying to place in this cell coming from?

 

[laxminarayana]

It looks to me like the you are trying to place a sentence with a date in a cell, not copy the date from a cell.
Where is the data that you are trying to place in this cell coming from?

Thank you for replying

Sheet1 "B1" contains a Date, i want that to be inserted in the sentence.

That is if in sheet1 B1=B3 (both cells contain Dates) then sentence should be placed in D1 of sheet2 with date of Sheet1 B1.

 

[Jonmo1]

Try

Range("D1").Value = "This is the Date " & Format(Worksheets("Sheet1").Range("B1"),"mm\dd\yyyy")

Adjust the date format to your liking.

 

[laxminarayana]

Try

Range("D1").Value = "This is the Date " & Format(Worksheets("Sheet1").Range("B1"),"mm\dd\yyyy")

Adjust the date format to your liking.

wow that worked. Thank you very much

Can you please tell how to insert date that is one day after the date in cell B1

 

[Jonmo1]

You're welcome..

To add 1 day, try

Range("D1").Value = "This is the Date " & Format(Worksheets("Sheet1").Range("B1")+1,"mm\dd\yyyy")

 

[laxminarayana]

You're welcome..

To add 1 day, try

Range("D1").Value = "This is the Date " & Format(Worksheets("Sheet1").Range("B1")+1,"mm\dd\yyyy")

Once again Thank you.. for helping and sharing your knowledge.