Új hozzászólás Aktív témák

• #40901 Delila_1 veterán oke #40900

  Új Válasz 2019-04-25 15:59:02 #40901

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz oke #40900 üzenetére

  Az L vegyes értékeiből dátumot, ill. pontot hoz létre az M oszlopban:

  Dim usor As Long

usor = Range("L" & Rows.Count).End(xlUp).Row
With Range("M2:M" & usor)
.FormulaR1C1 = "=IFERROR(DATEVALUE(MID(RC[-1],3,10)),""."")"
.Copy
.PasteSpecial xlPasteValues
.NumberFormat = "m/d/yyyy"
End With

Új hozzászólás Aktív témák