Left function to paste

[excel01noob]

Have a column with dates in the format "general" including the time (column G)
2021-03-01T00:00:00.000000

I need to take only the date in the format DDMMYYYY which I am trying to insert in column Q all the way down until the last row
What is missing in the below code?

Sub lefties()


Dim LastRow As Long
Dim LResult As String

LastRow = Cells(Rows.Count, "G").End(xlUp).Row

LResult = Left(Range("G2:G" & LastRow), 10)

Range("Q2:Q" & LastRow).Value = LResult

End Sub

 

[rpaulson]

Sub lefties()


Dim LastRow As Long
Dim LResult As String

LastRow = Cells(Rows.Count, "G").End(xlUp).Row

for r = 2 to LastRow
LResult = Left(Range("G" & r), 10)

Range("Q" & r).Value = LResult
next r

End Sub

 

[Fluff]

Another option

Sub excel01noob()
   With Range("G2", Range("G" & Rows.Count).End(xlUp))
      .Offset(, 10).Value = Evaluate("if({1},left(" & .Address & ",10))")
   End With
End Sub

 

[excel01noob]

both work

Thank you!!!

 

[Fluff]

Glad we could help & thanks for the feedback.