moodyfy2

اخى الكريم محمد هشام. اشكر حضرتك كثير وبعتذر للتاخير فى الرد لظروف طارئة انا مش عاوز استبدل العناصر انا بوضح لحضرك عند كتابة شيئ فى TextBox1 يعطى رسالة خطا وتحياتى لحضرتك

استاذ AmirMohamed بارك الله فيك بيعطى خطا كما هو موضح وشكرا

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

الاستاذ محمد هشام ارق تحياتى واحترامى لشخصكم وايضا للاستاذ عبدالله بشير عبدالله مجهود عظيم من حضراتكم اكيد عندى انا مشكلة لانى بضيف الاكواد الى برنامج اكبر مساحته كبيرة يحتوى الى الكثير من user forms والصفحات لا اتمكن من رفعة * عند ملاحظة عن كتابة رقم حساب جديد للاضافة يعطى الرسالة التالية كما هو موضح بالصورة

استاذ عبدالله بشير عبدالله بارك الله فيك مجهود عظيم جعل الله فى ميزان حسناتك * تمام كدة لكن في ملاحظة واحدة 1- هى ان عتد اختيار اي نتائج البحث داخل اللست بوكس ولم يسجل لها تاريخ رفع وتاريخ تركيب ( TextBox18 - TextBox17) تكتب تاريخ 30/12/1899 بالرغم ان الخلايا فارغة داخل الشيت ولا يوجد بها تاريخ مسجل كما هو موضح بالصورة ولك جزيل الشكر

استاذى الجليل عبدالله بشير عبدالله شكرا جزيلا على التفاعل والاهتمام وجزاك الله خير لكن لى ملاحظات اخجل من طلبها 1- اريد عند مسح محتويات TEXTBOX1 يتم تفريغ التكستبوكس والكومبوبوكس 2-عن اختيار نتائج الللست بوكس تظهر فى التكستبوكس و الكومبوبوكس بياناات لا تخص رقم الحساب المحدد فى اللست بوكس 3- اريد عن كتابة او عند عرض محتويات TextBox17 و TextBox18 تظهر فى تنسيق YYYY/MM/DD 4- اريد عن كتابة او عند عرض محتويات TextBox4تظهر فى تنسيق YYYY/MM وجزاك الله واسف على الاطالة

الاخ الكريم الاستاذ عبدالله بشير عبدالله شكرا جزيلا لاهتمامك لكن لاتظهر نتائج البحث داخل textbox1 داخل lestbox1 اريد ان تظهر نتائج البحث فى تكست بوكس 1 عن اي رقم فى اللست بوكس . كما فى الفيديو التالى 4.7z

الأساتذة الكرام هل يوجد حل لمشكلتي وجزاكم الله خيرا

السلام عليكم تحياتى لجميع اعضاء الجروب المحترمين * textbox1 الموجود داخل user form8 يقوم بالبحث عن رقم الحساب فى البيانات الموجوده فى شيت home1 ويقوم بترحيل البيانات الى التكست بوكس والكومبو بوكس الموجودة فى userform 8 * اريد اضافة listbox1 يظهر به نتائج البحث فى textbox1 ( الست بوكس عمود واحد يعرض نتائج البحث فى رقم الحساب كما هو موضح بالصورة الموجود فى اللست بوكس او التنقل بالاسهم بين نتائج البحث . يقوم بترحيل البيانات الى جميع اللست بوكس والكومبو بوكس الموجودة فى userform 8 * زر اضافى يقوم بترحيل البيانات داخل جميع التكست بوكس وال كومبو بوكس الى شيت home 1 ) وعند الضغط على نتائج البحث ‏‏‏‏برنامج المعطل ver 20 2024 مثال.xlsm

استاذ . محمد هشام. بعتذر لحضرتك وشاكر لمجودك العظيم انا كود اللصق شغال مفيش فيه مشكلة حتى من النسخ من الخارج بس المشكلة عندى فى النسخ . وحضرتك فى اخر رد بعتلى كود مش عارف للنسخ ام للصق النسخ اللى فى مثال التجريبى شغال معايا بينسخ محتوى textbox الى خلية نشطة انا عاوز اعمل نسخ ل text box والصقة فى اي مكان شاكر لحضرتك واسف اخير للاطالة فيديو.7z

