البحث في الموقع
Showing results for tags 'هام جدا'.
تم العثور علي 85 نتائج
-
الاخوه الافاضل تحيه طيبه وبعد اريد كود استخراج الاسماء الجديده بدون تكراراستخراج الاسماء الجديده.rar
-
الاخوه الافاضل اريد ترتيب البيانات اتوماتيكيا بدون زر فى هذا الشيتترتيب البيانات اتوماتيكيا.rar
-
الاخوه الافاضل تحيه طيبه وبعد اريد كود يقوم بتلوين الخلايا المكرره فى عمود معين
-
السلام عليكم ورحمه الله وبركاته الاخوه الافاضل ارجو مساعدتى فى عمل كشف حساب للعملاء بالاكواد مرفق اليك الشيت وبارك الله فيكم جميعاك حساب.rar
-
الاخوه الافاضل تحيه طيبه وبعد اريد كود يقوم باضاه سطر فارغ بمجرد ادخال اى شى فى السطر الذى يعلوه مع عمل جمع والابقاء على السطر الخاص بالجمع اضافة سطر.rar -
الاخوه الافاضل تحيه طيبه وبعد ارجو تحويل المعادله الى كود تحويل معاده الى كود.rar
-
ارجو المساعده لقد حاولت تطبيق كود ترحيل الى صفحات بناء على اسم خليه ولكن يحدث خطأ انا اريد الترحيل بناء على الخلايا من b3 الى e3 واسم الشيت الجديد سيكون بناء على الخليه f3 نطاق البحث يكون من a5 الى n15000 ويتم نسخ البيانات من a1 الى n150002 ارجو شرح الخطأ الذى وقعت فيه اثناء تنفيذ الكود بيانات.rar
-
الاخوه الافاضل ارجو المساعده اريد عند فتح USER FORMمن ADD DATA يتم ترحيل البيانات فى الخلايا الملونه بالون الاصفر على حسب تسلPAY HOTEL-1.rarها وذلك ينطبق على جميع خلايا الشيت المماثله
-
اريد تفقيط المبالغ بالجنيه بالانجليزى مثلا 10l.e = only ten pound
-
لقد قمت بعمل نوذج للبح مع التديع يكون البحث بالاسم فى العمود d ولكن عند استحدام الامر تعديل يقوم بنسخ الاسم فى العمود a هل يمكن تفادى ذلك حيث ان العمود على رقم العميل واليكم الكود المستخدم Private Sub CommandButton2_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("ÈíÇäÇÊ ÇáÚãáÇÁ") 'ááÚËæÑ Úáì Ãæá ÓØÑ ÝÇÑÛ Ýí ÞÇÚÏÉ ÇáÈíÇäÇÊ "ÕÝÍÉ ÈíÇäÇÊ ÇáãæÑÏíä iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row 'ááÊÃßÏ ãä ÅÏÎÇá ßæÏ If Trim(Me.TextBox1.Value) = "" Then Me.TextBox1.SetFocus MsgBox ("ãä ÝÖáß .Þã ÈÅÏÎÇá ßæÏ") Exit Sub End If 'ÊÑÍíá ÇáÈíÇäÊ Åáì ÕÝÍÉ ÈíÇäÇÊ ÇáãæÑÏíä ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value ws.Cells(iRow, 9).Value = Me.TextBox8.Value ws.Cells(iRow, 10).Value = Me.TextBox9.Value ws.Cells(iRow, 12).Value = Me.TextBox10.Value ws.Cells(iRow, 13).Value = Me.TextBox11.Value ws.Cells(iRow, 15).Value = Me.TextBox12.Value 'ãÓÍ ÇáÈíÇäÇÊ ÇáÞÏíãÉ ãä Úáì ÇáÝæÑã ÈÚÏ ÇáÊÑÍíá ááÊÌåíÒ áÅÏÎÇá ÈíÇäÇÊ ÌÏíÏÉ Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox1.SetFocus End Sub