month to number
Tim,
Can you stand one more solution? You should be able to paste the following into a module, select the cells with the names and run the Sub. '--------------------------------------------------- Option Base 1 'This is required at the top of the module. 'Called by Sub ProvideTheMonth Function GetMonthIndex(ByRef Mth As String) As Long Dim N As Long Dim ShortMonth As Variant ShortMonth = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", _ "Jul", "Aug", "Sep", "Oct", "Nov", "Dec") For N = 1 To 12 If ShortMonth(N) = Mth Then GetMonthIndex = N Exit Function End If Next GetMonthIndex = 0 End Function 'The month index is added to Column AF in the same row as the name. 'Upper case, lower case and full month names will work. 'Column AF is column 32 'Calls Function GetMonthIndex Sub ProvideTheMonth() Dim i As Long Dim MthRng As Range Dim Mth As Range Set MthRng = Selection For Each Mth In MthRng i = GetMonthIndex(Left$(WorksheetFunction.Proper(Mth.V alue), 3)) If i = 0 Then Cells(Mth.Row, 32).Value = "Check month name" Else Cells(Mth.Row, 32).Value = i End If Next Set Mth = Nothing Set MthRng = Nothing End Sub '------------------------------------------------------ Regards, Jim Cone San Francisco, CA '******************** Hi, Can you show me how to write a macro to convert a three place month abreviation, Jan, Feb, Mar, etc., in column Y into a number, 1, 2, 3, etc., in column AF? Thank You. Regards, Tim |
All times are GMT +1. The time now is 02:59 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com