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

• #45546 Lokids addikt Fferi50 #45544

  Új Válasz 2020-12-09 19:39:14 #45546

  Ú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

  

  Lokids

  addikt

  válasz Fferi50 #45544 üzenetére

  Sajnos az sem.
  Viszont megvan a megoldás!!!

  codeString = "    Target.Interior.ColorIndex = 0"
    With ActiveWorkbook.VBProject.VBComponents(newSheet.CodeName).CodeModule         .CreateEventProc "Change", "Worksheet"         .InsertLines .ProcBodyLine("Worksheet_Change", 0) + 1, codeString     End With

  Ez hozzáadja azt az 1 sort. Működik rendesen.

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