تعديل بيانات مرحلة

[obad65]

مع التحية لأخواني

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

على سبيل المثال الترحيل الى صفخة العمود الأول بها رقم تسلسلي وباستخدام الكود يتم التحويل مثلا الى صف الرقم التسلسلي 3 أو 4 أو ... حسب الصف الذي يتم تحديده

أو امكانية التعديل بكود على بيانات مرحلة سابقا

مع خالص شكري وتقديري للجميع

[طارق محمود]

السلام عليكم

إرفق مثال أخي ليسهل علي الإخوة مساعدتك

[obad65]

مع خالص شكري لك أخي طارق

ومع خالص تحياتي لجميع المحترفين في المنتدى

برفقه ملف يحتوي على ورقتين :

الورقة الأولى هي صفحة ادخال بيانات الطلاب وصفحة التفاصيل

والمطلوب هو :

1- أريد عمل كود يقوم بترحيل البيانات الى الصفحة الثانية ( التفاصيل )

2-عمل كود يقوم بالذهاب الى رقم الطالب وتعديل بياناته في حال وجود تعديل مستقبلا

أو

عمل كود واحد يقوم بترحيل البيانات حسب رقم الطالب الذي أحدده من صفحة ادخال البيانات بحيث استطيع مستقبلا الترحيل الى نفس الطالب في حال تعديل بياناته

آسف على الاطالة وكلي أمل في الله وفي محترفي القسم في المطلوب

أسأل الله أن يجعله في موازيين حسناتكم

___________.rar

[ابو اسامة العينبوسي]

السلام عليكم

ممكن نعدل في الكود حسب ما تريد

Sub ttt()
x = ورقة2.Cells(Rows.Count, 5).End(xlUp).Row + 1
For y = 3 To 28
   ورقة2.Cells(x, y) = Range("r_" & y - 2)
   'Range("r_" & y - 2) = "" هذا السطر ان اردت مسح الخلايا بعد الترحيل
  Next
End Sub

___________1.rar

[roushdy]

السلام عليكم

ممكن نعدل في الكود حسب ما تريد

Sub ttt()
x = ورقة2.Cells(Rows.Count, 5).End(xlUp).Row + 1
For y = 3 To 28
   ورقة2.Cells(x, y) = Range("r_" & y - 2)
   'Range("r_" & y - 2) = "" هذا السطر ان اردت مسح الخلايا بعد الترحيل
  Next
End Sub

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

استاذنا ابو اسامة انا فهمت من الكود

1 - ان الصف الأول يقوم بتحديد الصف الأخير فى الورقة الثانية باسم المتغير x

لكن الى ماذا يشير المتغير y

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

[obad65]

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

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

بغض النظر عن ترتيب السطور

وأكرر شكري وماقصرت

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

[obad65]

للرفع مع خالص الشكر والتقدير

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

السلام عليكم

بعد اذن اخي الحبيب ابو اسامة

يمكنك البحث من خلال الخلية A6

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Integer, Y As Integer
KH_Range
If Target.Address = MyCell.Address Then
    If MyCell <> "" And IsNumeric(MyCell) Then
        X = MyCell.Value + 3
        For Y = 1 To 21
            MyRange.Areas(Y) = ورقة2.Cells(X, Y + 2)
        Next Y
    Else
        MyRange.ClearContents
    End If
End If
End Sub

وتعديل البيانات وترحيلها مرة اخرى

Public MyRange As Range, MyCell As Range
Sub KH_Range()
Set MyRange = ورقة1.Range("B6,C6,A12,B12,C12,D12,E12,F12,G12,H12,A15,B15,C15,D15,E15,F15,G15,H15,E6,F6,
G6")
Set MyCell = ورقة1.Range("A6")
End Sub
Sub KH_START()
Dim X As Integer, Y As Integer
KH_Range
If IsEmpty(MyCell) Or IsNumeric(MyCell) = False Then MsgBox "استخدام خاطىء": GoTo 1
X = MyCell.Value + 3
For Y = 1 To 21
    ورقة2.Cells(X, Y + 2) = MyRange.Areas(Y)
Next
1 MyCell.ClearContents
End Sub

تفضل المرفق

___________.rar

[جلال محمد]

اخى خبور

حمدا لله علي سلامتك وعودتك للمنتى

والله وحشتنا

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

السلام عليكم

الله يسلمك اخي جلال

انتم وحشتونا اكثر

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

[زياد علي]

اخي خبور خير

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

حياكم الله بتحية طيبة مباركة

ارجو أن تكون بخير فجميع الأعضاء بالمنتدى قديمهم وجديدهم يسأل عنك ،، سمعنا من أحد الأعضاء أنكم تمرون بضائقة ما ،، فأن شاء الله تكون خير ، يا خبور خير ، ونحن جميعاً يهمنا أمرك ويعلم الله أني قد أستفدت كثيراً من مشاركتك ،، فجزاك الله عنا خير الجزاء ،، ومساؤك سعيد ان شاء الله .

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

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

جمعة مباركة

اخي الفاضل / زيد علي--------------حفظك ربي

الحمد لله عل كل حال

وانا سعيد جدا بقراءة هذه الكلمات الطيبة التي تنبعث من قلوب طيبة

الله يكرمك اخي الحبيب دنيا واخرة

ودمتم في حفظ الله ورعايته

[زياد علي]

السلام عليكم

أخي خبور خير

العفو واللهي يا استاذي الفاضل انت سيدنا وتاج راسنا ويعلم الله من دون مجاملات أو تزويق في العبارات لك علينا أفضال كبيرة وجليلة وكذلك بقية الأخوة المشرفين أعزهم الله ،،، وياريت ياريت يتم التعارف اكثر بين أعضاء المنتدى ، حيث أني لا أعتقد أن الفكرة من المنتدى أنت تسأل ونحن ونجيب ، والحمد لله فيما أرى من مشاركات الأخوة الأعضاء أن أغلب المشاركين هم شباب عرب ومسلمين فلم لا يتم التعارف بين الأعضاء بشكل أفضل ، ولا ننكر أن الكثير من الأخوة الأعضاء فيهم الخير ويتفقدون اخوانهم الأعضاء المتغيبين ولا سيما البارزين منهم ..

لك من فائق الاحترام والتقدير

عزيزي خبور خير

[obad65]

أخواني الاعزاء

أشكر لكم تكرمكم بالتفاعل مع الموضوع وافادتي الافادة الشافية والوافية والتي اسأل الله أن يجمعنا بها في الجنه

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

مع شكري وتقديري للجميع

[عصام2008]

السلام عليكم

ألف ألف ألف حمدا لله على سلامتك وعودتك لهذا المنتدي الذي خفت نوره بعدم وجودك أخى العزيز واستاذنا الفاضل خبور ونرجوا من الله ان يدوم بقاءك وان يظل هذا المنتدى منيرا بتواجدك دائماً انشاء الله