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

• #45457 Fferi50 Topikgazda ReSeTer #45456

  Új Válasz 2020-11-26 11:36:41 #45457

  Ú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 ReSeTer #45456 üzenetére

  Szia!
  Lehet, hogy túlgondoltam vagy nem értettem pontosan, mit szeretnél.
  de nem láttam, hogy bármit is kijelölne, sőt a nextnél mindig visszamegy a For Each részig.
  A For .... Next egy ciklus, pont az a lényege, hogy a két utasítás közötti részt többször is végrehajtja.
  A kijelölés pedig a Next után történik, miután mindent megvizsgált.
  A SpecialCells(xlCellTypeLastCell)) a munkalap utolsó használt celláját adja vissza
  a SpecialCells(xlCellTypeFormulas) azokat a cellákat, amelyekben képletek vannak
  a SpecialCells(xlCellTypeConstants) azokat, amelyekben értékek vannak.
  Mivel nem kizárt, hogy a használt terület nem összefüggő, vannak üres sorral és oszloppal elválaszott munkalaprészek, ezért végigmegy ezeken a területeken és megnézi, hogy mely sorokat-oszlopokat foglalja el. Ezek közül a legmagasabb sorszám és legnagyobb oszlopszám határozza meg a képlettel és/vagy értékekkel kitöltött területet.
  Jelenleg sikerült ezzel megoldani látszólag:
  Range("A5:RG5", Range("A5:RG5").End(xlDown)).Select
  Ez akkor jó, ha tudod biztosan, hogy melyik az utolsó oszlopod és abban az oszlopban minden cella ki van töltve.
  Egyébként ebben a kódban nem tudom mit jelent a második range értéke.
  Melyik kódra gondoltál? Arra amit most használsz vagy arra amit küldtem?
  Amit most írtál, abban az RG oszlop 5-től lefelé a folyamatosan kitöltött utolsó cellát jelenti.
  Az enyémhez fentebb írtam a magyarázatot.
  Üdv.

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