سليم حاصبيا

لم افهم ماذا يعني حرف S في السطر التالي If TextBox1.Text = Mid(ws1.Cells(S, 3).Text, 1, Len(TextBox1.Text)) اذا كنت تقصد الخلية S3 الخلية S3 فهي فارغة بالصفحتين اوضح اكثر ماذا تريد بالضبط حتى تلقى المساعدة هل تريد البحث عن اسم معين واظهار بياناته ام رقم معين واظهار بياناته اكسل يستطيع ذلك دون وجود اليوزر فورم الاول ولا الثاني

الخطأ واضح عي بداية الكود انت أعطيت اسم واحد لصفحتين مختلفتين (اكسل هنا يأخذ الاسم على اساس الصفحة الثانية) قم بتسمبة الصفحة الاولى Ws1 مثلا والثانية Ws2 وكذلك LasteRow2 LasteRow1

جرب هذا الكود Private Sub CommandButton11_Click() Dim SH As Worksheet Set SH = ThisWorkbook.Sheets("المدراء (2)") Workbooks.Application.Visible = True Application.ScreenUpdating = False x = SH.Cells(Rows.Count, 2).End(3).Row + 1 Set my_rg = SH.Range("b" & x).Resize(1, 16) For i = 1 To my_rg.Count my_rg.Cells(i) = Me.Controls("TextBox" & i + 1).Value Next Application.ScreenUpdating = True End Sub

تم معالجة الامر انظر الى الورقة Test من هذا الملف Color salim1.rar

ريما يعجبك هذا الملف اذا كانت الخلية فارغة تستطيع ان تكتب فيها ما تشاء(دون دوبل كليك) واذا لم تكن فارغة يتطلب ذلك الاذن بواسطة كلمة المرور(موجودة بالملف و يمكنك حذفها بعد معرفتها) كل ذلك فقط بالجدول من H9:J33 Protect_Me.rar

نصيحة حتى تحصل على جواب شافٍ ارفع نموذج للملف الذي ترد العمل عليه 10_15 صف من البيانات لا اكثر

استبدل السطر قي الكود حيث كلمة Find_Col بهذا السطر فقط: Find_Col = Tar_Sh.Cells.Find(My_Name,lookat:=xlWhole).Column

ربما يكون المطلوب حسب ما فهمت من المشاركة salim_Data1.rar

جرب المرفق Color salim.rar

جرب هذا الملف (بدون ماكرو) Salim'test.rar

لست يحاجة الى كود غي هذه الحالة بل الى معادلة بسيطة مثل المرفق الكسور2 salim.rar

انا شخصباً لم ار اي معادلة ارفع جزء من الملف مع معادلاته

ربما يكون المطلوب salim_Data.rar

جرب هذا الكود Sub remove_Fraction() Dim last_row As Long last_row = Cells(Rows.Count, "b").End(3).Row For Each my_cel In Range("b1:b" & last_row) If IsNumeric(my_cel.Value) And Not IsEmpty(my_cel) Then With my_cel .Formula = "=ROUND(" & my_cel & ",2)" .NumberFormat = "0.00" End With End If Next End Sub

جرب هذه المعادلة قي الخلية E2 (تنسيق الخلية يجب ان يكون General) =DATEDIF(A2,B2,"y")+IF(C2+D2>0,1,0)

ارفع ملف نموذج للعمل عليه

جرب هذا الماكرو Private Sub Worksheet_SelectionChange(ByVal Target As Range) lr = Selection.Rows.Count lc = Selection.Columns.Count x = Selection.Rows.Count y = Selection.Columns.Count CommandButton1.Left = Selection.Cells(1, 1).Offset(x, y).Left CommandButton1.Top = Selection.Offset(lr, lc).Top End Sub الملف مرفق Moving_Cmd.rar

أخي الحبيب حمادة لك ما تريد

كيف نضيف اسماء الى جدول و نرتبها ابجدياً من خلال قائمة منسدلة انظر الى المرفق add_Names to List.rar

تم التعديل كما تريد élèves_salim1.rar

جرب هذا الملف هناك عامود مخفي (G) يحتوي على معادلات ضرورية للكود برجى عدم حذفه élèves_salim.rar

ارفع الملف و ليس صورة لا يمكن التعامل مع صورة

جرب هذا الملف مساعده salim.rar

تم معالجة الامر بواسطة المعادلات(عملية VBA معقدة قليلاً)لذا فضلت المعادلة عليها معادلة واحدة مع (Ctrl+Shift+Enter) تسحب نزولاً وتعطيك الجواب الشافي عسى ان ينال الاعجاب استدعاء البيانات salim.rar اذا كنت تريده بواسطة الماكرو اليك هذا الكود Sub find_number_for_me() Range("o6").FormulaArray = "=IFERROR(INDEX($C$3:$L$17,MATCH(TRUE,INDEX($C$3:$L$17,,MATCH($N6,$C$2:$L$2,0))=$O$5,0),MATCH($N6,$C$2:$L$2,0)),"""")" Range("o6").AutoFill Range("o6:o17") Range("o6:o17").Value = Range("o6:o17").Value End Sub

تم معالجة الامر CH EMARAT salim.rar