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

• #36592 fricc_ tag Fferi50 #36567

  Új Válasz 2017-11-17 21:07:50 #36592

  Ú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

  

  fricc_

  tag

  válasz Fferi50 #36567 üzenetére

  Köszönöm, az első megoldást értem és működik is.

  A fix n=2 csak a debug miatt volt bent :-)

  Viszont mivel nyitott vagyok minden újra, főleg amit nem ismerek, kipróbáltam a másik két megoldást is, de a programba beillesztve nem tudtam működésre bírni.

  Talán az alábbi két megoldást ki kéne még egészíteni valamivel?

  A te 2. javaslatod:
  Dim cl As Range
For Each cl in Rows(5).Cells :if cl.EntireColumn.Hidden Then
n=cl.Column :Exit For

  ill. Pakliman megoldása:
  For Each cl in Rows(5).Columns: If cl.Hidden Then

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