أرغب المساعدة في عمل نقل بيانات خليه الى خليه اخري مع ثبات الاعمدة

[ا بو سليمان]

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

 

كما في العنوان

 

نقل بيانات خليه  الى خليه مجاوره مع ثبات الاعمدة    +  ان تحتفظ كل خليه   بقيمتها  عندما تنتقل  ولا ترتبط  بما سبقها من خليه في  قيمتها 

 

والتفاصيل بالمف

 

شكرا مقدما للجميع

التنقل عبر الخلايا.rar

تم تعديل سبتمبر 9, 2013 بواسطه zmzm

[الـعيدروس]

تنقل للخليه المجاورة تحت أي شرط ؟

[عبدالله باقشير]

السلام عليكم

 

يتم النقل في الصف 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

[ا بو سليمان]

السلام عليكم

 

يتم النقل في الصف 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

السلام عليكم ورحمة الله  اخي ومعلمي الفاضل  

 

فتحت الملف ووجدت العمل الرائع  مشكووووووورا

 

ولكن احببت ان اضع ارقام بدل التاريخ فلم استطيع  هذا اولا

 

 

ثانيا   لو كا ن مفتاح النقل في الاعلى كان اافضل لانني ارغب ان اضع صفوف اخري تحت  الصف الثالث من الاسفل 

 

 

شكر لك

 

ارجو المساعدة  في ذلك 

[بن علية حاجي]

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

 

أخي الكريم، هذا تعديل ملى كود أخي الفاضل والحبيب عبدالله جازاه الله عنا ألف خير، وأرجو أن يكون هو المطلوب... 

 

أخوك بن علية

 

الملف المرفق : التنقل عبر الخلايا.rar

[عبدالله باقشير]

السلام عليكم
احسنت اخي الحبيب بن عليه 
وجزاكم الله خيرا وبارك فيكم
 
تقبلوا تحياتي وشكري

[ا بو سليمان]

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

 

أخي الكريم، هذا تعديل ملى كود أخي الفاضل والحبيب عبدالله جازاه الله عنا ألف خير، وأرجو أن يكون هو المطلوب... 

 

أخوك بن علية

 

الملف المرفق : التنقل عبر الخلايا.rar

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

 

كم انتم رائعين يا اعضاء افسينا

 

الملف يا احبتي   يفتح وبعدها يعطي اشاره   خطاء  ويطلب الموافقه على  ارسال بيانات تصحيح الى افس

 

 

 

الرجاء الثاني هو ان يتم عمل ثلاث صفحات    لنفس الشي مثل الصفحة الاولى 

 

الرجاء الثالث ان يتم  عمل صفوف  الى عدد 300  صف  والجميع يتحرك مثله مثل الصف الثالث (( تحرك الخلايا ))

 

 

------------------  مشكوووووووووووووووووووووووووووووووووووورين مقدما --------------  

 

انتم عوتونا على الدلع الزززززززززائد بالطلبات    ...........  ودائما  الاخ الصغير يتدلع على اخوه الكبير 

[ا بو سليمان]

السلام عليكم

احسنت اخي الحبيب بن عليه 

وجزاكم الله خيرا وبارك فيكم

 

تقبلوا تحياتي وشكري

عبدالله باقشير 

 

مااااااااااااااااااااااااااااااااااركه مسجله في عالم الاكسل 

 

شكر لك  ولا نستغني عن ابدااااااااااااعك 

[بن علية حاجي]

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

 

أخي الكريم، بالنسبة للتساؤل "الملف يا أحبتي يفتح وبعدها يعطي إشارة خطأ ويطلب الموافقة على إرسال بيانات تصحيح إلى أوفيس" هذا أعتقد سببه أنك تفتح الملف بواسطة نسخة أوفيس 2007 (خاصة) فهذه النسخة في العادة لا تتجاوب جيدا مع الملفات المصنوعة في نسخة أوفيس 2003... والله أعلم

أما التساؤل الثاني "أن يتم عمل ثلاث صفحات لنفس الشيء مثل الصفحة الأولى" فهذه يمكنك فعلها بنسخ مضمون كل خلايا (بعد التحديد الكلي) هذه الورقة ثم لصقها في الأوراق الأخرى (وإذا كنت تريد الكود فقط لتنفيذه في الأوراق الأخرى فيمكنك فقط إنشاء أزرار في هذه الأوراق وربطها بالكود)...

