thespardian
Board Regular
- Joined
- Aug 31, 2012
- Messages
- 119
- Office Version
- 2016
- 2013
- Platform
- Windows
Hi there!
I have a date input cell i.e P4. For example the current value of the P4 is 01.01.2020. The cell format is customized thus the date in the P4 cell is being displayed as "dd.mm.yyyy" 01.01.2020. In the Cell P3, I want symbol ">=" and date in the cell P4. So my desired output in the cell P3 is >=43831. (Please note that the date format has been changed from DATE to GENERAL in the cell P3)
i want the help on following code to get my desired result as shown above in the red.
Any help on the matter will be highly appreciated. TIA
I have a date input cell i.e P4. For example the current value of the P4 is 01.01.2020. The cell format is customized thus the date in the P4 cell is being displayed as "dd.mm.yyyy" 01.01.2020. In the Cell P3, I want symbol ">=" and date in the cell P4. So my desired output in the cell P3 is >=43831. (Please note that the date format has been changed from DATE to GENERAL in the cell P3)
i want the help on following code to get my desired result as shown above in the red.
VBA Code:
If Not Intersect(Target, Range("P4")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value = Empty Then Range("P3").Value = Empty
If Target.Value <> Empty Then Range("P3").Value = ">=" & Range("P4")
End if
Any help on the matter will be highly appreciated. TIA