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

• #36567 Fferi50 Topikgazda fricc_ #36565

  Új Válasz 2017-11-17 06:28:15 #36567

  Ú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 fricc_ #36565 üzenetére

  Szia!

  "i= 1
  n = 0
  For i = 1 To 10
  If Range("i5").EntireColumn.Hidden Then
  n = i"

  A kiemelt sorral az a baj, hogy a Range("i5") az i oszlop 5. celláját nézi meg !!!.
  Ha ciklussal mész akkor a Cells tulajdonságot kell használni:
  If Cells(5,i).EntireColumn.Hidden Then

  Vagy:
  Dim cl As Range
For Each cl in Rows(5).Cells :if cl.EntireColumn.Hidden Then
n=cl.Column :Exit For
  Next
  A kódod következő része pedig a D oszlopot rejtettnek találva az n értékét 2 -re állítja, legyen az bármennyi is az előző rész alapján.

  Üdv.

  Ps. Légy szives, használd a Programkód gombot, ha makrót másolsz be.

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