سليم حاصبيا

الحل بين يديك جديد salim.rar

اليك هذا الملف للحل حذف صف باكمله.rar

اليك هذا الملف ربما ينال اعجابك كريم 4.rar

اليك هذا الحل test salim.rar

اليك الحل يا صديقي ملفك مضروب فيروس قد قمت بتغيير الملف قطع سيارات.rar

السلام عليكم عسى ان ينال اعجابكم تكرار اسم.rar

اكتب هذه المعادلة واسحب نزولاً حيث A هو عامود الارقام المطلوبة =IF(A1<>"",IF(INT(A1)=A1,1,2),"")

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

اليك الحل هناك اعمدة مخفية تحتوي على معادلات ضرورية الرجاء عدم المس بها نقل بيانات بترتيب ابجدى للأسماء salim.rar

لا اعتقد ان ذلك ممكناً (حسب علمي) لكن تستطيع ان تعرف اخر تعديل على الملف من خلال كليك يمين على اسم الملف حيث هو محفوظ (دون ان يكون مفتوحاً) و Properties او اذا كان الملف مفتوحاَ اذهب الى info>>>> file و ستجد هناك كل ما تريد معرفته

اليك الحل اخي ابراهيم دفتر حركة1 salim.rar

السلام عليكم اليك هذا الملف النموذج مجرد ادخال بيانات في العامود A تحصل على الوقت والتاريخ يمكنك التعديل عليه تاريخ تلقائي.rar

اولاً:ماذا تعني بالمصدر / لم اجد في الجدول هذه الكلمة........... فهل تقصد المنشأ ثانياً : ما هو الرقم المطلوب بالنسبة لكل منشأ اعطني جدولاً بهذا ولك ما تشاء

بواسطة هذا الكود تستطيع ان تحدد الى اي نطاق سوف يتم النقل مشكل 8.rar

حل اخر بعد اذن الاخوة UNIQUE EXTRA LIST 1.rar

جرب هذا الشيء UNIQUE EXTRA LIST.rar

استاذ مختار ممكن بالصدفة البرنامج وضع رقم عشوائي من الارقام الأولية (حظ عاطل) بحيث انه لا يقبل القسمة الا على واحد و نفسه لذلك لم يتوقف اعد الكرَة مرة اخرى لحين ايجاد الحل

استاذ مختار عسى ان ينال اعجابكم اظر الى الصفحة (sheet1(2 rand.rar

استاذ مختار هل تريد الارقام في الخلايا الخضراء عشوائية ام لا السؤال الثاني هل من مانع اذا تكررت الارقام ان في العامود b اوd

تم التعديل على الملف حسب الحاجة مع الترقيم التلقائي حذف صفوف اوتو ماتيك.rar

هل هذا ما تقصده المبيعات.rar

انسخ هذا الكود الى حدث الصفحة الكود يخفي ولا يحذف (حفاظاَ على البيانات) الماكروالاول يعيد كل شيء الى طبيعته اذا اردت ان يحذف نهائياُ استبل ذلك من خلال الكود Sub showall() For i = 7 To 100 If Cells(i, 1).EntireRow.Hidden = True Then Cells(i, 1).EntireRow.Hidden = False End If Next End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lr As Integer Dim nametodel As String On Error Resume Next lr = Cells(Rows.Count, 1).End(xlUp).Row If lr < 7 Then lr = 7 Set myrg = Range("a7:a" & lr) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, myrg) Is Nothing Then nametodel = Target.Offset(0, 1).Value Justify = MsgBox(nametodel & " " & "åá ÇäÊ ãÊÃßÏ ãä ãÓÍ ", vbYesNoCancel) If Justify = vbYes Then Target.EntireRow.Hidden = True End If End If End Sub

حل اللغز ترجمة ترجمة.rar

السلام عليكم عسى ان ينال الاعجاب data salim.rar

السلام عليكم في الصفحة 1 كبسة يمين على اسم الصفحة في الاسفل اختر view code الصق الكود التالي بعد ان تكون قد نسخته (يمكنك استعمال Ctrl+Shift+h) لتنفيذ الكود Sub tarhil() LR1 = Sheets("1").Cells(Rows.Count, 3).End(xlUp).Row lr2 = Sheets("2").Cells(Rows.Count, 2).End(xlUp).Row + 1 Sheets("2").Range("b3:d" & lr2).Clear Set myrg1 = Sheets("1").Range("C5:E" & LR1): Set myrg2 = Sheets("2").Range("b3") myrg1.Copy myrg2.PasteSpecial xlPasteAll Application.CutCopyMode = False End Sub