ابو اسامة العينبوسي

هذا و ليس الذى ارسلته لك على المسنجر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 5 Or Target.Row > 65 And Target.Column <> 3 Then Exit Sub Call odelete End Sub

السلام عليكم اسف لانشغالى استخدم هذا الكود Sub omar() Dim myrow As Integer Dim mycol As Integer Worksheets(Range("b12").Value).Select Select Case Worksheets(1).Range("b14").Value Case Is = "MMM111" myrow = 9 Case Is = "MMM222" myrow = 12 Case Is = "MMM333" myrow = 15 Case Is = "MMM444" myrow = 18 Case Is = "MMM555" myrow = 21 Case Is = "MMM666" myrow = 24 Case Is = "MMM777" myrow = 27 Case Is = "MMM888" myrow = 30 Case Is = "MMM999" myrow = 33 Case Is = "MMM100" myrow = 36 End Select If Worksheets(1).Range("d13").Value = "OUT" Then mycol = 34 Else mycol = Worksheets(1).Range("d13").Value + 2 End If Cells(myrow, mycol).Value = Worksheets(1).Range("d14").Value Cells(myrow + 1, mycol).Value = Worksheets(1).Range("d15").Value Sheets(1).Select Range("d14:d15").ClearContents End Sub

السلام عليكم محاولة للفهم Subtotal_problem2.rar

السلام عليكم اخى محمد ارسلى الملف و انا اعدله

السلام عليكم استبدل كودك بهذا الكود Sub copy_1_Values_ValueProperty() Lr = Sheets("abc").Range("b4").Value For rr = 5 To 18 Cells(rr, Lr).Value = Cells(rr, 2).Value + Cells(rr, Lr).Value Next End Sub ________Xl0000002.rar

السلام عليكم اعمالك لا تحتاج لان يثنى عليها احد (لانه تحصيل حاصل) اليس من الافضل عند اختيار رقم السند (فى حال الاستدعاء)ان يتم عرض بياناته بمجرد اختياره جزاك الله خيرا

السلام عليكم عملت هذا على عجاله هناك افكار كثيره لتضاااف كما هنالك دالات خاصه للقروض و الدفعات في الاكسل الدالات الماليه FV IPMT NPER PPMT PV RATE _____.rar

السلام عليكم fix_form.rar

السلام عليكم adnan3.rar

السلام عليكم ضعه في حدث قبل الاغلاق Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.WindowState = xlMaximized End Sub

السلام عليكم اخى مزلزل هنا طبقت على Mazda ان كان صحيح اكمل الحل باذن الله Testing_Mazda.rar

السلام عليكم الخلايا من A1753 فما دون الى A4500 هي التى بها المشكله لا يتم التعرف عليها كتواريخ فمثلا هذه المعادله تطبق و تعطى نتيجه(و ان كانت ليس بالترتيب المطلوب) اذا طبقت على الخلايا من A2 to A1753 =TEXT(A2,"mmm dd,yyyy") لكن مع بقيه الخلايا تعطلا خطا

السلام عليكم اخى الكريم حاولت و لم افلح

السلام عليكم ارفق ملف و ان لم تعرف كيف هناك موضوع مثبت لشرح ذلك للاستاذ ابو تامر

السلام عليكم هذا عنوانى Omarhajy@hotmail.com اضفنى حتى توضح لى الامر ان لم يقم احد الاخوه بحل الموضوع هل كل خمسه اسطر تريدها كمجموعه ؟

السلام عليكم ماهي معايير الترحيل و من اين الصفحتين ؟

السلام عليكم من خيارات اللصق اختر القيم فقط و باذن الله تنجح

السلام عليكم ممكن الاحتيال بهذا Delivery_Report__April__07_Mar__08_nn.rar

السلام عليكم راعي التنسيقات للخلايا dates.rar

و هنا للحذف Application.DisplayAlerts = False Sheets("m1").Delete Sheets("m2").Delete Application.DisplayAlerts = True

السلام عليكم استخدم الكود التالى لاضافة و رقتين : Sub addsheets() Application.Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=2 Sheets(Worksheets.Count).Activate ActiveSheet.Name = "m1" With ActiveSheet .Previous.Name = "m2" End With End Sub

السلام عليكم textbox_validation.rar

السلام عليكم اخ خبور

السلام عليكم substitute.rar

Sub ocolor() Dim myrng As Range Dim cell As Range Dim myrows As Integer Sheets(1).Activate myrows = Range("A65000").End(xlUp).Row Set myrng = Range(Cells(2, 1), Cells(myrows, 1)) For Each cell In myrng If cell.Value = Sheets(2).Cells(3, 2).Value Then cell.EntireRow.Interior.ColorIndex = 5 cell.Offset(0, 7).Value = "تم" End If Next Sheets(2).Activate End Sub