11-10-14, 12:15
|
| Όνομα: Βασίλης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 08-06-2012
Μηνύματα: 52
| |
Χμ. Κάτι δεν γίνεται σωστά στο δικό μου....
αυτό τον κώδικα χρησιμοποιώ
και χρησιμοποιώ αλλο αρχείο με μόνο μία στήλη ..... Κώδικας: Sub DeleteRows()
'
' deleterowsuptodown Macro
'
Dim LastRowPort As Long, a As Long
LastRowPort = Cells(Rows.Count, 1).End(xlUp).Row
For a = LastRowPort To 1 Step -1
If a > 1 And Cells(a, 1) <> "" Then
Cells(a, 1).EntireRow.Delete
End If
Next a
Selection.AutoFilter
End Sub
Τελευταία επεξεργασία από το χρήστη Βασίλης Καραχάλιος : 11-10-14 στις 13:13.
|