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

• #51071 föccer nagyúr Delila_1 #51070

  Új Válasz 2023-06-22 22:31:38 #51071

  Ú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

  

  föccer

  nagyúr

  válasz Delila_1 #51070 üzenetére

  Hát, ahogy jöttem-mentem a városban kattogot az agyam rajta. Lehet hogy az egészet beteszem egy select case statementbe. Miáltal fixen 0-20 közötti szám jöhet a feltétel alapjául, és a munkalapok csak ezektől függenek, így lehet hogy ebben az esetben ez lesz az egyszerűbb...

  EE_szama = Sheets("KEZELŐ").Range("D23").Value

  For Akt_sor = 3 To 35
  Sheets("Kezelő").Range("D17").Value = Sheets("Kezelő").Cells(Akt_sor, 10)
  Select Case EE_szama
  Case 1
  Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1")).Select
  Case 2
  Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2")).Select
  ....
  ......
  .....
  ....
  Case Else
  Resume Next
  End Select

  ' és akkor ide jönne a nyomtatás.
  Next

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