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

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

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

كنت اعاني من المشكلة

قمت بالبحث ونصحني ميكرو سوفت بتحميل 

http://www.microsoft.com/downloads/details.aspx?FamilyID=25437d98-51d0-41c1-bb14-64662f5f62fe

والحمد لله تم حلها

سلام عليكم

استاذنا الكبير // ضاحى القريب كما احب ان اسميك القريب

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

تقبل تحياتى

 

 

 

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

 

خلى اليوم 24 ساعة فقط

مثلا دخول الساعة 8 ص وانصراف تانى يوم 8 م

الطبيعى ان اليوم 24 ساعة

يعنى 16 ساعة فى اليوم الأول واليوم التانى 4 ساعة

حتى فى البرامج الجاهزة بتكون كدة

 

لم افهم قصدك اخي

 

يحدث معى نفس الموضوع

موظف حضور يوم السبت الساعة 8 صباحا وانصراف يوم الاحد الساعة 8 مساءا متواصل

الطبيعى ان اليوم عبارة عن 24 ساعة

والموظف له 8 ساعات عمل يوميا

يبقى يوم السبت له 16 ساعة إضافى ويوم الاحد له 4 ساعات إضافى

طبقتها علي المرفق ما ظبطة

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

 

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

 

خلى اليوم 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

أخي العزيز / المشاغب الصغير

هذا ملفك بعد تطبيق فورم الأستاذ عبد الله باقشير

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