Testing for Month in a cell using VBA

G

Guest

The following vb code is my starting point. I need to test for the Month then
the day.
Col A is a date( a2 to a365). What do I do to this code to accomplish my
gola?

CurDte = Date
SubStr = Month(CurDte)
Set MyCell = ActiveSheet.Range("A2")
If MyCell.Value < SubStr Then
Set MyCell = MyCell.Offset(1, 0)
ElseIf MyCell.Value.Month = SubStr Then
Exit Do
End If
 
G

Guest

This is just demo stuff:

Sub rick()

CurDte = Date
SubStr = Month(CurDte)

Set MyCell = ActiveSheet.Range("A2")
v = DateValue(MyCell.Value)
vm = Month(v)
If vm < SubStr Then
Set MyCell = MyCell.Offset(1, 0)
ElseIf vm = SubStr Then

End If
End Sub

Note we get v as the worksheet value
then calculate the month number as vm
we could get the day as

vd=Day(v)


Use these variables in your if/else/then logic
 

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