skyblue قام بنشر أغسطس 18, 2009 مشاركة قام بنشر أغسطس 18, 2009 السلام عليكم ورحمة الله وبركاته وبعد : الاساتذة المشرفين ولاعضاء نحتاج دائما الى ان يكون الترحيل حسب مانحتاجه ونأمل منكم التكرم بالمساعدة في ايجاد حل لذلك وحسب المرفق تحياتي لكم ترحيل حسب الطلب.rar رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر أغسطس 20, 2009 الكاتب مشاركة قام بنشر أغسطس 20, 2009 up رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر أغسطس 21, 2009 مشاركة قام بنشر أغسطس 21, 2009 (معدل) السلام عليكم اخى بلو سكاى لو كنت اوضحت بهذه الطريقه من اول لكان الموضوع سهل اليك الحل كان هناك خلل ايضا في نص الكتابه في اسمى سالم و سامي (اكتشفتهما بعد عناء) و هو انك سهوا اضفت مسافه بعد كل اسم منهما (راجع مرفقك) لذلك لم يعد سامي سامي و لا سالم سالم سلمك الله انتبه الى هذه الاخطاء Sub MoveValue2() Dim EndRow As Long If Sheets(1).Range("d7").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" Exit Sub End If '------------------------------------------------------------------ If Cells(2, 1) = "سالم" Or Cells(2, 1) = "سامي" Then EndRow = Sheets(2).Range("A1").CurrentRegion.Rows.Count Sheets(2).Cells(EndRow + 1, 1).Value = EndRow Sheets(2).Cells(EndRow + 1, 2).Value = Sheets(1).Cells(7, 4).Value Sheets(2).Cells(EndRow + 1, 3).Value = Sheets(1).Cells(8, 4).Value Sheets(2).Cells(EndRow + 1, 4).Value = Sheets(1).Cells(9, 4).Value Sheets(2).Cells(EndRow + 1, 5).Value = Sheets(1).Cells(10, 4).Value Sheets(2).Cells(EndRow + 1, 6).Value = Sheets(1).Cells(11, 4).Value Sheets(2).Cells(EndRow + 1, 7).Value = Sheets(1).Cells(2, 1).Value MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" '------------------------------------------------------------------ Else EndRow = Sheets(2).Range("A1").CurrentRegion.Rows.Count Sheets(2).Cells(EndRow + 1, 1).Value = EndRow Sheets(2).Cells(EndRow + 1, 4).Value = Sheets(1).Cells(9, 4).Value Sheets(2).Cells(EndRow + 1, 5).Value = Sheets(1).Cells(10, 4).Value Sheets(2).Cells(EndRow + 1, 7).Value = Sheets(1).Cells(2, 1).Value MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" End If ترحيل حسب الطلب2.rar تم تعديل أغسطس 21, 2009 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أغسطس 21, 2009 مشاركة قام بنشر أغسطس 21, 2009 السلام عليكم اخي ابو اسامة كل سنة و انته طيب الله يتقبل الصيام و القيام و صالح الأعمال جزاك الله كل خير اخي سكاي بلو كل سنة وانته طيب الله يتقبل منكم رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر أغسطس 21, 2009 مشاركة قام بنشر أغسطس 21, 2009 (معدل) السلام عليكم مبدع كعادتك أستاذي الأكرم أبواسامة تقبل الله منا ومنكم صالح الأعمال بمناسبة حلول الشهر الكريم ووفقنا لصيامه وقيامه وتقبله منا وبلغنا إياه سنين عديدة وأزمنة مديدة تم تعديل أغسطس 21, 2009 بواسطه خالد القدس رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر أغسطس 21, 2009 الكاتب مشاركة قام بنشر أغسطس 21, 2009 استاذي الفاضل ابو اسامة العينبوسي كثر الله خيرك على هذا المعروف و رحم الله والديك واثابك الجنة . وكل عام وانت بخير وشهر مبارك . الاساتذة احمد يعقوب وخالد القدس كل عام وانتم بخير وشهر كريم علينا وعليكم وعلى امتنا الاسلامية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان