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

• #43263 ROBOTER addikt Fferi50 #43262

  Új Válasz 2020-03-15 19:48:46 #43263

  Ú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

  

  ROBOTER

  addikt

  válasz Fferi50 #43262 üzenetére

  Az dinamikusan létrehozott laphoz tartozó eseménykezelőt leredukáltam 2 sorra (SUB-END SUB). A hiba így is fennáll:
  Sub writeCode(sheetCodename As String)
'új laphoz rendelt eseménykezelő létrehozása programkód dinamikus beírásával
    Dim c As Long
    'nem a munkalap szimbolikus nevére, hanem a kódnevére van szükségünk, ezért a sheetCodename ezt tartalmazza
    c = Application.VBE.ActiveVBProject.VBComponents(sheetCodename).CodeModule.CountOfLines
        
    ' maga a kód egy stringben tárolva
    myCode = ""
    myCode = myCode & vbLf & "Private Sub Worksheet_Change(ByVal Target As Range)"
    myCode = myCode & vbLf & "End Sub"
      
    'programkód beírása a forráskódba, amely az új munkafüzethez tartozik
    With Application.VBE.ActiveVBProject.VBComponents(sheetCodename).CodeModule
        .InsertLines c + 1, "'dinamukusan létrehozott programkód"
        .AddFromString myCode
       
    End With
End Sub

  Ha nem hívom meg ezt a Sub-ot, a hiba megszűnik.

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