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

• #18730 Agony aktív tag Delila_1 #18729

  Új Válasz 2013-08-10 20:59:26 #18730

  Ú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

  

  Agony

  aktív tag

  válasz Delila_1 #18729 üzenetére

  Köszönöm a választ!

  Végül ez lett a működő koncepció:

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

  Remélem, nincs benne túl nagy blődség, minden esetre a funkcióját ellátja.

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