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

• #44346 Sprite75 tag Fferi50 #44345

  Új Válasz 2020-06-24 08:05:32 #44346

  Ú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

  

  Sprite75

  tag

  válasz Fferi50 #44345 üzenetére

  [link] Ez az.

  Itt még nincsbenne a Application.EnableEvents=False / True amit irtál de volt már benne korábban sz is mer úgy is próbáltam már. Szintén másik táblázatban van ilyen Application.EnableEvents=False / True amiben régebben segítettetek, onnan jött az ötlet hogy kipróbáljam.

  Viszont amikor tegnap próbáltam beletenni a Application.EnableEvents=False sort akkor a Dim után raktam be nem pedig elé.
  Most beraktam elé és minden szuper
  Erről írtam , hogy én csak "heggesztgetem" a makrókat ti pedig profi módon tudjátok, hogy mi mért van

  Nagyon köszönöm a segítséget .

  Sub Újsor()
    Application.EnableEvents = False
   Dim usor As Long
    usor = Range("C" & Rows.Count).End(xlUp).Row
    ActiveSheet.Unprotect Password:="baromfi"
    Rows(usor).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    Range("A" & usor).Select
    Application.EnableEvents = True
    
    
End Sub

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