أما التساؤل الثالث "أن يتم عمل صفوف إلى عدد 300 صف والجميع يتحرك مثله مثل الصف الرابع (في المرفق الجديد) ((تحرك الخلايا))" فهذه قد تمت الإجابة عليه بالتعديل على الكود في الملف المرفق السابق الذي لا يفتح معك وما يبقى إلا تضيف في الأسفل الصفوف التي تريد (عندما يُفتح الملف)... أرجو أن يفتح الملف عندك وترى فيه الإجابة على هذا التساؤل...

 

أعيد إرفاق الملف مرة أخرى احتياطا (تم فيه إنشاء الصفحات الثلاثة المتشابهة كما طلبت في الرجاء الثاني)...

 

أخوك بن علية

 

الملف المرفق : التنقل عبر الخلايا.rar

[ا بو سليمان]

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

 

أخي الكريم، بالنسبة للتساؤل "الملف يا أحبتي يفتح وبعدها يعطي إشارة خطأ ويطلب الموافقة على إرسال بيانات تصحيح إلى أوفيس" هذا أعتقد سببه أنك تفتح الملف بواسطة نسخة أوفيس 2007 (خاصة) فهذه النسخة في العادة لا تتجاوب جيدا مع الملفات المصنوعة في نسخة أوفيس 2003... والله أعلم

أما التساؤل الثاني "أن يتم عمل ثلاث صفحات لنفس الشيء مثل الصفحة الأولى" فهذه يمكنك فعلها بنسخ مضمون كل خلايا (بعد التحديد الكلي) هذه الورقة ثم لصقها في الأوراق الأخرى (وإذا كنت تريد الكود فقط لتنفيذه في الأوراق الأخرى فيمكنك فقط إنشاء أزرار في هذه الأوراق وربطها بالكود)...

أما التساؤل الثالث "أن يتم عمل صفوف إلى عدد 300 صف والجميع يتحرك مثله مثل الصف الرابع (في المرفق الجديد) ((تحرك الخلايا))" فهذه قد تمت الإجابة عليه بالتعديل على الكود في الملف المرفق السابق الذي لا يفتح معك وما يبقى إلا تضيف في الأسفل الصفوف التي تريد (عندما يُفتح الملف)... أرجو أن يفتح الملف عندك وترى فيه الإجابة على هذا التساؤل...

 

أعيد إرفاق الملف مرة أخرى احتياطا (تم فيه إنشاء الصفحات الثلاثة المتشابهة كما طلبت في الرجاء الثاني)...

 

أخوك بن علية

 

الملف المرفق : التنقل عبر الخلايا.rar

 

اللهم  انك سميع تجيب الدعااااااااء  

 

ربي  خالقي  رازقي   مالك الملك  

 

مالك يوم الدين  

 

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

 

ياااااااااااااااب اجب الدعاء

 

 

-------------

 

اخي الفاضل بن عليه نعم انا استخدم افس 2007   وقد جربت باكثر من جهاز  ونفس المشكله   لان الافس  2007

 

اسال الله  ان  يجزاك  كل الخير يا رب

[أبو حنــــين]

السلام عليم

الحمد لله حمدا كثيرا لما نلناه من دعاء  طيب من اخونا زمزم حفظه الله و جزاه كل الخير و هذا الدعاء هو مبتغانا

تم تعديل سبتمبر 9, 2013 بواسطه أبو حنين

[بن علية حاجي]

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

 

أخي الكريم، أعيد إرفاق مرة أخرى لكن هذه المرة قد تم حفظ الملف بصيغة xlsm. بواسطة إكسيل 2010... من المفروض هذه المرة أنك لن تجد صعوبة في فتح الملف حتى بواسطة النسخة التي معك (إكسيل 2007)...

 

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

 

أخوك بن علية

 

الملف المرفق : التنقل عبر الخلايا.rar

تم تعديل سبتمبر 9, 2013 بواسطه بن علية حاجي

[ا بو سليمان]

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

 

أخي الكريم، أعيد إرفاق مرة أخرى لكن هذه المرة قد تم حفظ الملف بصيغة xlsm. بواسطة إكسيل 2010... من المفروض هذه المرة أنك لن تجد صعوبة في فتح الملف حتى بواسطة النسخة التي معك (إكسيل 2007)...

 

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

 

أخوك بن علية

 

الملف المرفق : التنقل عبر الخلايا.rar

