كود ترحيل اضافة وتعديل وحذف

[Ahmed Hosny]

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

تم عمل كود ترحيل يعمل بصورة ممتاز ولكن يوجد مشكله انه يوزر فورم

يعمل فقط فى نفس الشيت الموجود بها البيانات sheet1

عند الدخول على sheet2 واظهار اليوزر فورم لايعمل 

 

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

 

وشكرا وربنا يجزيكم خير

ترحيل.xlsm

[عبدالفتاح في بي اكسيل]

جرب  هذا  لعله   المطلوب

ترحيل (1).xlsm

[سليم حاصبيا]

يمكن اختصار الكود لكل زر على النحو التالي (مثال على الزر رقم 1)

Dim sh As Worksheet, lrow As Long
Private Sub CommandButton1_Click()
Application.EnableEvents = False
If TextBox1.Value <> "" And _
    TextBox2.Value <> "" And TextBox3 <> "" _
    And TextBox4.Value <> "" _
    And TextBox5.Value <> "" Then
    Set sh = ActiveSheet
    Dim i
    With sh
        lrow = .Range("B" & Rows.Count).End(xlUp).Row
        With .Range("B" & lrow + 1)
            For i = 1 To 5
            .Offset(, i - 1) = _
             Me.Controls("TextBox" & i).Value
             Me.Controls("TextBox" & i).Value = ""
            Next
        End With
    End With
Else
    MsgBox ("InComplete data")
End If
Application.EnableEvents = True
End Sub

 

[Ahmed Hosny]

بارك الله فيك استاذ عبدالفتاح على رد حضرتك وافادتنى بالتعديل 

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

وعند عمل زرار وربط اليوزر فورم لايعمل اتمنى تكون فهمتنى حضرتك

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

[عبدالفتاح في بي اكسيل]

هل  تريد  ترحيل  البيانات  مرة  واحدة  في  كل  اوراق  العمل   ام  ماذا 

[سليم حاصبيا]

طالما ان تستعمل activesheet فان الماكرو ينفذ على الشيت النشطة

مثال كود للزر الاول والثاني (طبقه على بقية الأزار)

Dim sh As Worksheet, lrow As Long, i As Long
Private Sub CommandButton1_Click()
Application.EnableEvents = False
If TextBox1.Value <> "" And _
    TextBox2.Value <> "" And TextBox3 <> "" _
    And TextBox4.Value <> "" _
    And TextBox5.Value <> "" Then
    Set sh = ActiveSheet
      With sh
        lrow = .Range("B" & Rows.Count).End(xlUp).Row
        With .Range("B" & lrow + 1)
            For i = 1 To 5
            .Offset(, i - 1) = _
             Me.Controls("TextBox" & i).Value
             Me.Controls("TextBox" & i).Value = ""
            Next
        End With
    End With
Else
    MsgBox ("InComplete data")
End If
Application.EnableEvents = True
End Sub
'++++++++++++++++++++++++++++++++++++++++

Private Sub CommandButton2_Click()
Set sh = ActiveSheet
For i = 2 To 5
     Me.Controls("TextBox" & i).Value = ""
Next
 lrow = sh.Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To lrow
If sh.Cells(i, 2) = TextBox1.Text Then
sh.Cells(i, 2).Select
Exit For
End If
Next i

For i = 2 To 4
 With ActiveCell
 .Offset(0, i - 1) = Me.Controls("TextBox" & i).Text
 End With
End Sub

 

[Ahmed Hosny]

اليوزر فورم يعمل على شيت واحد اريد نفس يوزر فورم انى افتحه من شيت 2 وان تظل البيانات والترحيل كما هوا بشيت واحد شكرا لحضرتك 

بعد تعديل الكود اصبحت النتيجة كما هوا مرفق

[Ahmed Hosny]

تم تعديل لينك https://drive.google.com/file/d/1ac8JDwmzLOAs8EOgO5nuuiRJSBs5hPnJ/view?usp=sharing

[سليم حاصبيا]

لم افهم ما المشكلة 

عندي اليوزر يعمل على اي صفحة 

تم التعديل على الماكرو بحيث تستطيغ التنقل داخل الشبت ومن شيت الى اخر حتى ولو كان اليوزر ظاهراً

بمعنى اخر  بعد تعبئة الفورم (اذا اردت ان تكون البيانات في شيت اخرى)

      حدد الصقحة التي تريد واضغط على اضافة

عليك فقط استكمال اكواد باقي الأزرار

يمنكن ايضاَ الاستعانة الملف  Sal_User  بعد نعديل الأكواد كما يلزم

الملف مرفق

 

Ahmaad_Housni_User.xlsm

Sal_User.xlsm

[Ahmed Hosny]

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

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

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

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

ترحيل.xlsm

[سليم حاصبيا]

ربما هذا الشيء هو المطلوب 

  وضعت لك كود لزر اضافة يرجى اكمال كودات بقية الأزرار

 

Ahmad User.xlsm

[Ahmed Hosny]

شكرا لك ولاهتمامك استاذى الفاضل بارك الله فيك وزادك من فضله 

[a.kawkab]

بعد اذن الاساتذة اليك المطلوب

ترحيل.xlsm

[Ahmed Hosny]

شكرا ليك استاذنا الفاضل a.kawkab ده فعلا المطلوب وهوا انا محتاج اعمله بظبط شكرا لتفهمك ربنا يعزك ويبارك فيك ويزيدك ان شاء الله 

شكرا استاذى  سليم على اهتمامك ومساعدتك واستجابتك الدائمة جزاك الله خير