ريان أحمد

للرفع

up

up

allعندي جدول في ورقه كل مره اقوم بجلب بيانات جديدة للورقة n اريد كود يقوم بالستبدال القيم التاريخ الجديده ووشعها في ورقه all e.rar

عندما فتحت الملف ظهرت الرسالة اين الخطا الرجاء منكم المساعدة Sans titre.rar

سلام شكرا لكن المطلوب هو عند وجود تطابق بشرط يكون في الخلية الملاحظة حرف t و s

اريد كود بحيث عند البحث في الجدول وعند أيجاد تشابه اسماء وفي خلية الملاحظة s ; t يقوم بحذف السطرين

السلام عليكم اريد كود بحث في جدول واخرتج التطابق بحيث يكون في خانة الملاحظة s و ف و فرزهم eeee.rar

جرب recherch.rar

اي نسخة افيس عندك

الرجاء تزويدنا بمرفق وهل تريد المطلوب في فورم او ورقة اكسل

الرجاء تزويدنا بمرفق للفهم اكثر

قم بالتعديل على اذهب الى مودال وعدل في نطاق البيانات Option Explicit '====================================================== '====================================================== ' ÇÓã äØÇÞ ÑÄæÓ ÇáÇÚãÏÉ ' Çæ ÚäæÇä ÇáäØÇÞ ãáÍæÞ ÈÇÓã ÇáæÑÞÉ Private Const MyTopColmnRng As String = "ÇáÈíÇäÇÊ!$B$3:$t$3" قم بالتعديل هنا نطاق البيانت '====================================================== Sub KH_FIND() Dim ContRow As Long Dim vRng As Range '========================== On Error GoTo 1 Set vRng = Range(MyTopColmnRng) '========================== With vRng ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row End With '========================== If ContRow = 0 Then MsgBox "áÇ ÊæÌÏ ÈíÇäÇÊ ÇÚÊãÇÏÇ Úáì ÂÎÑ ÕÝ Ýí ÇáÚãæÏ ÇáÇæá" Else With UserFormSearch .kh_RngSet vRng, vRng.Offset(1, 0).Resize(ContRow) .Show End With End If 1: Set vRng = Nothing End Sub

شكرا وبارك الله فيك وجزاك الله كل خير

شكرا على المرور الطيب لكن اريد فلترة بدلالة يوم معين

عندما اردت الفرز بواسطة اتلأيام لم استطع حتى بعد تحويل التنسيق فهل هناك طريقة لفرز اتلأيام ss.rar

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

للرفع

UP

السلام عليكم عمل رائع هل بلإمكان اظافة خاصية نسخ الرمز

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

ولو قرات الجزء العلوي للكود لو وجدت انا عمود التسلسل اختياري ---- هدا وفي انتصار الخبراء ماذا يقولون ---

التغيير تم في الجزء تم التخلي على الترتيب التلقائي المدخل في الكود حيث انا الكود يعمل بآلية اول خلية فارغة بعد الترتيب التلقائي يدخل رقم واحد ثم يقوم بالترتيب تلقائيا .kh_SetAddrss "rayan", "A3:D3" حيث تم التخلي على الخلية التي تدخل اول رقم في السجلات

جرب المرفق error.zip