Abo Sufiyan قام بنشر أغسطس 19, 2022 مشاركة قام بنشر أغسطس 19, 2022 بسم الله الرحمن الرحيم ..السلام عليكم ورحمة الله وبركاته ..السادة الأفاضل / مشرفي المنتدى تحية طيبة وبعد ..هذا كود ترحيل ..اريد السطر اللى بالون الاحمر بدلا من ان يرحل الى الخانة 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 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أغسطس 20, 2022 مشاركة قام بنشر أغسطس 20, 2022 Rng_1.Copy sh.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 1 رابط هذا التعليق شارك More sharing options...
Abo Sufiyan قام بنشر أغسطس 20, 2022 الكاتب مشاركة قام بنشر أغسطس 20, 2022 (معدل) اشكرك اخى الكريم وارجوا مساعدتى فى كود لمسح الصفحة الرئيسية بعد الترحيل تم تعديل أغسطس 20, 2022 بواسطه Abo Sufiyan رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أغسطس 20, 2022 مشاركة قام بنشر أغسطس 20, 2022 تفاديا للعمل على التخمين حاول رفع نسخة للملف رابط هذا التعليق شارك More sharing options...
Abo Sufiyan قام بنشر أغسطس 20, 2022 الكاتب مشاركة قام بنشر أغسطس 20, 2022 الملف اخى العزيز Book2.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر أغسطس 20, 2022 أفضل إجابة مشاركة قام بنشر أغسطس 20, 2022 (معدل) تفضل اخي الفاضل Book2-M-H.xlsm تم تعديل أغسطس 20, 2022 بواسطه Mohamed Hicham 1 رابط هذا التعليق شارك More sharing options...
Abo Sufiyan قام بنشر أغسطس 20, 2022 الكاتب مشاركة قام بنشر أغسطس 20, 2022 متشكر جدا ربنا يجعلة فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.