ا بو سليمان قام بنشر سبتمبر 9, 2013 قام بنشر سبتمبر 9, 2013 (معدل) السلام عليكم ورحمة الله كما في العنوان نقل بيانات خليه الى خليه مجاوره مع ثبات الاعمدة + ان تحتفظ كل خليه بقيمتها عندما تنتقل ولا ترتبط بما سبقها من خليه في قيمتها والتفاصيل بالمف شكرا مقدما للجميع التنقل عبر الخلايا.rar تم تعديل سبتمبر 9, 2013 بواسطه zmzm
عبدالله باقشير قام بنشر سبتمبر 9, 2013 قام بنشر سبتمبر 9, 2013 السلام عليكم يتم النقل في الصف 3 Sub Macro1() Dim C As Integer For C = 19 To 2 Step -1 Cells(3, C).Value = Cells(3, C).Offset(0, -1).Value Next End Sub شاهد المرفق 2003 التنقل عبر الخلايا.rar 1
ا بو سليمان قام بنشر سبتمبر 9, 2013 الكاتب قام بنشر سبتمبر 9, 2013 السلام عليكم يتم النقل في الصف 3 Sub Macro1() Dim C As Integer For C = 19 To 2 Step -1 Cells(3, C).Value = Cells(3, C).Offset(0, -1).Value Next End Sub شاهد المرفق 2003 التنقل عبر الخلايا.rar السلام عليكم ورحمة الله اخي ومعلمي الفاضل فتحت الملف ووجدت العمل الرائع مشكووووووورا ولكن احببت ان اضع ارقام بدل التاريخ فلم استطيع هذا اولا ثانيا لو كا ن مفتاح النقل في الاعلى كان اافضل لانني ارغب ان اضع صفوف اخري تحت الصف الثالث من الاسفل شكر لك ارجو المساعدة في ذلك
بن علية حاجي قام بنشر سبتمبر 9, 2013 قام بنشر سبتمبر 9, 2013 السلام عليكم ورحمة الله أخي الكريم، هذا تعديل ملى كود أخي الفاضل والحبيب عبدالله جازاه الله عنا ألف خير، وأرجو أن يكون هو المطلوب... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar
عبدالله باقشير قام بنشر سبتمبر 9, 2013 قام بنشر سبتمبر 9, 2013 السلام عليكم احسنت اخي الحبيب بن عليه وجزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري
ا بو سليمان قام بنشر سبتمبر 9, 2013 الكاتب قام بنشر سبتمبر 9, 2013 السلام عليكم ورحمة الله أخي الكريم، هذا تعديل ملى كود أخي الفاضل والحبيب عبدالله جازاه الله عنا ألف خير، وأرجو أن يكون هو المطلوب... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar السلام عليكم ورحمة الله كم انتم رائعين يا اعضاء افسينا الملف يا احبتي يفتح وبعدها يعطي اشاره خطاء ويطلب الموافقه على ارسال بيانات تصحيح الى افس الرجاء الثاني هو ان يتم عمل ثلاث صفحات لنفس الشي مثل الصفحة الاولى الرجاء الثالث ان يتم عمل صفوف الى عدد 300 صف والجميع يتحرك مثله مثل الصف الثالث (( تحرك الخلايا )) ------------------ مشكوووووووووووووووووووووووووووووووووووورين مقدما -------------- انتم عوتونا على الدلع الزززززززززائد بالطلبات ........... ودائما الاخ الصغير يتدلع على اخوه الكبير
ا بو سليمان قام بنشر سبتمبر 9, 2013 الكاتب قام بنشر سبتمبر 9, 2013 السلام عليكم احسنت اخي الحبيب بن عليه وجزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري عبدالله باقشير مااااااااااااااااااااااااااااااااااركه مسجله في عالم الاكسل شكر لك ولا نستغني عن ابدااااااااااااعك
بن علية حاجي قام بنشر سبتمبر 9, 2013 قام بنشر سبتمبر 9, 2013 السلام عليكم ورحمة الله أخي الكريم، بالنسبة للتساؤل "الملف يا أحبتي يفتح وبعدها يعطي إشارة خطأ ويطلب الموافقة على إرسال بيانات تصحيح إلى أوفيس" هذا أعتقد سببه أنك تفتح الملف بواسطة نسخة أوفيس 2007 (خاصة) فهذه النسخة في العادة لا تتجاوب جيدا مع الملفات المصنوعة في نسخة أوفيس 2003... والله أعلم أما التساؤل الثاني "أن يتم عمل ثلاث صفحات لنفس الشيء مثل الصفحة الأولى" فهذه يمكنك فعلها بنسخ مضمون كل خلايا (بعد التحديد الكلي) هذه الورقة ثم لصقها في الأوراق الأخرى (وإذا كنت تريد الكود فقط لتنفيذه في الأوراق الأخرى فيمكنك فقط إنشاء أزرار في هذه الأوراق وربطها بالكود)... أما التساؤل الثالث "أن يتم عمل صفوف إلى عدد 300 صف والجميع يتحرك مثله مثل الصف الرابع (في المرفق الجديد) ((تحرك الخلايا))" فهذه قد تمت الإجابة عليه بالتعديل على الكود في الملف المرفق السابق الذي لا يفتح معك وما يبقى إلا تضيف في الأسفل الصفوف التي تريد (عندما يُفتح الملف)... أرجو أن يفتح الملف عندك وترى فيه الإجابة على هذا التساؤل... أعيد إرفاق الملف مرة أخرى احتياطا (تم فيه إنشاء الصفحات الثلاثة المتشابهة كما طلبت في الرجاء الثاني)... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar
ا بو سليمان قام بنشر سبتمبر 9, 2013 الكاتب قام بنشر سبتمبر 9, 2013 السلام عليكم ورحمة الله أخي الكريم، بالنسبة للتساؤل "الملف يا أحبتي يفتح وبعدها يعطي إشارة خطأ ويطلب الموافقة على إرسال بيانات تصحيح إلى أوفيس" هذا أعتقد سببه أنك تفتح الملف بواسطة نسخة أوفيس 2007 (خاصة) فهذه النسخة في العادة لا تتجاوب جيدا مع الملفات المصنوعة في نسخة أوفيس 2003... والله أعلم أما التساؤل الثاني "أن يتم عمل ثلاث صفحات لنفس الشيء مثل الصفحة الأولى" فهذه يمكنك فعلها بنسخ مضمون كل خلايا (بعد التحديد الكلي) هذه الورقة ثم لصقها في الأوراق الأخرى (وإذا كنت تريد الكود فقط لتنفيذه في الأوراق الأخرى فيمكنك فقط إنشاء أزرار في هذه الأوراق وربطها بالكود)... أما التساؤل الثالث "أن يتم عمل صفوف إلى عدد 300 صف والجميع يتحرك مثله مثل الصف الرابع (في المرفق الجديد) ((تحرك الخلايا))" فهذه قد تمت الإجابة عليه بالتعديل على الكود في الملف المرفق السابق الذي لا يفتح معك وما يبقى إلا تضيف في الأسفل الصفوف التي تريد (عندما يُفتح الملف)... أرجو أن يفتح الملف عندك وترى فيه الإجابة على هذا التساؤل... أعيد إرفاق الملف مرة أخرى احتياطا (تم فيه إنشاء الصفحات الثلاثة المتشابهة كما طلبت في الرجاء الثاني)... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar اللهم انك سميع تجيب الدعااااااااء ربي خالقي رازقي مالك الملك مالك يوم الدين اللهم افتح على احبتنا في افسينا واسع فضلك ورحمتك وخص بها اخي بن عليه والاخ عبدالله باقشير وابو حنين وشوقي وكل الاخوه ياااااااااااااااب اجب الدعاء ------------- اخي الفاضل بن عليه نعم انا استخدم افس 2007 وقد جربت باكثر من جهاز ونفس المشكله لان الافس 2007 اسال الله ان يجزاك كل الخير يا رب
أبو حنــــين قام بنشر سبتمبر 9, 2013 قام بنشر سبتمبر 9, 2013 (معدل) السلام عليم الحمد لله حمدا كثيرا لما نلناه من دعاء طيب من اخونا زمزم حفظه الله و جزاه كل الخير و هذا الدعاء هو مبتغانا تم تعديل سبتمبر 9, 2013 بواسطه أبو حنين
بن علية حاجي قام بنشر سبتمبر 9, 2013 قام بنشر سبتمبر 9, 2013 (معدل) السلام عليكم ورحمة الله أخي الكريم، أعيد إرفاق مرة أخرى لكن هذه المرة قد تم حفظ الملف بصيغة xlsm. بواسطة إكسيل 2010... من المفروض هذه المرة أنك لن تجد صعوبة في فتح الملف حتى بواسطة النسخة التي معك (إكسيل 2007)... تقبل تحياتي الخالصة واحترامي... وبارك الله فيك على الدعاء لنا جميعا في هذا الصرح الكبير ولك إن شاء الله بالمثل.... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar تم تعديل سبتمبر 9, 2013 بواسطه بن علية حاجي
ا بو سليمان قام بنشر سبتمبر 10, 2013 الكاتب قام بنشر سبتمبر 10, 2013 (معدل) السلام عليكم ورحمة الله أخي الكريم، أعيد إرفاق مرة أخرى لكن هذه المرة قد تم حفظ الملف بصيغة xlsm. بواسطة إكسيل 2010... من المفروض هذه المرة أنك لن تجد صعوبة في فتح الملف حتى بواسطة النسخة التي معك (إكسيل 2007)... تقبل تحياتي الخالصة واحترامي... وبارك الله فيك على الدعاء لنا جميعا في هذا الصرح الكبير ولك إن شاء الله بالمثل.... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar الله يجزايك الف خير على جهووووودك المميزه في مساعدة الجميع هذه الرساله تظهر حتى في الملف الاخير مع العلم اانني لدي افس (2003 و 2007) على الجهاز تم تعديل سبتمبر 10, 2013 بواسطه zmzm
ا بو سليمان قام بنشر سبتمبر 10, 2013 الكاتب قام بنشر سبتمبر 10, 2013 السلام عليكم يتم النقل في الصف 3 Sub Macro1() Dim C As Integer For C = 19 To 2 Step -1 Cells(3, C).Value = Cells(3, C).Offset(0, -1).Value Next End Sub شاهد المرفق 2003 التنقل عبر الخلايا.rar اخي ابن عليه حفظك الله ورعاك ارجو ان يتم التعديل على هذ الملف بنفس المطلوب في المشاركة الاخير لانه يفتح عندي بدون مشاكل ولكم وافر الشكر و الاحترام
بن علية حاجي قام بنشر سبتمبر 10, 2013 قام بنشر سبتمبر 10, 2013 السلام عليكم ورحمة الله أخي الكريم، بالنسبة للملف فقد عدلت من البداية على هذه النسخة من المرفق، وأعيد إرفاق مرة ومرة لكن هذه المرة إن حدث الخلل نفسه فقم بعملية الاسترداد للملف وسيكون فارغا من الأكواد، ثم من خلال VBA أنشئ موديول Module جديد وضع فيه نص الكود التالي : Sub Macro1() Dim I As Integer , C For I = 4 To [A65000].End(xlUp).Row For C = 19 To 2 Step -1 Cells(I,C).Value = Cells(I, C).Offset(0, -1).Value Next Next End Sub ثم قم بحفظ الملف في أي نسخة من أوفيس لديك (ويستحسن نسخة 2003)... من المفروض أن لا يكون هناك خطأ في فتح الملف مرة أخرى بأيّ من النسختين.... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar
الـعيدروس قام بنشر سبتمبر 10, 2013 قام بنشر سبتمبر 10, 2013 الملف فيه مشكله وليس الكود انشاء ملف جديد كمل تفضل الاستاذ بن عليه وسوف يعمل معك ان شاء الله
ا بو سليمان قام بنشر سبتمبر 10, 2013 الكاتب قام بنشر سبتمبر 10, 2013 السلام عليكم ورحمة الله أخي الكريم، بالنسبة للملف فقد عدلت من البداية على هذه النسخة من المرفق، وأعيد إرفاق مرة ومرة لكن هذه المرة إن حدث الخلل نفسه فقم بعملية الاسترداد للملف وسيكون فارغا من الأكواد، ثم من خلال VBA أنشئ موديول Module جديد وضع فيه نص الكود التالي : Sub Macro1() Dim I As Integer , C For I = 4 To [A65000].End(xlUp).Row For C = 19 To 2 Step -1 Cells(I,C).Value = Cells(I, C).Offset(0, -1).Value Next Next End Sub ثم قم بحفظ الملف في أي نسخة من أوفيس لديك (ويستحسن نسخة 2003)... من المفروض أن لا يكون هناك خطأ في فتح الملف مرة أخرى بأيّ من النسختين.... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar السلام عليكم احسن من كذا ماااااااااااااااااافيش يا بطل هذا هو المطلوب ولكن فيه مشكله صغيرونه اولا - عندما اضيف اعمدة الى يمين العمود الاول لا يعمل الانتقال ثانيا -............. هل استطيع ان اضع تاريخ بعامود بحث عند تغيرة يتم نقل تلقائي من العمود الاول الى العمود الثاني بدل الزالذي نضغطة ؟؟؟
ا بو سليمان قام بنشر سبتمبر 10, 2013 الكاتب قام بنشر سبتمبر 10, 2013 الملف فيه مشكله وليس الكود انشاء ملف جديد كمل تفضل الاستاذ بن عليه وسوف يعمل معك ان شاء الله شكرا لك على المرور العطر الملف الاخير ممتاز ويعمل بارك الله في الجميع
الـعيدروس قام بنشر سبتمبر 10, 2013 قام بنشر سبتمبر 10, 2013 بعد اذن الاساتذه الافاضل هل هكذا تريد جرب هذا التعديل الكود الصقه في حدث الورقة Public D Public Rw Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A:A]) Is Nothing Then If IsDate(Target) And Target <> D Then Rw = Target.Row Macro1 Rw End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A:A]) Is Nothing Then D = CDate(Target) End Sub Sub Macro1(N) Dim I As Integer, C 'For I = 4 To [A65000].End(xlUp).Row For C = 19 To 2 Step -1 Cells(N, C).Value = Cells(N, C).Offset(0, -1).Value Next 'Next End Sub
ا بو سليمان قام بنشر سبتمبر 10, 2013 الكاتب قام بنشر سبتمبر 10, 2013 السلام عليكم اخي الفاضل عباد اسال الله العظيم ان يعظم لك الاجر من واسع فضله انا لااعرف شي بالعربي (( ميححححححححححححححححححححححححح )) لا اعرف ان الصقها او اعمل شي بها
الـعيدروس قام بنشر سبتمبر 10, 2013 قام بنشر سبتمبر 10, 2013 السلام عليكم شاهد المرفق احدث اي تغير في احد خلايا عمود A بتاريخ اخر ar_d.rar
ا بو سليمان قام بنشر سبتمبر 11, 2013 الكاتب قام بنشر سبتمبر 11, 2013 (معدل) السلام عليكم ورحمة الله أخي الكريم، بالنسبة للملف فقد عدلت من البداية على هذه النسخة من المرفق، وأعيد إرفاق مرة ومرة لكن هذه المرة إن حدث الخلل نفسه فقم بعملية الاسترداد للملف وسيكون فارغا من الأكواد، ثم من خلال VBA أنشئ موديول Module جديد وضع فيه نص الكود التالي : Sub Macro1() Dim I As Integer , C For I = 4 To [A65000].End(xlUp).Row For C = 19 To 2 Step -1 Cells(I,C).Value = Cells(I, C).Offset(0, -1).Value Next Next End Sub ثم قم بحفظ الملف في أي نسخة من أوفيس لديك (ويستحسن نسخة 2003)... من المفروض أن لا يكون هناك خطأ في فتح الملف مرة أخرى بأيّ من النسختين.... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar السلام عليكم احسن من كذا ماااااااااااااااااافيش يا بطل هذا هو المطلوب ولكن فيه مشكله صغيرونه اولا - عندما اضيف اعمدة الى يمين العمود الاول لا يعمل الانتقال ثانيا -............. هل استطيع ان اضع تاريخ بعامود بحث عند تغيرة يتم نقل تلقائي من العمود الاول الى العمود الثاني بدل الزالذي نضغطة ؟؟؟ باقي فقط يا عسل انني اضيف اعمدة الى اليمين (( اعمدة فااااااارغة لكي اضع بها اسماء وتكون ثابته لا تتحدث )) ويعمل البرنامج بنفس الطريقة تم تعديل سبتمبر 11, 2013 بواسطه zmzm
ا بو سليمان قام بنشر سبتمبر 11, 2013 الكاتب قام بنشر سبتمبر 11, 2013 السلام عليكم ورحمة الله أخي الكريم، بالنسبة للملف فقد عدلت من البداية على هذه النسخة من المرفق، وأعيد إرفاق مرة ومرة لكن هذه المرة إن حدث الخلل نفسه فقم بعملية الاسترداد للملف وسيكون فارغا من الأكواد، ثم من خلال VBA أنشئ موديول Module جديد وضع فيه نص الكود التالي : Sub Macro1() Dim I As Integer , C For I = 4 To [A65000].End(xlUp).Row For C = 19 To 2 Step -1 Cells(I,C).Value = Cells(I, C).Offset(0, -1).Value Next Next End Sub ثم قم بحفظ الملف في أي نسخة من أوفيس لديك (ويستحسن نسخة 2003)... من المفروض أن لا يكون هناك خطأ في فتح الملف مرة أخرى بأيّ من النسختين.... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar هذه المشاركة قد ادت المطلووووووب بالتمام ويبي شي بسيط وهو ان البدايه لا تكون من العمود A بل تكون من العمود R والسبب في ذلك لكي اضعي اي كلام ارغبه في الاعمدة السابقه ويعمل البرنامج بشكل ممتاز هل فيه امكانيه اضافه زر امر ارجاع لما سبق لكي اعمل ارجاع عندما اخطي في الضغط على زر الترحيل شكرا للجميع فقط عملتوا اكثر من المطلوب شكرا لكم جزيل جميعا
ا بو سليمان قام بنشر سبتمبر 11, 2013 الكاتب قام بنشر سبتمبر 11, 2013 تم رصد الاخ ابو حنين يتصفح ....... المنتدى مطلوووووووب القبض عليه وارساله الى هذا الموضوع وطلب المساعدة في المشاركة رقم 23
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.