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

السلام عليكم اخى احمد سانوب عنك بالجواب Private Sub CommandButton1_Click() [B20] = Val(TextBox1) [d20] = Val(ComboBox1) End Sub

السلام عليكم هل هذا المقصود ؟ test_1.rar

السلام عليكم هل الترحيل يتم بصوره الية بمجرد فتح الملف في اليوم التالى ؟ ام بزر امر ؟

السلام عليكم القصد من قولى ان مشاركته غير واضحه الهدف و الا فنحن لسنا في درس لغة عربيه لذلك لم افهم مقصده حتى الان و شكرا

السلام عليكم بدون حاجه الى رزنامه (ادرجتها في الملف للتاكد من صحة الحل و المقارنه) الحل الاول بالكود و الثانى بالمعادله في الخليه A1 GoTo2_Last_One_2.rar GoTo_Last_One.rar

السلام عليكم هنا الداله days360 تعتبر العام 360 يوم (مشكله ممكن حلها) حسب فهمى : اذا كنا في اليوم الاول من العام(1/1/2009) نذهب الى الخليه A100 اليوم الثانى من العام (2/1/2009)الى A200 قديكون هناك داله ترجع ترتيب اليوم الحالى من العام لكن ان وجدت قد اكون لم استخدمها من قبل لذلك استخدمت now() مع days360 على النحو التالى =(360-(DAYS360(NOW(),"12/31/2009",TRUE)))*100 ثم قمنا بالتكبير للرقم الناتج الى 100 مره اذا كان هذا المطلوب ممكن نجعل الحل اكثر جوده من خلال دمج المعادله في الكود مباشرة و الله ولى التوفيق هنا الحل بالكود كاملا هكذا x = Application.WorksheetFunction.Days360(Now(), "12/31/2009", True) Z = (360 - x) * 100 Range("a" & Z).Select GoTo2.rar GoTo23.rar

السلام عليكم ارفق الملف الذى تريد

السلام عليكم بشرط الاتى الملفات المرفقة my files فك ضغطها و ضعها في المسار C:\ my_files.rar Main.rar

بسم الله الرحمن الرحيم السلام عليكم و رحمة الله و بركاته Private Sub Workbook_Open() Sheets(1).[h9] = [h9] + 1 End Sub Invoice2.rar

السلام عليكم حل سريع Book199.rar

تقصد مربع تدخل به الحرف "A" المربع الثانى يعطيك 1 ؟؟

السلام عليكم Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox Target.Column End Sub Book19.rar

السلام عليكم احسنت

السلام عليكم الاخ smanj00 لكن عند الادخال الجديد كل الخلايا ستاخذ اخر وقت تم التعديل فيه هذ مشكلة الدالة now() لذلك استخدمنا الكود بدل الدالة

السلام عليكم Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub Application.EnableEvents = False Target.Offset(0, 5) = Time(): Target.Offset(0, 6) = Date Application.EnableEvents = True End Sub 1234.rar

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

السلام عليكم لو تتكرم وتضيفنى الى قائمتك omarhajy@hotmail.com

السلام عليكم ما هى علامة النجاح لكل مادة ؟

السلام عليكم سجلت ماكرو و عدلت عليه مفتاح الاختصار لتتبع الهيبرلينك في الخلية النشطه هو Ctrl+m fhyperlink.rar

السلام عليكم ممكن ان تبنى داله بنفسك هكذا Function Mylen(Z As Range) Dim C As Long, Y As Long, A As Long, B As Variant A = 0 For C = 1 To Len(Z) B = Mid(Z, C, 1) For Y = 0 To 9 If Y = B Then A = A + 1 End If Next Next Mylen = A End Function mylen.rar

السلام عليكم بهذين الكودين Private Sub Workbook_Open() Sheets(1).Activate End Sub --------------------------------------------------------------------- Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveSheet.DisplayRightToLeft = True End Sub

السلام عليكم الاخ الاستاذ طارق هنا حل ارجو ان ينال رضاك On Error GoTo 1 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = 4 To Sheets(1).UsedRange.Rows.Count + 1 mysheet = Sheets(1).Cells(i, 12) Sheets(mysheet).Select With ActiveSheet x = Cells(Rows.Count, 3).End(xlUp).Row + 1 For z = 2 To 14 Cells(x, z) = Sheets(1).Cells(i, z) Next z End With Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True 1: Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True FALL_SUC2.rar

السلام عليكم دائما مستقبلا ارفق ملف هنا تصور لما تريد Private Sub Worksheet_Activate() On Error GoTo mee Select Case Sheets(1).Cells(1, 1).Value Case Is = 1, 2, 3 Cells(1, 1).Select Case Is = 4, 5, 6 Cells(100, 1).Select Case Is = 7, 8, 9 Cells(200, 1).Select End Select mee: End Sub او هذا الكود Private Sub Worksheet_Activate() On Error GoTo mee Select Case Sheets(1).Cells(1, 1).Value Case 1 To 3 Cells(1, 1).Select Case 4 To 6 Cells(100, 1).Select Case 7 To 9 Cells(200, 1).Select End Select mee: End Sub GoTo.rar

السلام عليكم شكرا لك

السلام عليكم الاستاذ يحيى ممكن هكذا ايضا =SUM(يناير:يونيو!B2) _________.rar