حسام فوزى

The code in this project must be updated for use on 64-bit
systems. Please review and update Declare statements and then
mark them with the PtrSafe attribute.

استاذى دى رسالة بتطلعلى

هل يمكننى ربط جهاز البصمة بالاكسيل بدل برنامج

zk

شكرا

بارك الله فيك ربنا يبارك لحضرتك  شكرا كتيير

السلام عليكم ورحمة الله

انا بسال بس سوالين مخلينى كارة الاكسيل

لية كل مارة بلاقى الملف كبببببر ومش علارف اية المشكلة انا عارف ممكن تكون حاجة غلط فى التكويد او المعالات مثلا

بس ولو فعلا كبيير اذاى اصغر حجمة مثلا لانة بيبقى فى الفتح بطئئئئئئئئئئئئئئئئئئ

هو ينفع اعمل للملف شير على الانترنت يبقى اكثر من مستخدم بيتعاملوا على نفس الملف  ؟؟

شششكررا وجزاكم الله خير

السلام عليكم ورحمة الله

برجاء الافادة بخصوص شيت عايز اعمل عملية توزيع البيانات للشيت الاخر

شكرا

شيت توزيع المكافاه.rar

تم الحل 

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

حضرتك ماتعرفش فدتنى اد اية ربنا يكرمك

5 hours ago, ياسر خليل أبو البراء said:

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

عموماً شوف الكود دا .. ضع الكود في حدث ورقة العمل :: هتقولي إزاي؟ هرد أقولك قلت لك قبل كدا ..

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim arr         As Variant
    Dim temp        As Variant
    Dim x           As Variant
    Dim i           As Integer

    If Target.Cells.Count > 1 Then Exit Sub

    If Target.Column = 2 And Target.Row > 2 Then
        Application.EnableEvents = False
            arr = Array("X", "ص", "م")
            ReDim temp(1 To 23)
            x = Application.Match(Target.Value, arr, 0)
    
            If Not IsError(x) Then
                For i = 1 To UBound(temp)
                    temp(i) = arr(x - 1)
                    If x = 3 Then x = 1 Else x = x + 1
                Next i
            End If
            
            Target.Offset(, 1).Resize(, UBound(temp)).Value = temp
        Application.EnableEvents = True
    End If
End Sub

الف الف الف مليون شكر وربنا يكرمك

تسلملى عندى سوال بس رخم لو حبيت اضيف مثلا  

x-ص-م-ع-ض

اضيفها منين

ودة للمثال الفعلى 

برجاء افادتى وانا اسف على تعبك حضراتكم

شكرا

توضيحى اكثرعداد.rar

بحيث يكون لكل  شيت بداية  حتى يكمل باقى الحروف

شرح الملف لو انا بادا بادئ ب

1

يبقى 

التالى

2

والتالى 

3 

وهكذا

لحد اخر التحديد z3

بدل ذلك يبقى

لو بدا ب مثلا 

x 

يبقى التالى ص

والتالى 

م

والتالى 

x 

هكذا لكن لابد من بعد ال 

x 

ص

السلام عليكم ورحمة الله وبركاتة شكرا 

جميعا واسف على التاخير كنت مسافر 

انا حاولت جرب الاكواد ولكن ماشتغلتش معايا

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    
    If Target.Address = "$A$2" Then
        Dim c As Range
        
        Range("B3").Value = Target.Value
        
        For Each c In Range("C3:Z3")
            If c.Offset(, -1) = 1 Then
                c.Value = 2
            ElseIf c.Offset(, -1) = 2 Then
                c.Value = 3
            ElseIf c.Offset(, -1) = 3 Then
                c.Value = 1
            End If
        Next c
    End If
End Sub

ولو امكن بدل 1 و 2 و 3

x - ص - م

شكرا 

ياسر خليل أبو البراء

ابوعبدالواجد

سليم حاصبيا

برجاء ان امكن عمل العداد كما فى المثال

وشكرا 

عداد.rar

الف الف الف مليون شكر 

هو المطلوب

ارجو افادتى للاهمية ولكم جزيل الشكر

وضع البيانات الموجودة بشيت 1 و 2 و 3 فى شيت 4 بمجرد الضغط

على زر بدون اى فواصل

شكرا للاهمية

المطلوب.zip

http://www.up-00.com/?VZXP

رابط الملف  شكرا اخى ياسر على المساعدة

كيفية عمل حماية لشيت بة PIVOT TABLE  بحيث لا يقدر عمل اضافة او تعديل 

وامكانية عمل REFRESH فقط

لما بعمل حماية بيلغى عملية REFRESH

شكرا اخى  

ا. ياسر خليل 

الف الف شكر بارك الله فيكم  

عبد العزيز البسكري

ياسر العربى

ممكن بعد ازنكم حد يفيدنى بردة ازاى احزف العواميد والصفوف بهذا الشكل 

شكرا

كيفية الغاء علامة X   فى اليووزر فورم فى vba

????