Ú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.

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

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

  Ú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

  Azt nem tudom, hogy makró nélkül megoldható-e de itt egy példa egy makrós megoldásra:

  Sub atszamoz()
  Cells(1, 1).Select
  i = 1
  Do While ActiveCell.Value <> ""
  If ActiveCell.EntireRow.Hidden = False Then
  ActiveCell.Value = i
  i = i + 1
  Else
  ActiveCell.Value = 0
  End If
  ActiveCell.Offset(1, 0).Select
  Loop
  End Sub

  A tartomány kijelölése másképp is megoldható mint itt. A lényeg: végigmész az egész tartományon leellenőrzöd, hogy rejtett-e az aktuális sor és ha nem rejtett adsz neki egy sorszámot. Ezt a makrót minden új szűrés után le kell futtatni.

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