زوهير

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

السلام عليك اخي الكريم

اليك الحل كاملا بالفورم ترحيل استدعاء تعديل

ان نسابك الحل اضغط افضل اجابة لتمام الموضوع

كود ترحيل جميل جدا.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

جزاك الله خيرا نجحت العملية

الف شكر

ورمضان كريم وتقبل الله منا ومنكم وسائر الامة الاسلامية صالح الاعمال