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

• #42102 Fferi50 Topikgazda Richard #42100

  Új Válasz 2019-11-03 17:17:57 #42102

  Ú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 Richard #42100 üzenetére

  Szia!
  '"vannak olyan munkalapok ahol egyéb számításhoz szükséges változók és egyebek vannak szintén külön táblában."
  Ha tudod, hogy melyek ezek a munkalapok, akkor a nevük alapján ki lehet hagyni a másolásból:
  Dim mlapnevek as String
mlapnevek="Munka1,Munka2,Munka5,Munka11"
For Each sh In Worksheets
   If sh.ListObjects.Count > 0 Then
             If Instr(mlapnevek,sh.name)=0 Then
                    For Each tbl                   
                           jöhet a folytatás
                     Next
              End If 
  
  A vastag sorokat kell beírni pluszba. Az mlapnevek változóba azok a nevek kerüljenek, amely munkalapokról nem kell másolni.
  Üdv.

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