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

• #45331 Fferi50 Topikgazda m.zmrzlina #45328

  Új Válasz 2020-11-16 16:30:28 #45331

  Ú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 m.zmrzlina #45328 üzenetére

  Szia!űjEsetleg csak a feltétel tartományokat beolvasni:
  Arra gondoltam, hogy csak azokat az oszlopokat olvasd be külön-külön tömbökbe, amelyekre a feltételt meg kell vizsgálni. Így lesz 2-3 (esetleg több) egydimenziós(nak tűnő) tömböd, amelyeknek azonos sorában lesznek az egy sorhoz tartozó vizsgálandó elemei, tehát egy ciklussal elég végigmenni a vizsgálat során.
  A feltételnek megfelelő sorok számát egy szövegváltozóban gyűjteném összePe Pl.
  dim sorkell as string
sorkell="1:1"
sorkell=sorkell & ",5:5")
sorkell=sorkell & ",9:9")
  Persze ezeket a feltétel megfelelősége esetén.
  A hasonlítás megtörténte után pedig:
  Sheets(forrás).Usedrange.Range(sorkell).Copy Sheets(eredmény).Range("A1")
  egy lépésben átmásolja a teljes szűrt tartományt.
  Üdv.

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