ضبط كود الترحيل من الفورم الى شيت الإكسيل

[مهند محسن]

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

Private Sub ButtonNew_Click()
Dim Ad As String
Dim c As Integer
Dim xx As Long
''''''''''''''''''''
For c = 1 To ContColmn
    Ad = Cells(1, c).Address(0, 0)
    If Len(Trim(Me.Controls(Ad).Value)) = 0 Then
       MsgBox "العنوان: " & Me.Controls("xx" & c).Caption & " فارغ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "خلية فارغة"
       Me.Controls(Ad).SetFocus
        Exit Sub
  End If
Next
''''''''''''''''''''''
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Sheet2
    Lr = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    For c = 1 To ContColmn
        Ad = Cells(1, c).Address(0, 0)
        .Cells(Lr, c).Value = Me.Controls(Ad).Value
    Next
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
A1.Value = Application.WorksheetFunction.Max(Sheets(2).Range("A2:A5000")) + 1
MsgBox "تم الترحيل بنجاح"
End Sub

 

نموذج بحث وترحيل وتعديل11.xlsm

[مهند محسن]

شكرا لك استاذى الكريم لرد حضرتك...فقط تظهر معى هذه الرسالة عندما يتم الضغط على أيقونة ترحيل من الفورم

 

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

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

For c = 1 To ContColmn
 Ad = Cells(1, c).Address(0, 0)
 If Len(Trim(Me.Controls(Ad).Value)) = 0 Then
 MsgBox "address: " & Cells(1, c).Value & " empty", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "empty cells"
 Me.Controls(Ad).SetFocus
 Exit Sub
 End If
Next

 

[مهند محسن]

شكرا لك استاذى الكريم على محاولة المساعدة

ولكن مازالت المشكلة قائمة كما ترى

 

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

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

 

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

هل لديك الملف الرئيس الذي اخدت منه الاكواد  ام قمت تصميمه لوحدك 

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

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

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

يمكنك تجربة الملف طبعا بالانجليزي لاني طرحت موضوعك  في مواقع اجنبية وبالكاد رد علي  موقع 1 من اصل 3 

SH.xlsm

[مهند محسن]

شكرا لك استاذى الكريم على تعبك معى هحاول اوفق هذا مع ملفى ان شاء الله

بارك الله فيك وزادك الله من فضله