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

• #36595 Pakliman tag fricc_ #36592

  Új Válasz 2017-11-17 23:39:59 #36595

  Ú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

  

  Pakliman

  tag

  válasz fricc_ #36592 üzenetére

  D oszlop elrejtve, a Debug.Print n 4-et ad vissza

  Dim ws As Worksheet
Dim n As Integer
Dim cl As Range

For Each ws In ThisWorkbook.Worksheets
n = 0

For Each cl In .Rows(5).Columns
If cl.Hidden Then
n = cl.Column
Exit For
End If
Next cl

Debug.Print ws.Name & "->n=" & n
Next ws

  Erre gondoltál?

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