اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

  • 1 month later...

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

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

 

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

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

 

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

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

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

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

SH.xlsm

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

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