Fill Dates

[helpexcel]

Is there an easier way to fill column B with the month of the date in column A.
This is what i am currently doing:
Sheet1.Range("B3:B" & Lastrow).Formula = "=Text(A3,""MMMM"")"

 

[Fluff]

What's difficult with the code you've posted?

 

[helpexcel]

It works great, didn't know if there was a faster way?

 

[Fluff]

Not if you want to keep the formula

 

[helpexcel]

If no formulas makes the code run faster, and accomplishes the same thing, then goodbye formulas.

 

[Fluff]

Don't know if this will be quicker, it depends on the amount of data, but try

With Sheet1.Range("B2:B" & lastrow)
   .Value = Evaluate(Replace("if(@<>"""",text(@,""MMMM""),"""")", "@", .Offset(, -1).Address))
End With

 

[helpexcel]

THANKS! I think it is faster.

I'll be playing with this piece,text(@,""MMMM""), to see if I can use it for WeekNum, and Year().

 

[Fluff]

If you get into problems trying to adapt it, then just start a new thread.

 

[My Aswer Is This]

If you would like it to happen automatically as you enter dates in column A
Try this:

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  9/10/2018  3:02:38 PM  EDT
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
Target.Offset(, 1).Value = Format(Target.Value, "MMMM")
End If
End Sub