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

• #53756 Emod kezdő dave0825 #53754

  Új Válasz 2025-01-03 14:39:13 #53756

  Ú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

  

  Emod

  kezdő

  válasz dave0825 #53754 üzenetére

  Ha nem akarsz makrózni:
  - Segédoszlop hozzáadása sorszámmal
  - utolsó sorszám alá 22, ha a 22. sor után kell az első üres
  - az új 22 cellában állva: kitöltés, sorozat, sorok, 13 lépés, vége a legnagyobb sorszám legyen
  - sorszám oszlop alapján sorba rendezés
  - valamelyik másik oszlopban rászűrni az üres cellákra, majd ezekben a sorokban sorszám törlése, szűrő eltávolítása

• #53755 karlkani aktív tag dave0825 #53754

  Új Válasz 2025-01-03 12:44:37 #53755

  Ú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

  

  karlkani

  aktív tag

  válasz dave0825 #53754 üzenetére

  Szia!

  Ezt találtam, kipróbáltam, működik. Kijelölöd az első sort, utána Ctrl+Shift+↓, majd futtatod a makrót.

  Sub SelectEveryThirdRow()
'Created by Sumit Bansal at https://trumpexcel.com/
Dim MyRange As Range
Dim RowSelect As Range
Dim i As Integer
Set MyRange = Selection
Set RowSelect = MyRange.Rows(10)
For i = 10 To MyRange.Rows.Count Step 13
Set RowSelect = Union(RowSelect, MyRange.Rows(i))
Next i
Application.Goto RowSelect
End Sub

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