Edgarvelez
Board Regular
- Joined
- Jun 6, 2019
- Messages
- 197
- Office Version
- 2016
- Platform
- Windows
Sub Test()
Dim a As Variant
Dim i As Long
With Sheets("Dashboard")
a = .Range("B21", .Range("B" & Rows.Count).End(xlUp)).Value
End With
For i = 1 To UBound(a)
a(i, 1) = Format(a(i, 1), "yyyymmdd")
Next i
Sheets("Split Shipment Import").Range("C2").Resize(UBound(a)).Value = a
End Sub
Try this.
VBA Code:Sub Test() Dim a As Variant Dim i As Long With Sheets("Dashboard") a = .Range("B21", .Range("B" & Rows.Count).End(xlUp)).Value End With For i = 1 To UBound(a) a(i, 1) = Format(a(i, 1), "yyyymmdd") Next i Sheets("Split Shipment Import").Range("C2").Resize(UBound(a)).Value = a End Sub