عبدالفتاح في بي اكسيل

لضيق وقتي جرب هذا الكود لعله يفيدك كما انك تطلب المستحيل باخفاء عن طريق التنسيق الشرطي الاخفاء لا يتم الا بكود برمجي او يدوي اما بواسطة المعادلات فهذا لن يتم Sub hide() Dim cell As Range ' For Each cell In ActiveSheet.Range("B2:B250") For Each cell In ActiveSheet.Range("B2:B250").SpecialCells(xlCellTypeConstants) If cell.Value = 0 And cell.Offset(, 1).Value = 0 Then cell.EntireRow.Hidden = true Next cell End Sub

وجب عليك ان ترفق الملف حتى الاساتدة يساعدوك ليتم التجربة على الملف يحدث هذا الخطأ بسبب بيان غير مكتمل. هذا الخطأ له سبب والحل كالتالي: يتم استخدام تعليمة If بدون عبارة End If المقابلة. يجب أن تنتهي عبارة If متعددة الأسطر بعبارة End If مطابقة. بالنسبة إلى عبارات If ... End If المتداخلة ، تأكد من وجود بنية If ... متطابقة بشكل صحيح ضمن حلقة If ... End If

جرب هذا الماكرو Sub CopyFiltered1() Dim src As Worksheet Dim tgt As Worksheet Set src = ThisWorkbook.Sheets("data") Set tgt = ThisWorkbook.Sheets("Sheet2") src.AutoFilter.Range.Offset(1, 1).Resize(, 5).Copy tgt.Range("B5") End Sub mounir.xlsm

تفضل اعتقد هذا ما تريده على حسب ما فهمت Private Sub ListFind_Change() Dim i As Long With ListFind For i = .ListCount - 1 To 0 Step -1 Debug.Print i, ListFind.List(i, 0) If ListFind.List(i, 0) <> "" Then .ListIndex = i Exit For End If Next i End With End Sub تفعيل اخر صف في اللست بوكس.xls

جرب هذا الكود Sub RemoveFourthName() Dim R As Long, Temp As Variant, Arr As Variant Arr = Range("B2", Cells(Rows.Count, "B").End(xlUp)) For R = 1 To UBound(Arr) Temp = Split(Arr(R, 1), , 4) If InStr(Temp(3), " ") Then Temp(3) = Mid(Temp(3), InStr(Temp(3), " ") + 1) Arr(R, 1) = Join(Temp) Next Range("B2").Resize(UBound(Arr)) = Arr End Sub

انقر بزر الماوس على يمين الزر وستظهر قائمة بها تحرير النص ويوجد ايضا تنسيق عنصر التحكم من ناحية الخط واللون

بما انك لم ترفق ملف لعلك تستفيد من هذا الملف Sub split() Dim first As String, second As Integer, i As Integer For i = 1 To 7 first = Cells(i, 1).Value second = InStr(first, ",") Cells(i, 2).Value = Mid(first, second + 2) Cells(i, 3).Value = Left(first, second - 1) Next i End Sub SPLIT ‫‬.xlsm

اذا كنت تريد ذلك بايوزرفورم قم بانشاءه وضع شرح اكثر وضوح واذاكان شيء اخر ايضا قم بتوضيحة حتى يتم العمل مرة واحدة على ملفك

هل تريد ترحيل البيانات مرة واحدة في كل اوراق العمل ام ماذا

جرب هذا لعله المطلوب ترحيل (1).xlsm

وضح اكثر اين يتم الترحيل في اي صفحة ثم لا يوجد زر للترحيل

تفضل لا تنسى تغيير مسار الملف على حسب مكان التخزين Sub Test() Dim sr As Workbook Set sr = Workbooks.Open("C:\Users\alhagag\Downloads\touati\touati1.xlsx", True, True) ThisWorkbook.Activate Worksheets("sheet1").Range("B2:E200").Value = sr.Worksheets("sheet1").Range("a2:d200").Value sr.Close End Sub touati.rar

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

انا لا اعمل على جزئية كل مرة للتنبيه وجب عليك اعطاء تفاصيل من البداية والا لن تجد استجابة من الاساتذة تفضل =IF(OR(C7="";D7="");"";IF(COUNTIFS('Room Reservation'!$K$2:$K$6000;C7;'Room Reservation'!$J$2:$J$6000;D7;'Room Reservation'!$F$2:$F$6000;"<="&TODAY();'Room Reservation'!$G$2:$G$6000;">="&TODAY());"booking";"no booking "))

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

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

لقد تم حل ما طلبته كان من المفترض التوضيح من البداية تفضل هذه المعادلة =IFERROR(INDEX($A$2:$A$23;AGGREGATE(15;6;ROW($A$2:$A$23)-ROW($A$1)/(($B$2:$B$23>=$E$1)*($B$2:$B$23<=$G$1));ROW()-ROW($E$3)));"") إدراج الاسماء تلقائي.xlsx

المطلوب غير واضح الصورة غير متوافقة مع الملف لقد عملت بناء على الملف Sub rep_nam_num() Dim c As Range For Each c In Range("B3", Range("B" & Rows.Count).End(3)) If c.Value Like "*[ا-ي]*" Then c.Offset(, 13) = c.Value c.Offset(, 14) = c.Offset(, 1).Value Else c.Offset(, 13) = c.Offset(-1, 13).Value c.Offset(, 14) = c.Offset(-1, 14).Value End If Next End Sub 1 (2).xls

جرب هذه المعادلة =IF(OR(C6="";D6="");"";IF(AND(ISNUMBER(MATCH($C6;'Room Reservation'!$K$2:$K$6000;0));ISNUMBER(MATCH($D6;'Room Reservation'!$J$2:$J$6000;0)));"محجوزة";"غير محجوزة ")) Hotel Reservation Daily000 (1).xlsm

حدد ما هو المدى الذي تريد ترحيله كان عليك تصميم يوزفورم حتى نفهم اكثر

المعادلة تعمل في العمود d هذا الملف الذي عملت عليه القيمة الظاهرة 5 اذا وجدت خطا المشكلة من عندك nour8161.xlsx

اخي حراثي بالنسبة لامتداد png تطبيق vba لايتعامل معها وباالتالي لا بد من تعريف دالة خاصة لقد ادرجت لك هذه الدالة وانشاء الله ستفتح جميع الامتدادات بدون مشاكل اوفيسنا.xlsm

جرب هذه المعادلة لعلها تفيدك =YEAR(TODAY())-2015

اخي ابو فايز اتمنى ان تتقبل ملاحظتي براحابة صدر انا عممت على الاعضاء لاني لاحظت هذا الشي يتكرر كثيرا تفبل تحياتي

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