زوهير

اخي الكريم اين تريد ان يتم الترحيل

السلام عليك اخي الكريم اليك الحل كاملا بالفورم ترحيل استدعاء تعديل ان نسابك الحل اضغط افضل اجابة لتمام الموضوع كود ترحيل جميل جدا.rar

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

معلومات قيمة جزاك الله خيرا وزادك علما

الاخ ياسر السلام عليك اخي الكريم وعيدك مبارك وكل عام وانت بخير لقد قمت بتوضيح اكثر في المرفق وكود الترحيل انت من تقدمت به في المشاركة الاولى وجزاك الله خيرا واريد ان يتم استدعاء البيانات المرحلة لاجل التعديل عليها البحث والتعديل في اكثر من نطاق.rar

اولا عيدك مبارك وكل عام و انت بخير وتقبل الله منك الصيام والقيام كما ذكرت في المرفق اريد البحث عندما لا يجد من العمود الاول الى العمود العاشر الى اخر صف في الورقة ينتقل مباشر الى العمود الحادي عشر ويبدأ البحث من جديد

عيدكم مبارك وكل عام وانتم بخير للرفع

اعاد الله عليكم العيد بالفرح السرور وقبول الصيام والقيام وتكونون من عتقاء النار امين امين امين

للرفع

صيام مقبول ان شاءالله للرفع

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

السلام عليك اخي الكريم وبعد اذن الاستاذ سليم جرب المرفق التالي زيادة لاثراء الموضوع اذا كان نسابك الحل اضغط افضل اجابة ليكون الموضوع منتهي IPADR ZOUHIR.rar

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

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

السلام عليكم ورحمة الله اولا صيام مقبول ان شاءالله الطلب هو البحث والتعديل في اثر من نطاق المرفق يوضح الطلب البحث والتعديل في اكثر من نطاق.rar

عليك السلام ورحمة الله وبراكاته اليك هذا الكود وجدته في احد المنتديات الاجنبية ذات وقت وكان عندي هذا الكود تضعه في الموديل وبعدها تذهب الى bar formula في تبويت fx في مكان تاوجد المعادلات تجد personalesé تجد معادلة تظهر لك بأسم AfficheImage حدد اي خلية التي تريد ان تكون صورة وجرب لعلها تعيطك النتيجة او يقوم الاساتدة الكرام بتعديل حسب طلبك Function AfficheImage(NomImage, Optional rep) Application.Volatile If IsMissing(rep) Then rep = ThisWorkbook.Path & "\" Set f = Sheets(Application.Caller.Parent.Name) Set adr = Application.Caller temp = NomImage & "_" & adr.Address Existe = False For Each s In adr.Worksheet.Shapes If s.Name = temp Then Existe = True Next s If Not Existe Then For Each k In adr.Worksheet.Shapes p = InStr(k.Name, "_") If Mid(k.Name, p + 1) = adr.Address Then k.Delete Next k If Dir(rep & NomImage) = "" Then AfficheImage = "Inconnu" Else Set myShell = CreateObject("Shell.Application") If TypeName(rep) = "Range" Then Set myFolder = myShell.Namespace(rep.Value) Else Set myFolder = myShell.Namespace(rep) End If Set myFile = myFolder.Items.Item(NomImage) Taille = myFolder.GetDetailsOf(myFile, 26) H = Val(Split(Taille, "x")(1)) L = Val(Split(Taille, "x")(0)) Ech = adr.Height / H H = H * Ech L = L * Ech f.Shapes.AddPicture(rep & NomImage, True, True, adr.Left, adr.Top, L, H).Name = NomImage & "_" & adr.Address AfficheImage = "ok" End If End If End Function

وعليك السلام ورحمة الله وصيام مقبول ان شاءالله اين المرفق

السلام عليك اخي ياسر صيام مقبول ان شاءالله ماشاءالله عليك اللهم زده علما وانفعنا به يارب هو المطلوب في الترحيل ------------------------------------- بقي التعديل والبحث ------------------------------------

اخي ياسر اقصد في المرفق مثلا عندما تملاء جميع الصفوف الى اخر صف في الشيت ابتداء من A1 الى J1000000 ينتقل مباشرة الى العمود K1 من جديد دون المساس بالبيانات السابقة ويتم الترحيل من K1 الى T1000000 ارجوا اني وفقت في تبليغ الفكرة

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

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

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

يسعدني مرورك اخي ياسر من امثالكم اخذنا وخيركم علينا وافر جزاكم الله عنا كل خير

السلام عليكم ورحمة الله محاولة بسيطة في الاكسل ارجوا ان تنال اعجابكم الله اكبر.rar

جزاك الله خيرا نجحت العملية الف شكر ورمضان كريم وتقبل الله منا ومنكم وسائر الامة الاسلامية صالح الاعمال