abouelhassan

عجزت أستاذى

حاضر دائما لا حرمنا منك يارب مشكور استاذى تمام ربنا يحفظ حضرتك يارب شكر وتقدير واحترام من اخيك

الاخوة الافاضل هل من الممكن امدادنا بكود لمنع تغير ترتيب اوراق العمل داخل المصنف وكذلك منع نغير اسمائهم على ان يكون الكود بالحدث thisworkbook ليتم التنفيذ لكامل المصنف مع الشكر والتقدير منع تغير اسماء اوراق العمل وتغير ترتيبها.xlsm

شكر وتقدير واحترام من اخيك

استاذى الحبيب لقلبى سليم حاصبيا انا سارقها من كود لحضرتك هههههههههههههههه Dim Arr(1 To 3) Arr(1) = "estdaa": Arr(2) = "nakdia": Arr(3) = "Report_Youmi": Match = IsError(Application.Match(Sh.Name, Arr, 0)) If Not Match Then GoTo Next_Sheet انا احبك فى الله

الحمد لله استاذى اتحلت المشكلة غيرت فى الكود هذا السطر For i = 6 To Sheets.Count واخفيت الاصفار بالتنسيق الشرطى احترامى وتقديرى لشخصك الكريم جداااا ربنا يكرمك يارب ويحفظك يارب اخيك باحترام

اسف استاذى تفضل اريد استثناء الصفحات الاربعة بعد data مع شكرى وتقديرى واحترامى ولو الخلية من e3.f3.g3.h3.i3 بها رقم صفر الكود لا يستدعى الصفر يتركها فارغة مع شكرى وتقديرى واحترامى استدعاء الرصيد.xlsm

تسلم ايدك ربنا ما يحرمنا منك ابداااااااااااااا يا باشا رائع جدااااااااااااااااااااااااااااااااااااا ربنا يحفظك ويسترك ويكرمك كل احترامى انا احتاج استثناء صفحات استاذى صفحة Report_Youmiوصفحة estdaa وصفحة transfer وnakdia بارك الله فيك ولك وبك

اخواتى فى الله بارك الله فيكم لدى مصنف به50 شيت اريد استدعاء الرقم المكتوب فى الخليةe3.f3.g3.h3.i3 لصفحة اسمها data احترامى وتقديرى استدعاء.xlsm

شكر وتقدير واحترام

شكر وتقدير واحترام من اخيك

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

شكر وتقدير واحترام استاذ على واستاذ سليم ابداع والله ماشاء الله

الاساتذة الافاضل لدى هذا الكود الذى يمنع اى تغير لخلايا معينة اريد تعديل الكود لاستثناء شيت3 ويصبح نطاق الحماية فى شيت 3 بس من a1 الى a1000 بمعنى احتاج اضافة الى الكود استثناء الصفحة sheet3 وجعل نطاق الحماية من a1:a3 فيها اما باقى الشيتس من a1:w1 كما هى Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Application.Intersect(Target, Range("a1:w1")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub حماية خلايا من التغير واستثناء صفحة.xlsm

رائع جدا استاذنا الفاضل بارك الله فيك

تم ويعمل مائة بالمائة سلمت وسلمت يمينك وبارك الله لك وحفظك من كل شر يا باشا حضرتك عبقرى من عباقرة الاكسيل تسلم لنا وحفظك الله استاذى واخى فى الله استاذ سليم

شكر وتقدير واحترام من اخيك

نفس الخطأ والله استاذى ارجو الاطلاع بعد اذنك كل الشكر والتقدير Abou_hasn_validation.xlsm

حفظك الله استاذنا الغالى Option Explicit Dim col As Object Dim ro%, i% Dim Sh As Worksheet '++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("m:m")) Is Nothing _ And Target.Count = 1 Then data_val Cells(2, "e") = Target End If Application.EnableEvents = True End Sub '+++++++++++++++++++++++++++++++++++++++++ Sub data_val() Set Sh = Sheets("Sheet1") ro = Sh.Cells(Rows.Count, 1).End(3).Row Set col = CreateObject("System.Collections.Arraylist") With Sh For i = 2 To ro If .Cells(i, 1) <> vbNullString And _ Not col.Contains(.Cells(i, 1).Value) Then col.Add .Cells(i, 1).Value End If Next i With .Range("E2:E50").Validation .Delete: .Add 3, Formula1:=Join(col.toarray, ",") End With End With End Sub تم التنفيذ وايضا الكود توقف اشكرك من قلبى

تحفة حلو جدا استاذى والله ما اروعك بارك الله فيك لى سؤال حاولت اغير العمود من A الى m مكان القائمة من f2 الى ("e:e50") الكود لم يعمل خرجت من الشيت ورجعت ايضا لم يعمل اشكرك من كل قلبى استاذى الغالى لقلبى استاذ سليم

الف شكر استاذ على والشكر موصول للاساتذة الافاضل استاذ سليم والاستاذ ياسر احترامى

تفضل كلمة مرور لزر امر.xlsm

الاساتذة قرأت موضوعات عدة بالمنتدى ولكنى فشلت احتاج قائمتين منسدلتين بدون تكرار او فراغات بالمعادلات وبالكود مع الشكر الجزيل قائمة منسدلة بدون تكرار وبدون فراغات بالكود والمعادلات.xlsm

تفضل كلمة السر1234 كلمة مرور لزر امر.xlsm

الاساتذة العمالقة شكر وتقدير وكامل الاحترام من اخيكم