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

• #44323 Sprite75 tag Delila_1 #44322

  Új Válasz 2020-06-23 12:25:29 #44323

  Ú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 Delila_1 #44322 üzenetére

  Az And Target <> "" feltételt átírtam erre IsNumeric(Target) mert hibaüzenetet dobott amikor elíndítottam az Újsor makrót.

  Az új sor makró ez:

  Sub Újsor()
   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
    
End Sub

  Így hibaüzenet nincs.
  Viszont a Q oszlopba beállítottam érvényesítést, hogy csak számot írhassanak bele, de ha mégis betűt írok véletlenül és jön a hibaüzenet az érvényesítés miatt akkor lefut a sorszámozás.
  Ez ki lehet valahogy küszöbölni?

  Tudod a "bolond boztonság" miatt

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