skyblue قام بنشر أغسطس 18, 2009 قام بنشر أغسطس 18, 2009 السلام عليكم ورحمة الله وبركاته وبعد : الاساتذة المشرفين ولاعضاء نحتاج دائما الى ان يكون الترحيل حسب مانحتاجه ونأمل منكم التكرم بالمساعدة في ايجاد حل لذلك وحسب المرفق تحياتي لكم ترحيل حسب الطلب.rar
ابو اسامة العينبوسي قام بنشر أغسطس 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 بواسطه ابو اسامة العينبوسي
احمدزمان قام بنشر أغسطس 21, 2009 قام بنشر أغسطس 21, 2009 السلام عليكم اخي ابو اسامة كل سنة و انته طيب الله يتقبل الصيام و القيام و صالح الأعمال جزاك الله كل خير اخي سكاي بلو كل سنة وانته طيب الله يتقبل منكم
خالد القدس قام بنشر أغسطس 21, 2009 قام بنشر أغسطس 21, 2009 (معدل) السلام عليكم مبدع كعادتك أستاذي الأكرم أبواسامة تقبل الله منا ومنكم صالح الأعمال بمناسبة حلول الشهر الكريم ووفقنا لصيامه وقيامه وتقبله منا وبلغنا إياه سنين عديدة وأزمنة مديدة تم تعديل أغسطس 21, 2009 بواسطه خالد القدس
skyblue قام بنشر أغسطس 21, 2009 الكاتب قام بنشر أغسطس 21, 2009 استاذي الفاضل ابو اسامة العينبوسي كثر الله خيرك على هذا المعروف و رحم الله والديك واثابك الجنة . وكل عام وانت بخير وشهر مبارك . الاساتذة احمد يعقوب وخالد القدس كل عام وانتم بخير وشهر كريم علينا وعليكم وعلى امتنا الاسلامية
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.