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

• #36565 fricc_ tag Fferi50 #36542

  Új Válasz 2017-11-16 23:35:37 #36565

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

  Köszönöm, viszont kellene még egy kis segítség.

  Amit írtál működik, viszont én úgy képzeltem el, hogy a példánál maradva végig kell vizsgálni a teljes 5-ös sort nincs-e elrejtve egy oszlop..
  Ha elrejtem a D-s oszlopot akkor ez a makro i=10 n=2 vel fut le.
  Azt gondoltam i=4-nél teljesül a feltétel, és n felveszi i értékét de mégsem.
  Mit írtam rosszul?

  Dim i, n As Integer
  i = 1
  n = 0
  For i = 1 To 10
  If Range("i5").EntireColumn.Hidden Then
  n = i
  Exit For
  End If
  Next

  If Range("D5").EntireColumn.Hidden Then
  n = 2
  End If
  End Sub

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