استاذ محمد هشام انا عاوز كود النسخ اقدر انسخ محتوى TEXTBOX 6 والصقة فى اي مكان داخل الفورم او خارجة او اي برنامج خارجية زي ما اكون حددت محتواه واخدته نسخ CTRL C لانى جربت واعطانى رموز مربعات وبعتذر للكتابة بالتفصيل انا جربت كود زى ده واعطانى رموز Private Sub CommandButton30_Click() Dim clipboard As Object Set clipboard = New MSForms.DataObject clipboard.SetText TextBox6.Text clipboard.PutInClipboard End Sub

استاذ محمد هشام انا كتبت كود اللصق ده ونجح لانى عاوز الصق اي حاجة خارج الاكسل او داخلة فى TEXTBOX 6 Private Sub CommandButton31_Click() Dim objCpt As New MSForms.DataObject Dim textToCopy As String ' الحصول على نص الحافظة On Error Resume Next objCpt.GetFromClipboard textToCopy = objCpt.GetText On Error GoTo 0 ' التحقق مما إذا كانت TextBox1 فارغة ' لصق نص الحافظة إلى TextBox6 Me.TextBox6.Text = textToCopy ' MsgBox "تم لصق النص من الحافظة إلى TextBox6.", vbInformation End Sub

اخى الكريم محمد هشام. شكرا جزيلا لمجهودكم العظيم ولاهتمامك وهذا يدل على شخصكم الكريم جعله الله فى ميزان حسناتكم جارى التجرية والافادة

السادة الاعضاء المحترمين هل يوجد حل للموضوع للاهمية وجذاكم الله خير

استاذ عبدالفتاح في بي اكسيل تحياتى لحضرتك اقصد ان لو انا عامل نسخ لأي حاجة من خارج UserForm8 وعاوز اعملها لصق سريع فى TextBox6 عن طريق الضغط على CommandButton20 - زر past وكذلك لو عاوز اعمل نسخ لمحتويات TextBox1 بواسطة ( CommandButton19) زر copy علشان اعملها لصق لاي مكان تانى مش محدد داخل او خارج UserForm8

السلام عليكم ارق تحياتى لجميع اعضاء الجروب المحترمين اللذين لا يبخلون بتقديم المساعدة . سائل الله عز وجل ان يجعل ذلك فى ميزان حسناتهم 1- اريد عمل زر نسخ ( CommandButton19) داخل UserForm8 يقوم ينسخ محتويات TextBox1 2- اريد عمل زر لصق( CommandButton20) داخل UserForm8 يقوم بلصق ما يتم نسخة ولصقة داخل TextBox6 ‏‏‏‏برنامج المعطل ver 20 2024.xlsm

عتدى مشكلة تانية هى ب TextBox20 و TextBox35 و TextBox36 الخاصين بناتج طرح التاريخين الموجودين ب TextBox19 - TextBox18

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

ا.محمد هشام. ارق تحياتى اكتب فى الكود كدة داخل التكست بوكس Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) TextBox4.Value = Format(ws.Cells(X, 11).Value, "mm/yyyy") End Sub ولا فى حدث ايه

شكرا جزيلا على الاهتمام والمتابعة جارى التجربة

عند عمل بحث برقم الحساب مثلا 5002751 فى TextBox16 داخل UserForm10 يعطى صيغة الشهر وتاريخ الرفع والتركيب بصيغة تنسيقة مختلفة مما تؤثر على النتائج مع العلم ان تم التسجيل بصورة سليمة فى شاشة الادخال فى UserForm8 والتى تقوم بالترحيل الى شيت home1 الشهر 11/2023 يكتب بصورة 11/1/2023 والذى يتم الحفظ بواسطتة موجود فى TextBox4 يتم احتساب الفرق بين تاريخ الرفع 22/11/2023 يكتب بصورة 11/22/2023 موجود فى TextBox18 وبين تاريخ التركيب 20/05/2024 يكتب بصورة 5/20/2024 موجود فى TextBox19 -------------------------------------------------------------- قمت برفع البرنامج الحسابى بعد حذف جميع الشيتات واليوزر فورم حتى اتمكن من رفعة اسم المستخدم 550 كلمة السر 123 ‏‏‏‏برنامج المعطل ver 20 2024.xlsm