كود للبحث والترحيل

[spyhearts]

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

كل عام وكل اسرة المنتدى بخير وسعادة 

فضلا وليس أمر اتمنى المساعدة بالاكواد الملف يحتوي على 3 صفحات صفحة خاصة بالاصول وصفحة خاص الموظفين وصفحة خاصة بنموضج التسليم احتاج البحث بكود الأصل يظهر البيانات ويتم التعديل والاضافة والحذف وبالنسبة لصفحة الموظفين ابحث برقم الإقامة ويكون فيه إضافة وتعديل وحذف واخر صفحة النموذج اكتب كود الاصل ورقم اقامة الموظف يتم الترحيل في صفحة handover

 

ملف قاعدة بيانات.xlsm

[أبومروان]

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

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

Dim i As Byte, Last As Long, Sh As Worksheet
Set Sh = Sheets("data")
    With Sh
    
        Last = .Cells(Rows.Count, 2).End(xlUp).Row + 1
        For i = 1 To 17
        .Cells(Last, i).Value = Me.Controls("Tx" & i).Value
        Me.Controls("Tx" & i) = ""
        Next
    End With
    tx1.SetFocus

 

استاذ @spyhearts

راجع الموضوع المرفق ادناه لعله يفيدك ان شاء الله

وهذا موضوع اخر مفيد جميل جدا جدا

وشاهد المرفق ادناه لعله يفيدك

 

[spyhearts]

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

للرفع

[محمد هشام.]

تفضل اخي تم تفعيل جميع الاكواد بالنسبة ل 6 تبويبات   

 

ملاحظة لتتمكن من عرض ملفات PDF على اليوزرفورم  وطباعة التقارير قم بتثبيت برنامج Adobe Acrobat على جهازك

 

قاعدة البيانات.xlsm

[spyhearts]

استاذ محمد

كلمة شكر لا تكفي لمجهودك العظيم

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