Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
corinarus la Simpatie.ro
 | Femeie
23 ani
Cluj
cauta Barbat
24 - 60 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 787
|
|
The following code will delete all hidden rows in the active sheet:
Sub deleteAllHidden()
Application.ScreenUpdating = False
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row
For iCntr = lastRow To 1 Step -1
If Rows(iCntr).Hidden = True Then
Rows(iCntr).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub |
Source:
|
|
| pus acum 1 an |
|