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

• #35864 Delila_1 veterán föccer #35863

  Új Válasz 2017-07-31 13:37:04 #35864

  Ú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 föccer #35863 üzenetére

  Szűrés után futtathatod a modulba másolt makrót.

  Sub sorszam()
Dim sor As Long, oszlop As Integer
For sor = 23 To 1000
If Rows(sor).Hidden = False Then
For oszlop = 1 To 5
Cells(1, oszlop) = Cells(sor, oszlop)
Next

For oszlop = 15 To 24
Cells(1, oszlop) = Cells(sor, oszlop)
Next
Exit Sub
End If
Next
End Sub

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