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

• #23480 m.zmrzlina senior tag -PLevi- #23477

  Új Válasz 2014-09-28 14:25:11 #23480

  Ú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

  

  m.zmrzlina

  senior tag

  válasz -PLevi- #23477 üzenetére

  Egy kicsit kecsesebb ez a megoldás de a lényeg ugyanaz mint az előbbinél.

  Sub atszamoz()
  holavege = Range("A" & Rows.Count).End(xlUp).Row
  Cells(1, 1).Select
  i = 1
  Do While Not ActiveCell.Row > holavege
  If ActiveCell.EntireRow.Hidden = False Then
  ActiveCell.Value = i
  i = i + 1
  Else
  ActiveCell = Empty
  End If
  ActiveCell.Offset(1, 0).Select
  Loop
  End Sub

  Ez nem kíván folyamatos tartományt az A oszlopban és nem ír semmit a rejtett sorokba.

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