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

• #40653 Delila_1 veterán oke #40651

  Új Válasz 2019-04-04 19:24:56 #40653

  Ú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 #40651 üzenetére

  Sub Datumok()
Dim usor As Long

With Range("H2")
'H2-be dátum képlete
.FormulaR1C1 = "=DATEVALUE(LEFT(RC[-1],10))"

'Képlet másolása és érték beillesztése irányítottan
.Copy
.PasteSpecial xlPasteValues

.NumberFormat = "m/d/yyyy" 'Cella formátuma
.FlashFill 'Villámkitöltés
End With

usor = Range("H" & Rows.Count).End(xlUp).Row 'alsó sor a H oszlopban

'Képlet I2-től I alsó sorig
Range("I2:I" & usor).FormulaR1C1 = _
"=IF(RC[-1]<TODAY(),""Régebbi"",IF(RC[-1]=TODAY(),"" Mai"",""Jövőbeni""))"
End Sub

  Némi magyarázatot tettem az egyes sorokhoz.

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