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

• #44316 Sprite75 tag

  Új Válasz 2020-06-22 15:52:56 #44316

  Ú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

  Szasztok
  Újabb makrós problémával kerültem szembe.
  Remélem most is tud valaki segíteni

  Adott az alábbi 2 makró, amiből az egyik egy új sort szúr be a táblázatba kiegészítenem most egy másikkal ami az újonnan beszúrt sor D oszopába (jelen esetben D54 cella) beírja a soron következő sorszámot ami a D oszlopban legutóbb szerepelt +1 (Tehát most a példában 15 következne.)
  Ott akadtam el, hogy már ki va választva az éppen aktuális cella de hogyan lehetne ide beíratni a soron következő sorszámot?

  Melléleem a makrókat és egy kéept is a tábláról

  Köszönöm szépen előre is

  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

  Sub sorsszam()
    Dim usor As Long
    
    usor = Range("C" & Rows.Count).End(xlUp).Row
    ActiveSheet.Unprotect Password:="baromfi"
    Range("D" & usor - 1).Select
    ActiveCell.FormulaR1C1=
    
        ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    
End Sub

  [kép]

  

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