نجوم المشاركات

تفضل seddiki_adz .. ولكن هذه مسألة بسيطة جداً وكان عليك وضع الكود بالملف بنفسك .. وطالما انك تريد حل مشكلتك بالأكواد فكان عليك من باب أولى رفع الملف بإمتداد يقيل اضافة الأكواد من البداية مثل Xlsm والشكر موصول لأستاذنا الكبير lionheart ولكن بكل بساطة لإضافة الكود بالملف عليك بالضغط على Alt+F11 ثم بعد ذلك الضغط على قائمة Insert واختيار Module ستفتح لك نافذة جديدة عليك بلصق الكود بها وشكراً BINOME2223.xlsm

وعليكم السلام-فقط عليك استخداك هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("E5:AB80")) Is Nothing Then Range("A" & Target.Row) = Date End If End Sub Ech1.xlsm

كان عليك استخدام خاصية البحث بالمنتدى , فطلبك تكرر كثيراً هنا وشوف بنفسك : مساعدة في طباعة ملف اتوماتيكي كود طباعة

Sub Test() Dim a, b Application.ScreenUpdating = False With ActiveSheet a = .Range("C4:C43").Value CloneArray a, .Range("AV4"), 18, True b = Application.Transpose(Range("D3:U3").Value) CloneArray b, .Range("AW4"), UBound(a, 1), False End With Application.ScreenUpdating = True End Sub Sub CloneArray(ByVal arr, ByVal rngT As Range, ByVal n As Integer, ByVal allItems As Boolean) Dim i As Long, ii As Long, k As Long ReDim b(1 To UBound(arr, 1) * n, 1 To 1) If allItems Then For i = 1 To n For ii = LBound(arr, 1) To UBound(arr, 1) k = k + 1 b(k, 1) = arr(ii, 1) Next ii Next i Else For i = LBound(arr, 1) To UBound(arr, 1) For ii = 1 To n k = k + 1 b(k, 1) = arr(i, 1) Next ii Next i End If rngT.Resize(UBound(b, 1), UBound(b, 2)).Value = b End Sub

فورم اكسل تهنئة بعيد الفطر المبارك بكلمات متحركة الملف اسفل الفيديو

شكرا استاذي الكريم بارك الله فيك

دالة الوقت والتاريخ.rar

هل هذا الحل يرضيك ......

Sub Test() Application.ScreenUpdating = False With Sheet2 .[A1].CurrentRegion.Columns("B:D").AdvancedFilter xlFilterCopy, , .[H1], True End With With Sheet1 With .Range("E2:F" & .Cells(Rows.Count, "D").End(xlUp).Row) .Formula = "=INDEX(BASE!I$1:I$272,MATCH($D2,BASE!$H$1:$H$272,0))" .Value = .Value End With End With Sheet2.[H1].CurrentRegion.Clear Application.ScreenUpdating = True End Sub

شكرا تم الحل <>[Forms]![Form1]![Text0]

وعليكم السلام كفكرة :::: اعمل حفل شيك وعند الاختيار من الكمبو الاول يتحدث ويصبح به علامة صح وفي الكمبو الثاني استثني السجل المعلم بصح وفقط ملاحظة وعند فتح النموذج يقوم بعمل تحديث للجدول لاعادة حقل الشيك فارغا

What happened after changing the variables and what changes did you do exactly And what about the results of the code

اخی موسی سلام علیکم ورحمة الله. عید سعید انشاله و انتم من العوادین. قبل الله اعمالکم شکرا جزیلا لاسمترار مساعدتک

جزاك الله كل خير وهو المطلوب بعينه لو امكن ان تشرح الكود

Are you joking Did you have a look at the code? Please have a look carefully and change the reference of the target cell

بالصحة والعافية 🙂 جعفر

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

لصاحب السؤال اخي ناقل

Gyab_2.rar

اعتقد الموضوع مختلف استاذ ناقل

بالتاكيد غلطان اخى محمد 🙂 لانها صفر ?DateDiff("m"; #9-7-2016#;#9-30-2016#) جرب المعادله السابقه فى استعلام وشوف هيعطيك 1 ولا 0 بالتوفيق اخى

اتفضل Gyab_2.rar

هذه الصيغه مهمتها انها تنظر الى اعلى رقم موجود فى جدول tblEmpInfo فى الحقل IDemp ثم يتم اضافة اليها رقم +1 الغرض منها هو عمل التسلسل للحقل نرجع الى اين تضعها ضعها فى القيمة الافتراضيه للحقل (اسمه رقم فى اخر صوره ) انظر هنا انه اخذ رقم "1"

اين الملف جزاكم الله خيرا

اين الملف لايوجد شئ ظاهر عندى