Σπύρο γεια σου και σε ευχαριστω για το ενδιαφερον.
ο κώδικας είναι ο παρακάτω ο οποίος είναι σε ένα κουμπί που σβήνει όλες τις κενές γραμμές στον πίνακα :
το αρχείο δεν μπόρεσα να το ανεβάσω από εδώ, και το ανέβασα από άλλη σελίδα για να το δεις ακριβός πως είναι.
https://ufile.io/15181
Option Explicit
Sub διαγραφή()
'Code from Officetricks.com - How to Delete Blank Rows in Excel using
VBA?
Dim iRow As Double, iCol As Double
iRow = 1
iCol = 1
While True
'Check whether Cell 1 is Blank for that a row
ActiveSheet.Cells(iRow, iCol).Select
If
VBA.Trim(ActiveSheet.Cells(iRow, iCol)) = "" Then
While True
'If Cell 1 is Blank then verify all the columns in that row
If
VBA.Trim(ActiveSheet.Cells(iRow, iCol)) <> "" Then
GoTo Skip_To_Next_Row:
End If
iCol = iCol + 1
If iCol > 256 Then GoTo Del_Row:
Wend
Del_Row:
'If first cell is Empty, then execute
VBA Code to Delete a Row in Excel
ActiveSheet.Rows(iRow).Delete Shift:=xlUp
iRow = iRow - 1
End If
Skip_To_Next_Row:
iRow = iRow + 1
If ActiveSheet.UsedRange.Rows.Count < 2 Then GoTo End_Process:
If iRow > ActiveSheet.UsedRange.Rows.Count Then GoTo End_Process:
iCol = 1
Wend
End_Process:
MsgBox "Η διαγραφή ολοκληρώθηκε."
End Sub
2) Για το add-in δεν κατάλαβα πως ακριβός να το ενεργοποιήσω μόνιμα από την κορδέλα, αλλά δεν το έχω σε φάκελο, είναι στην επιφάνεια εργασίας το αρχείο.