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

• #37281 spe88 senior tag Delila_1 #37280

  Új Válasz 2018-02-07 13:14:22 #37281

  Ú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

  

  spe88

  senior tag

  válasz Delila_1 #37280 üzenetére

  Csak úgy nagyjából mondom ez egy darabjegyzék, ez tartalmazza egy adott elem szintjét, cikkszámát, revízióját, rajszámát, annak a revízióját, szabványnevét, angol nevét, német nevét, anyagát, tömegét, felületkezelését, jóváhagyás dátumát, jóváhagyás típusát, elem típusát, összeállítás beépülést, klasszifikációt meg még egy halom másik dolgot. Ezek mindegyikével dolgozik a a fájl adott füle. Egy halom oszlopot már kigyomláltam. Azért írtam csak le ezeket, mert nem véletlenül van benne ennyi.

  Már megbékéltem ezzel a másolós mókával, hogy lassú, amúgy az is lehet, hogy itt a rendszer ilyen tetű, mert hiába van 32 GB RAM a gépben, meg 100k-s proci, akkor is siralom minden.

  Viszont ezt a fejléc kiszedős makrót nem értem miért nem megy. Ez van a makróban:

  Most az AF oszlopba került az, amire az OK-ot kell szűrni.

  Sub SP_Delete()
'
' SP_Delete Makró
'

'
With Main_BOM
Dim tartomany As String, usor As Long

tartomany = Range("AF1").CurrentRegion.Address
ActiveSheet.Range(tartomany).AutoFilter Field:=1, Criteria1:="ok"
usor = Range("AF" & Rows.Count).End(xlUp).Row
Rows("2:" & usor).Delete Shift:=xlUp
ActiveSheet.Range(tartomany).AutoFilter Field:=1
End With
End Sub

  Köszönöm

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