نقل صفوف كاملة الى صفحة اخرى اذا تحقق شرط

[فراسكو]

السلام عليكم ورحمة الله وبركاته 

بالمرفقات ملف فيه جدول اذا تحقق شرط معين ينقل صف كامل الى الصفحة الثانية المرفق فيه ايضا شرح لطلبي وشكرا لكم .

New Microsoft Excel Worksheet.rar

تم تعديل فبراير 19, 2014 بواسطه فراسكو

[رجب جاويش]

أخى الفاضل / فراسكو

جرب المرفق

اكتب كلمة من الكلمات المقصودة فى العمود E ليتم المطلوب

هذا كود فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
Set sh = Sheets("ورقة2")
LR = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
If Not Intersect(Target, Range("E:E")) Is Nothing Then
If Not IsEmpty(Target) And Target.Text = "صادر" Or Target.Text = "فوق" Or Target.Text = "وارد" Or Target.Text = "اسفل" Then
x = Target.Row
Target.Offset(0, -4).Resize(1, 5).Copy
sh.Range("A" & LR).PasteSpecial xlPasteValues
Rows(x).EntireRow.Delete shift:=xlUp
sh.Cells(LR, 1).Value = sh.Cells(LR, 1).Row - 1
LR1 = Cells(Rows.Count, 1).End(xlUp).Row
Application.EnableEvents = False
For i = 2 To LR1
Cells(i, 1) = Cells(i, 1).Row - 1
Next
Application.EnableEvents = True
End If
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
Set sh = Nothing
End Sub

New Microsoft Excel Worksheet1.rar

[فراسكو]

استاذ رجب جاويش لطالما كنت لي عونا في وقت الشدائد ولطالما دعوت لك من ظهر قلبي بالخير والعمل الصالح اشكرك كل الشكر وانا اتمنى من حضرتك امنية ان تعمل لنا شرح على الكود السحري بصراحة سحري والله انتظر ردك على صفتحك في الفيس بوك شكرا 

[رجب جاويش]

أخى الفاضل / فراسكو

شكرا جزيلا لك أخى الفاضل على هذه الكلمات الطيبة

وجزاك الله كل خير

[احمد الحاوي]

يارب يبارك فيك استاذنا(رجب جاويش ) .. كما العهد بك دائما .. اكثر من رائع

جزيت الخير من رب العالمين

[رجب جاويش]

أخى الفاضل / احمد الحاوي

شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة

وجزاك الله كل خير

[عادل ابوزيد]

الاستاذ الكبير المحترم رجب جاويش

ابداعات تبهرنا جعلها الله لك نوراً يوم القيامة

[رجب جاويش]

أخى الفاضل / عادل ابو زيد

جزاك الله كل خير على هذه الكلمات الطيبة

[حمادة باشا]

الأستاذ الكبير/ رجب جاويش

السلام عليكم ورحمة الله وبركاته

كود رائع ومختصر - جزاكم الله كل خير

تقبل تحياتي

[ا بو سليمان]

ما شاء الله تبارك  الله 

 

لدي مشكله في نقل بيانات  الى اعمدة  اخري او صفحات اخري 

 

ويبدلي الحل لديكم  

 

سوف اكتب المشكله بالتفصيل وارجو ان يتم حلها على يديكم ان شاء الله

[رجب جاويش]

أخى الفاضل / حمادة باشا

شكرا جزيلا أخى الفاضل على كلماتك الطيبة

وجزاك الله كل خير

[رجب جاويش]

أخى الفاضل / zmzm

أولا : لك منى دعوة طيبة لتغيير اسم الظهور الى اللغة العربية ليسهل التواصل بيننا

ثانيا : برجاء فتح موضوع جديد تطلب فيه ما تشاء