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

• #47882 Delila_1 veterán eszgé100 #47881

  Új Válasz 2021-11-28 07:01:45 #47882

  Ú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 eszgé100 #47881 üzenetére

  Gyorsíthatod a futást, ha nem állsz rá lépten-nyomon egyes cellákra. 5 ilyen feltételt láttam.

  If CStr(dat) <> "" Then
    Sheets(ssheet).Select
    Range(dat).Select
    ActiveCell.Formula = sDate
End If

  helyett írd ezt
  If CStr(dat) <> "" Then Sheets(ssheet).Range(dat).Formula = sDate

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