Aysam_1(1) (1).xlsm | ||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
A | B | C | D | E | F | G | H | I | J | K | L | |||
7 | م | الاســــــــــم | النوع | تاريخ الميلاد | يوم | شهر | سنة | الديانة | المدرسة الابتدائي | حالة القيد | التحويل | الفصل | ||
8 | 1 | احمد محمد احمد محمد السيد | ذكر | مسلم | اسامة بن زيد | مستجد | ||||||||
9 | 2 | احمد محمد ذكي محفوظ الشريف | ذكر | مسلم | اسامة بن زيد | مستجد | ||||||||
10 | 3 | احمد محمد فتحي عزب محمد | ذكر | مسلم | اسامة بن زيد | مستجد | ||||||||
11 | 4 | احمد محمد لطفي محمد علي بركات | ذكر | مسلم | اسامة بن زيد | مستجد | ||||||||
12 | 5 | احمد محمد محمود ياسين النشار | ذكر | مسلم | اسامة بن زيد | مستجد | ||||||||
13 | 6 | احمد محمود حسن محمود حسن | ذكر | مسلم | اسامة بن زيد | مستجد | ||||||||
البيانات |
but It still deletes the entire row.Range("A2:L" & LastRow).SpecialCells(xlCellTypeVisible).Delete shift:=xlUp
Sub MoveRows()
Application.ScreenUpdating = False
Dim LastRow As Long, srcWS As Worksheet, desWS As Worksheet, rng As Range
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set srcWS = Sheets("Sheet1")
Set desWS = Sheets("Moved")
With srcWS
.Cells(1, 1).CurrentRegion.AutoFilter 6, "moved"
.AutoFilter.Range.Offset(1).Copy desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1)
Set rng = .Range("A2:L" & LastRow).SpecialCells(xlCellTypeVisible)
.Range("A1").AutoFilter
rng.Delete shift:=xlUp
End With
Application.ScreenUpdating = True
End Sub