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

• #51086 Fferi50 Topikgazda föccer #51081

  Új Válasz 2023-06-23 13:56:50 #51086

  Ú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

  

  Fferi50

  Topikgazda

  válasz föccer #51081 üzenetére

  Szia!
  Talán érdemes megfontolni a következő gondolatot:
  Dim nyomtatni
Const sheetek = "Kezelő,TOP LISTÁK,TOPELEMZES,VCBE,EE_1,EE_2,EE_3,EE_4,EE_5,EE_6,EE_7,EE_8,EE_9,EE_10,EE_11,EE_12,EE_13,EE_14,EE_15,EE_16,EE_17,EE_18,EE_19,EE_20"
EE_szama = Sheets("KEZELŐ").Range("D23").Value
nyomtatni = Split(Left(sheetek, InStr(sheetek, "EE_" & EE_szama) + IIf(EE_szama < 10, 3, 4)), ",")
Sheets(nyomtatni).Select
  Mivel egyben definiáltuk az összes nyomtatási szükségletet, az EE_szám alapján mindig le tudjuk vágni a megfelelő darabot belőle. A Split függvény pedig tömböt csinál a levágásból.
  Üdv.

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