Alternative Loop

[kermitfrog123]

Hi All,

I have the below VBA code which does what I need but it is very slow. Can someone tell me if there is a way this can be done in one step rather than looping through all 2500 cells.

    Application.ScreenUpdating = False

    Dim Current_Date As Date
    Dim Date_String As String
    
    Dim rCell As Range
    Dim rRng As Range


    Set rRng = Range("F3:F2500")


    For Each rCell In rRng.Cells
        
    rCell.Select
    Date_String = rCell.Value
    Current_Date = CDate(Date_String)
    rCell.Select
    rCell.Value = Current_Date
    
    Next rCell


    Application.ScreenUpdating = True

 

[Fluff]

If you are just converting text dates to real dates use text to columns & on page 3 select date

 

[kermitfrog123]

Im not sure I understand. On Page 3 ??

 

[kermitfrog123]

I think I understand what you meant now. Can I do this within a Macro ?

 

[Rick Rothstein]

I think I understand what you meant now. Can I do this within a Macro ?

Yes, but we need to know what the values in the cell look like and which part of that value is the month value and which part is the day value

 

[Joe4]

Im not sure I understand. On Page 3 ??

Step 3 of the Text to Columns Wizard.

I think I understand what you meant now. Can I do this within a Macro ?

One way is to turn on the Macro Recorder and record yourself doing it manually.
It will give the VBA code needed to do that.