تعديل كود ترحيل

[Abo Sufiyan]

بسم الله الرحمن الرحيم ..السلام عليكم ورحمة الله وبركاته ..السادة الأفاضل / مشرفي المنتدى

تحية طيبة وبعد ..هذا كود ترحيل ..اريد السطر اللى بالون الاحمر بدلا من ان يرحل الى الخانة A5 يرحل عندالسطر الذى يالى اخر سطر بة كتابة

وبعد الترحيل يمسح الصفحة التى تم الترحيل منها Store Issue من اول البيانات من خلية A5

Sub shift_Class()
'
Set Sh = Sheets("Store Issue")
Sh.Select
Dim Arr(1 To 1)
'======================================================
End_Row = Sh.Cells(Rows.Count, "a").End(xlUp).Row
Set Rng = Sh.Range("a4:g" & End_Row)
'======================================================
Arr(1) = "Store Issue (2)"
Application.ScreenUpdating = False
'======================================================
'Call Clear_Class
For Class = 1 To 1
    If ActiveSheet.FilterMode = True Then
        ActiveSheet.ShowAllData
        ActiveSheet.AutoFilterMode = False
    End If
'======================================================
   
    Rng.AutoFilter Field:=7, Criteria1:=Arr(Class)
    Set Rng_1 = ActiveSheet.AutoFilter.Range.Offset(2).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1)

   Rng_1.Copy Sheets(Arr(Class)).Range("A5")

    Application.CutCopyMode = False
'======================================================
    If ActiveSheet.FilterMode = True Then
        ActiveSheet.ShowAllData
        ActiveSheet.AutoFilterMode = False
    End If
'======================================================
Next
'======================================================
'Call Hide_Columns_In_Range
'======================================================
Application.ScreenUpdating = True
'
End Sub

 

 

[محمد هشام.]

Rng_1.Copy sh.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

 

[Abo Sufiyan]

اشكرك اخى الكريم

وارجوا مساعدتى فى كود لمسح الصفحة الرئيسية بعد الترحيل

تم تعديل أغسطس 20, 2022 بواسطه Abo Sufiyan

[محمد هشام.]

تفاديا للعمل على التخمين حاول رفع نسخة للملف 

[Abo Sufiyan]

الملف اخى العزيز

Book2.xlsm

[محمد هشام.]

تفضل اخي الفاضل

Book2-M-H.xlsm

تم تعديل أغسطس 20, 2022 بواسطه Mohamed Hicham

[Abo Sufiyan]

متشكر جدا ربنا يجعلة فى ميزان حسناتك