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

• #18731 Delila_1 veterán Agony #18730

  Új Válasz 2013-08-11 07:09:44 #18731

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

  Jó, ahogy írtad.

  Egy lépésben:

  Sub tiz()
  Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaR1C1 = "=IF(RC[-1]=10,""Igaz"",""Hamis"")"
  End Sub

  Egyszerűbben:

  Sub Tiz()
  Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row) = "=if(A1=10,""Igaz"",""Hamis"")"
  End Sub

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