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

• #41069 Delila_1 veterán Fferi50 #41068

  Új Válasz 2019-05-14 18:23:35 #41069

  Ú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

  

  Delila_1

  veterán

  válasz Fferi50 #41068 üzenetére

  Másképp értelmezem. A kitöltött táblázat egy bizonyos sorát kell törölni, majd ehelyett a tábla végére egy utolsó, üres sort beszúrni.

  Vegyük, hogy a J12 cella tartalmazza a törlendő sor számát, ott láttam helyet a beírásra.

  Sub Beszur_Torol()
Rows(Range("J12")).Delete Shift:=xlUp
Range("A109").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A108:H108").Copy
Range("A109:H109").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub

  41066, ny.janos: Az összesít képlettel az a baj, hogy a szűrést megszüntetve nem marad meg a sorszámozás.

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