المشاغب الصغير

موضوع ممتاز جدا لكن لو حبيت اني افعل البرنامج فعلا علي الجهاز الاخر ؟؟؟

هل من الممكن تطبيقة علي اوفس 2010

كنت اعاني من المشكلة قمت بالبحث ونصحني ميكرو سوفت بتحميل http://www.microsoft.com/downloads/details.aspx?FamilyID=25437d98-51d0-41c1-bb14-64662f5f62fe والحمد لله تم حلها

سلام عليكم استاذنا الكبير // ضاحى القريب كما احب ان اسميك القريب العمل رائع جدا ولكنه لايزال به مشكله على التشغيل على ويندوز اكس بى مع العلم نسخه الاوفيس 2010 تقبل تحياتى

خلى اليوم 24 ساعة فقط مثلا دخول الساعة 8 ص وانصراف تانى يوم 8 م الطبيعى ان اليوم 24 ساعة يعنى 16 ساعة فى اليوم الأول واليوم التانى 4 ساعة حتى فى البرامج الجاهزة بتكون كدة لم افهم قصدك اخي يحدث معى نفس الموضوع موظف حضور يوم السبت الساعة 8 صباحا وانصراف يوم الاحد الساعة 8 مساءا متواصل الطبيعى ان اليوم عبارة عن 24 ساعة والموظف له 8 ساعات عمل يوميا يبقى يوم السبت له 16 ساعة إضافى ويوم الاحد له 4 ساعات إضافى طبقتها علي المرفق ما ظبطة

موضوع جميل لكن انا لدي المنتجات غير ثابنة في عدد الخامات

خلى اليوم 24 ساعة فقط مثلا دخول الساعة 8 ص وانصراف تانى يوم 8 م الطبيعى ان اليوم 24 ساعة يعنى 16 ساعة فى اليوم الأول واليوم التانى 4 ساعة حتى فى البرامج الجاهزة بتكون كدة لم افهم قصدك اخي

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

لا هو لصنع الملصقات فقط

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

مرفق شيت اكسيل تم التعديل عليه بخصوص البار كود في الاكسيل منقول Barcode-Creator ok.rar

ممتاز وتعليمك عالي المستوي ربنا يبارك في عملك وعلمك

احب اشكر جميع الاستاذة الكبار واحب ان اشارك لعلي اقدم معلومة صحيحية مفيدة لك اخي قائمة.rar

هل ظبط معاك الكود

اخي الغالي اولا شكرا لكل استاذتي ثم جرب المرفق Classeur1.rar

جرب هذة الدالة اخي Classeur1.rar

جرب هذا الامرفق اخي Classeur1.rar

للرفع

للرفع

مشكور اخي للاهتمام المعدات الجديد.rar

طلب مساعدة الكود التالي ممتاز لكن اريدة ينسخ القيم وليس المعدلات الكود يقوم بنسخ بينات من نططاق معين في Option Explicit Private Sub Worksheet_Activate() Dim ws As Worksheet Dim LastRng As Range Dim LastRow As Long Application.ScreenUpdating = False 'speed up code Sheets("Master List").Rows("2:" & Rows.Count).ClearContents 'clear For Each ws In Worksheets Set LastRng = Sheets("Master List").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) If ((ws.Name <> "Template") And (ws.Name <> "Change Log") And (ws.Name <> "Agent") And (ws.Name <> "Master List") And (ws.Name <> "Info")) Then With ws If (.AutoFilterMode) Then .AutoFilterMode = False ' REMOVE AUTOFILTER IF EXIST LastRow = .Range("B" & Rows.Count).End(xlUp).Row .Range("J4:N" & LastRow).Copy Destination:=LastRng End With End If Next Application.CutCopyMode = False 'clear clipboard Application.ScreenUpdating = True END SUB او التعديل علي الكود التالي ليقوم بالنسخ الراسي وليس الفقي بمعني خلايا اسفل وليس بجوار Sub CopyColumnValues() Dim sh As Worksheet Dim DestSh As Worksheet Dim Last As Long If SheetExists("Master") = True Then MsgBox "The sheet Master already exist" Exit Sub End If Application.ScreenUpdating = False Set DestSh = Worksheets.Add DestSh.Name = "Master" For Each sh In ThisWorkbook.Worksheets If sh.Name <> DestSh.Name Then If sh.UsedRange.Count > 1 Then Last = Lastcol(DestSh) With sh.Columns("J:N") DestSh.Columns(Last + 1).Resize(, _ .Columns.Count).Value = .Value End With End If End If Next Application.ScreenUpdating = True End Sub Function LastRow(sh As Worksheet) On Error Resume Next LastRow = sh.Cells.Find(What:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 End Function Function Lastcol(sh As Worksheet) On Error Resume Next Lastcol = sh.Cells.Find(What:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column On Error GoTo 0 End Function Function SheetExists(SName As String, _ Optional ByVal WB As Workbook) As Boolean On Error Resume Next If WB Is Nothing Then Set WB = ThisWorkbook SheetExists = CBool(Len(Sheets(SName).Name)) End Function

اعتذر أخي العزيز جدا من كثرة طلبي لكن اعشم فيك الخير واشكراك اولا للاهتمام وثانيا علي دقة العمل الجميلة منك

للرفع

اخي العزيز جرب هذا المثال ولك كل الحرية في تغير اي شئ مثال مفتوح للتعديل اهم شء هو اخيار اسم قاعدة البيانات في الجدول المخصص لذلك backup.rar

شكرا اخي جدا للاهتمام ولكن المرفق لملف مختلف واعتزر منك جدا جدا