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

• #13159 Delila_1 veterán plaschil #13158

  Új Válasz 2012-03-08 18:19:41 #13159

  Ú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

  

  Delila_1

  veterán

  válasz plaschil #13158 üzenetére

  Sub valami()
  Dim sor As Long
  
  sor = 1
  Do While Cells(sor, 1) <> ""
  If Rows(sor).Hidden = False Then
  MsgBox sor
  End If
  sor = sor + 1
  Loop
  End Sub

  Az Msgbox helyére jön a műveleted.

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