سليم حاصبيا

جرب هذا الشيء حاول ان تملأ الخانين معاً و انظر ماذا يجري حاول ان تكتب شيئاً غير موجود في الجدول Code or ID.rar

جرب هذا الملف الذي يمكنك البناء عليه every_minute.rar

كيف تغرف ارقام الاعمدة من A الى ما تريد(حسب تحديد العدد) انظر الى المرفق column_number.rar

بعد اذن الاخ الغالي عبد السلام حل اخر على الصفحة الثانية ورقة عمل Microsoft Excel salim.rar

جرب هذا الكود كلمة السر Salim Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 6 Then unprot Else prot End If End Sub Sub prot() With ActiveSheet .Unprotect Password:="Salim" .Range("f1:f" & .Cells(Rows.Count, "f").End(3).Row).SpecialCells(2, 1).Locked = True .Protect Password:="Salim" End With End Sub Sub unprot() ActiveSheet.Unprotect Password:="Salim" End Sub

يمكن استعمال الزر Win (بين زري Ctrl و ِAlt) مع حرف D للتكبير أو للتصغير

اضف هذا الكود الى حدث التفيير في الصفحة مغ الاختفاظ بالكود السابق salim Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Count = 1 And Target.Row > 7 Then Select Case Target.Column Case 3, 5, 7 salim End Select End If Application.EnableEvents = True End Sub

ربما كان المطلوب salim رقم الهوية.rar

تذهب الى هذا العنوان

اذهب الى هذا العنوان

جرب هذا الشيء سعر البنزين salim.rar

كما قال لك الاخ علي منصور جرب استبدال الفاصلة بفاصلة منقوطة في المعادلة لتظهر هكذا =IF($A2<>"";SUBSTITUTE(trim($A2);" ";"");"")

جرب هذا الملف جرى بعض التغيرات على الخلايا المدمجة لحسن عمل الكود Employee salim.rar

انسخ هذه المعادلة الى الخلية B2 واسحب نزولاً =IF($A2<>"",SUBSTITUTE($A2," ",""),"")

جرب هذا الملف تنقل البيانات الى الورقة الثانية بعد الضغط على الزر نقل اسماء الزبائن والكود 1.rar

اضافة الى الملف السابق طريقة جديدة للعمل بواسطة المعادلات (عسى ان تنال الاعجاب) غلى صفحة 2 الصفحة مقفلة بكلمة سر salim تستطيع الكتابة(بدون كلمة السر) في اي عامود ما غدا عامود المعادلات tekrar one_time 2.rar

لا اعرف اذا كان هذا المطلوب بالضبط tekrar one_time 1.rar

جرب هذه المغادلة في الخلية A2 و اسحب نزولاً (تعمل على 2007) =IF(B2<>"",SUBTOTAL(103,$B$2:B2),"")

جرب هذا الملف tekrar one_time.rar

تفضل الملف جاهز Book ma3boul.rar

=SUMPRODUCT(--($B$3:$B$11=$K5),--($C$3:$C$11=L$4)) انسخ هذه المعادلة الى L5 واسحب يساراً و نزولاً

جرب هذا الكود Sub salim() Dim rg As Range Dim m, i As Integer Range("j8:j500").ClearContents m = 8 For i = 3 To 7 Step 2 Set rg = Range(Cells(8, i), Cells(500, i)).SpecialCells(xlCellTypeConstants, 23) rg.Copy Cells(m, "j") m = m + rg.Count + 1 Next End Sub

ارفع الملف وليس صورة عنه

بعد اذن الاخوة الافاضل \هذا الكود من سطر واجد Sub salim() Range("c1:c" & Cells(Rows.Count, 3).End(3).Row).SpecialCells(4).EntireRow.Delete End Sub

معادلتين اخرتين =RIGHT(A1,LEN(A1)-FIND("\",A1)) =MID(A1,FIND("\",A1)+1,LEN(A1))