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

• #52887 Fferi50 Topikgazda Delila_1 #52881

  Új Válasz 2024-06-26 15:49:11 #52887

  Ú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 Delila_1 #52881 üzenetére

  Szia!
  Ha a 13. sorban kezdődik a szűrésre kijelölt tartomány (mert a fejléc a 12. sorban van), akkor szerintem lehet fixre venni, a látható tartományt nem fogja befolyásolni.
  A ciklus pedig azért kell, mert amikor nem összefüggő a szűrt tartomány (több külön területet is tartalmaz), akkor sajnos csak így lehet beírni mindenhova az értéket. Legalábbis nálam O365-ben így viselkedett a teszten. Ha egyben van a szűrt terület, akkor ment az egyben értékadás. Mivel egy-egy terület összefűggő, így a ciklust területre vonatkoztatva nem kell minden cellán végigmenni:
  For Each trlt In srng.Columns(1).SpecialCells(xlCellTypeVisible).Areas: trlt.Value="x" : Next
  Sőt az sem mindegy milyen sorrendben határozom meg a látható cellákat.
  Tartomány.oszlop.látható cellák ad jó eredményt, a Tartomány.láthatócellák.oszlop pedig sajnos nem az igazi.
  Az állomány méretét tekintve szerintem nem okozhat számottevő lassulást a ciklus.
  Üdv.

• #52882 gycs02 tag Delila_1 #52881

  Új Válasz 2024-06-26 12:49:21 #52882

  Ú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

  

  gycs02

  tag

  válasz Delila_1 #52881 üzenetére

  Próbálgattam a Tieddel variálni, de nem jutottam előrébb. Abban az esetben nem tölti az előzőekben említett cellákat, ha itt Range("cj" & elso) = "x" a cj helyett cj13-at írok, igaz így kitölti azt amit szeretnék, de kitölti az összes ezalatt látható sort is. A Tieddel felfelé tölti a látható sorokat, az én kontárkodásommal meg lefelé.

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