10-03-13, 16:43
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Καλησπέρα!
Εναλλακτικά μπορούμε να χρησιμοποιήσουμε: Κώδικας: Sub HideRows()
On Error Resume Next
Range("A6:A25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
Καλή συνέχεια!
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |