على حسن

اشكركم كثيرا استاذ ابوحنين واستاذى قنديل الصياد

جزاك الله خيرا

اشكرك اخى طالب علم مجتهد واستاذى قنديل الصياد لكن المطلوب كود عمله رقم ( س ) جعل العمود لا يكرر الارقام رقم التحويل هو سريال بمجرد ان اضع اى رقم فى الخانه b2 يتم عمل سريال بعده دون تكرار

جزاك الله خيرا

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

عمل رائع

المطلوب داخل المرفق

االرجاء المساعده New ورقة عمل Microsoft Excel.rar

هذا الكود لتلوين الخليه النشطه كيف يمكننى تفعيل الكود لاكثر من الف صفحه Option Explicit Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Static OldCell As Range If Not OldCell Is Nothing Then OldCell.Interior.ColorIndex = xlColorIndexNone End If Target.Interior.ColorIndex = 3 Set OldCell = Target End Sub

جزاك الله خيراً

بارك الله فيك

شرح رائع لاستاذنا الكبير قنديل الصياد والله نحن نتعلم منك الكثير جزاك الله خيراً

عند عمل المشاركه يعطى هذه الرساله ملف.rar

ما هى طريقة عمر مشاركه على اكسيل عربى 2010 علماً بان الاكسيل به اكثر من الف شيت وبه اكواد ومعادلات برجاء افادتى لاهمية الموضوع

هل هذا ما تقصد

عمل جميل ورائع ونحتاج فعلا من الاداره ان يتم شرح اى كود بهذه الصوره لتعم الفائده على جميع الاعظاء جزاك الله خيراً

اخى اين المرفق

جزاك الله خيرا استاذنا قنديل الصياد

استاذنا العزيز قنديل الصياد هل يمكن عمل داله لاضافة التاريخ

موضوع رائع استاذى العزيز قنديل الصياد

اريد اضافة رسالة تم الترحيل الى هذا الكود Sub Shift() Dim x(9) Application.ScreenUpdating = False LR = [A52].End(xlUp).Row For r = 4 To LR Sheet2.Activate no = Cells(r, 1): nm = Cells(r, 2) For i = 1 To 8: x(i) = Cells(r, i + 2): Next For sh = 1 To Sheets.Count If Sheets(sh).Name = nm Then GoTo 10 Next sh '===================================== 'in case no sheets in this name Sheets("Sample").Visible = True Sheets("Sample").Select Sheets("Sample").copy after:=Sheets(Sheets.Count) ActiveSheet.Name = nm [B1].Value = no: [B2].Value = nm Sheets("sample").Visible = False ' ====================================== 10 Sheets(nm).Select nr = [A9999].End(xlUp).Row + 1 For i = 1 To 8: Cells(nr, i) = x(i): Next 20 Next r Columns("A:A").EntireColumn.AutoFit Sheet2.Activate Application.ScreenUpdating = True [A1].Select End Sub Sub clrear_data() [A4:a51].ClearContents [C4:g51].ClearContents [i4:j51].ClearContents End Sub Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select End If End Sub ActiveWindow.SmallScroll Down:=-33 Range("C4:D51").Select Range("D4").Activate Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub

استاذنا قنديل الصياد جزاك الله خيرا وزاداك الله علماً وجعله الله فى ميزان حسناتك

نصيب الشركاء نصيب الشركاء.rar

المطلوب بعد الضغط على جمع المصروفات اعطاء رساله تم الجمع

استاذا العزيز مهندس طارق جزاك الله خيراً على مجهودكم الرائع فى صرح اوفيسنا