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

• #24373 slashing senior tag

  Új Válasz 2014-11-26 19:15:19 #24373

  Ú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

  

  slashing

  senior tag

  Makróval nálam ez így van megoldva:

  C oszlop az első legördülő listám ahol kiválasztom a szerszám számát. Ide van rakva egy Worksheet change:

  If Target.Column = 3 Then
  
  Sheets("Segédtábla").Range("E2") = Target
  Ervenyesites
  
  End If

  A kiválasztott szerszámot a segédtábla E2 cellájába másolja ész lefut az érvényesítés makró ami csinál egy szűrést egy 3 oszlopból és kb. 1000 sorból álló listából az E2 cella alapján:

  Sub Ervenyesites()
  
  Application.ScreenUpdating = False
  
  Set WS1 = Sheets("Segédtábla")
  Set WS2 = Sheets("Kritikus")
  
  WS1.Activate
  usor = Application.CountA(WS1.Columns(1))
  
  Range("A1:C" & usor).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
  "E1:E2"), CopyToRange:=Range("G1:H1"), Unique:=False
  
  WS2.Activate
  
  Application.ScreenUpdating = True
  
  End Sub

  Majd a G és a H oszlopba kiszűri az adatokat ahol szintén van névkezelővel adva egy dinamius tartomány amit a kiinduló táblázatuk következő két oszlopában le tudok nyitni de ez a kettő már az előzőleg kiválasztott szerszámhoz tartozik csak...

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