أيهاب ممدوح

شكرا اخ عبد الله جزاك الله خير

السلام عليكم يوجد لدي كود يعمل في صفحه الحدث الرجاء جعله يكون كود بحيث ان يتم العمل به عند اللزوم وليس كل مره ادخل الصفحه يقوم بالتحديث ويأخد وقت Option Explicit Dim check% Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Columns(1)) Is Nothing _ And Target.Count = 0 Then Call IsHyperlink(Target) If check Then Sheets(Target & "").Visible = True Target.Hyperlinks(1).Follow End If End If Application.EnableEvents = True End Sub Sub IsHyperlink(r As Range) check = r.Hyperlinks.Count End Sub Private Sub Worksheet_Activate() Dim wSheet As Worksheet Dim l As Long l = 1 With Me .Columns(1).ClearContents .Cells(1, 1) = "اسماء المنتجات" .Cells(1, 1).Name = "Index" End With For Each wSheet In Worksheets If wSheet.Name <> Me.Name Then l = l + 1 With wSheet .Range("A1").Name = "Start" & wSheet.Index .Hyperlinks.Add Anchor:=.Range("d1"), Address:="", SubAddress:= _ "Index", TextToDisplay:="الرئيسية" End With Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _ SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name End If Next wSheet With Me.Range("A:A").Font .ColorIndex = xlAutomatic .Bold = True: .Underline = 1 .Name = "Arial": .Size = 12 End With End Sub المصنف1.xlsm

جزاك الله الخير الملف مظبوط شكرا جزيلا استاذنا

السلام عليكم الاخوة الاعزاء الرجاء المساعده في ملف مرفق اريد ترحيل اكواد الاصناف الموجوده في المخزون (عمود O) رقم 1 يعني موجود واذا صفر يعني غير موجود اريد الترحيل من 3 صفحات الي صفحه الجرد بالترتيب صفحه RX وبعدها صفحه W وبعدها صفحه D في العمود B في صفحه الجرد ترحيل معرف المخزون فقط اذا موجود الصنف شكرا مقدما للجميع الجرد.xlsm

جزاك الله خير شكرا استاذ محمد

السلام عليكم استاذ محمد ارجوا الشرح للملف الصور موجوده فين وطريقه اضافه صور جديدة الملف ممتاز بس محتاج شرح له رجاءا

الله يبارك في عمرك استاذ محمد شكرا جزيلا لتعبك معايا شكرا

السلام عليكم نرجوا اضافه كود ترحيل الي حساب العميل لو تكرمت 1-في حاله مكتوب اجل بالملاحظات يقوم بالترحيل الي حساب العميل 2-تاريخ العميله الي اخر صف موجود 3-الوصف من خليه (c10) الي الوصف بحساب العميل في اخر صف 4- سعر البيع الي عمود d باخر صف في صفحه العميل 5-المطلوب ترحيله التاريخ - (الوصف مع الكود= c10)- القيمه الي صفحه العميل 6-طبعا بفرض ان عدد العملاء كبير وليس 4 فقط شكرا جزيلا مبيعات ومشتريات V4.xlsb

جزاك الله كل خير تم العمل بنجاح شكرا استاذ محمد

اخي الكريم محمد هشام تم التعديل بنجاح بخصوص العدد الجديد تم بشكل ممتاز لكن اصبح مشكله بالترحيل حيث يقوم بالترحيل للصفحه الي عمود المبيعات والمفروض يتم الترحيل الي عمود المخزون بعدد 1 والترحيل لصفحه المشتريات لنفس الاعمده مرفق الملف مبيعات ومشتريات V2.xlsb

السلام عليكم جزاك الله خير استاذ هشام هو المطلوب ممتاز لو أمكن كود تفريغ الخلايا بعد التسجيل شواء شراء او البيع في صفحه التسجيل

السلام عليكم بخصوص المبيعات والمخزون بارك الله فيك ممتاز المشتريات الكود لا يعمل

هذا ما يحدث وهذا غير المطلوب المطلوب هو الاضافه الي نفس المنتج اضافه باقي البيانات من كميه 1 وتاريخ البيع وسعر البيع والملاحظات بخصوص السعر البيع يتم ترحيله الي سعر البيع وليس سعر الوحده وعند استدعاء اصم الصنف يتم استعداء الوصف وليس الاسم

تم التجربه بخصوص الترحيل الي صفحه المبيعات ممتاز بخصوص الترحيل الي صفحه المخزون قام بأضافه صف جديد بكود المنتج ولم يتعامل مع المنتج المسجل من قبل مرسل ملف التجربه مبيعات ومشتريات.xlsb

لا غير وراد تكرار الكود للمنتج