اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by a.kawkab,

الردود الموصى بها

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

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

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

1312500851_1.jpg.02761dfc037650bb4ee0eb67a31bd02c.jpg

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

848128879_2.jpg.84138bfeb07350d7eac39930ac01052a.jpg

 

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

 

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

ترحيل.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

 

  • Like 2
رابط هذا التعليق
شارك

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

ولكن المطلوب استاذى الكريم انه يتم كل بيانات على نفس الشيت وترحيل ب 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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

ترحيل 3.jpg

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

الملف مرفق

 

sheet1.png

Sheet2.png

Ahmaad_Housni_User.xlsm

Sal_User.xlsm

رابط هذا التعليق
شارك

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

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

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

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

ترحيل.xlsm

1.jpg

2.jpg

3.jpg

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information