الله يجزايك الف خير على جهووووودك  المميزه  في مساعدة الجميع

 

 

هذه  الرساله تظهر حتى في الملف الاخير

 

مع العلم اانني  لدي افس (2003  و 2007)  على  الجهاز

 

 

تم تعديل سبتمبر 10, 2013 بواسطه zmzm

[ا بو سليمان]

السلام عليكم

 

يتم النقل في الصف 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

اخي ابن عليه حفظك الله ورعاك

 

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

 

ولكم وافر الشكر و الاحترام

[بن علية حاجي]

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

 

أخي الكريم، بالنسبة للملف فقد عدلت من البداية على هذه النسخة من المرفق، وأعيد إرفاق مرة ومرة لكن هذه المرة إن حدث الخلل نفسه فقم بعملية الاسترداد للملف وسيكون فارغا من الأكواد، ثم من خلال 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

[الـعيدروس]

الملف فيه مشكله وليس الكود

انشاء ملف جديد كمل تفضل الاستاذ بن عليه

وسوف يعمل معك ان شاء الله

[ا بو سليمان]

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

 

أخي الكريم، بالنسبة للملف فقد عدلت من البداية على هذه النسخة من المرفق، وأعيد إرفاق مرة ومرة لكن هذه المرة إن حدث الخلل نفسه فقم بعملية الاسترداد للملف وسيكون فارغا من الأكواد، ثم من خلال 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

 

 

السلام عليكم 

 

احسن من كذا ماااااااااااااااااافيش  يا بطل 

 

هذا هو المطلوب ولكن فيه مشكله  صغيرونه

 

اولا -  عندما اضيف اعمدة  الى يمين  العمود الاول  لا يعمل الانتقال 

 

ثانيا  -.............  هل استطيع ان اضع تاريخ  بعامود  بحث عند تغيرة  يتم نقل تلقائي من العمود الاول الى العمود الثاني  بدل الزالذي نضغطة ؟؟؟ 

[ا بو سليمان]

الملف فيه مشكله وليس الكود

انشاء ملف جديد كمل تفضل الاستاذ بن عليه

وسوف يعمل معك ان شاء الله

شكرا لك على المرور العطر  

 

الملف الاخير ممتاز  ويعمل  بارك الله في الجميع

[الـعيدروس]

بعد اذن الاساتذه الافاضل

هل هكذا تريد

جرب هذا التعديل

الكود الصقه في حدث الورقة

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

[ا بو سليمان]

السلام عليكم

 

اخي الفاضل   عباد   اسال الله العظيم  ان  يعظم لك الاجر من واسع فضله  

 

 

انا لااعرف  شي     بالعربي   (( ميححححححححححححححححححححححححح ))    لا اعرف ان الصقها او اعمل  شي  بها

[الـعيدروس]

السلام عليكم

 

شاهد المرفق

احدث اي تغير في احد خلايا عمود A بتاريخ اخر 

 

ar_d.rar

[ا بو سليمان]

 

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

 

أخي الكريم، بالنسبة للملف فقد عدلت من البداية على هذه النسخة من المرفق، وأعيد إرفاق مرة ومرة لكن هذه المرة إن حدث الخلل نفسه فقم بعملية الاسترداد للملف وسيكون فارغا من الأكواد، ثم من خلال 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

[ا بو سليمان]

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

 

أخي الكريم، بالنسبة للملف فقد عدلت من البداية على هذه النسخة من المرفق، وأعيد إرفاق مرة ومرة لكن هذه المرة إن حدث الخلل نفسه فقم بعملية الاسترداد للملف وسيكون فارغا من الأكواد، ثم من خلال 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      والسبب في ذلك  لكي اضعي اي كلام ارغبه  في الاعمدة السابقه  ويعمل البرنامج بشكل ممتاز

 

هل فيه امكانيه  اضافه   زر امر  ارجاع  لما سبق   لكي اعمل ارجاع عندما اخطي  في الضغط  على زر الترحيل

 

 

شكرا للجميع   فقط  عملتوا اكثر   من المطلوب 

 

شكرا لكم جزيل  جميعا 

[ا بو سليمان]

تم رصد  الاخ ابو حنين   يتصفح ....... المنتدى

 

مطلوووووووب   القبض  عليه  وارساله الى هذا الموضوع  وطلب  المساعدة   في المشاركة رقم   23

[ا بو سليمان]