مهند محسن قام بنشر فبراير 16, 2020 مشاركة قام بنشر فبراير 16, 2020 السلام عليكم اساتذتى وأحبائى الكرام أرجو التلطف على مساعدتى فى ضبط وتعديل كود الترحيل من الفورم الى شيت الإكسيل لكى يتم الترحيل بصورة طبيعية, وهذا هو الكود 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 رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر مارس 23, 2020 الكاتب مشاركة قام بنشر مارس 23, 2020 شكرا لك استاذى الكريم لرد حضرتك...فقط تظهر معى هذه الرسالة عندما يتم الضغط على أيقونة ترحيل من الفورم رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 24, 2020 مشاركة قام بنشر مارس 24, 2020 اخي مهند لقد حصلت على المساعدة من احد المبرمجين قم بتعديل هذا الكود واعلمني 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 رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر مارس 24, 2020 الكاتب مشاركة قام بنشر مارس 24, 2020 شكرا لك استاذى الكريم على محاولة المساعدة ولكن مازالت المشكلة قائمة كما ترى رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 24, 2020 مشاركة قام بنشر مارس 24, 2020 اخي مهند اريد ان اسال عن الية عمل البرنامج هل المشكلة في الترحيل فقط لاني عند البحث وكتابة معيار البحث المسلسل ثم الضغط على البحث يظهر نتائج البحث في الكومبوبوكس ولكن لا يظهر البيانات في التيكست بوكس لاني قمت بتعبئة البيانات من خلال الورقة رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 24, 2020 مشاركة قام بنشر مارس 24, 2020 هل لديك الملف الرئيس الذي اخدت منه الاكواد ام قمت تصميمه لوحدك رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر مارس 24, 2020 مشاركة قام بنشر مارس 24, 2020 حسنا عذرا لاني اكثرت عليك الاسئلة ولكن كنت اريد ان اعرف لو لديك الملف الرئيسي لابد ان يعمل بالكامل وقد نعرف كيفية التعديل عليه لقد توصلت الى شيء واحد وهو ان المشكلة في الملف نفسه لاني عندما قلت لك قم بتعديل الكود كنت قد جربته على ملف اخر وقام بالترحيل دون اي مشاكل فعليك تصميم ملف آخر ولقد قمت بنسخ جميع الاكواد لان الازرار مرتبطة معا بعضها وسؤالي الاخير عن البحث لا يعمل هو لمعرفة اذا كان الخلل من التعديل الاخير ام من البرنامج يمكنك تجربة الملف طبعا بالانجليزي لاني طرحت موضوعك في مواقع اجنبية وبالكاد رد علي موقع 1 من اصل 3 SH.xlsm 1 رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر مارس 24, 2020 الكاتب مشاركة قام بنشر مارس 24, 2020 شكرا لك استاذى الكريم على تعبك معى هحاول اوفق هذا مع ملفى ان شاء الله بارك الله فيك وزادك الله من فضله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.