ترحيل بيانات عميل

[ابو غريب]

اخوانى واساتذتى خبراء المنتدى السلام عليكم ورحمة الله وبركاته

المطلوب كود او دالة

تظهر البيانات الموجودة امام الاسماء بورقة 1 فى ورقه seet1 بمجرد ان اختار الاسم عشوائى من العمود  B  بورقة seet1

مرفق ملف لتوضيح

 ولكم جزيل الشكر

حساب العملاء .rar

[احمدزمان]

السلام عليكم

هذا الحل باستخدام الدوال

 

ح_العملاء.rar

[احمدزمان]

السلام عليكم

 

وهذا الحل باستخدام الكود

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
TR = Target.Row
ER = Sheets("ÇáÈíÇäÇÊ").UsedRange.Rows.Count
For FR = 2 To ER
If Sheets("ÇáÈíÇäÇÊ").Cells(FR, 2) = Cells(TR, 2) Then
For TC = 4 To 7
Cells(TR, TC) = Sheets("ÇáÈíÇäÇÊ").Cells(FR, TC - 1)
Next TC
Exit Sub
End If
Next FR
End If


End Sub

ح_العملاء.rar

[ابو اياد ( الاسيوطى )]

استاذنا ومعلمنا الكبير الحبيب // احمد زمان 

كنت انتظر حتى ارى حلك هو حل رائع جدا جدا ارى من سيادتكم استخدام المعادلات بشكل جديد شكل اخر مما يجعلنى اعيد التفكير بالمعادله مره اخرى وان لها امكانيات اخرى لم اقم بأستغلالها بعد

والتركيب الغريب الذى اراه فى تلك المعادلات يثير تساؤلات كثيره داخلى ،،،،،،،،،

بارك الله فيكم استاذى تعلمنا وسنتعلم منكم الكثير ان شاء الله !!!!!!!!!!

تقبل فائق تحياتى

تلميذكم / ابو عواد كما سميتنى

ولا انسى انكم كنتم اول من يجيب على فى اول أسئلتى بالمنتدى الرائع 

[أبو سجده]

أخى العزيز الاستاذ الفاضل // أحمد يعقوب

جزاكم الله خيرا

وحشتنا مشاركتك وافكارك البنائة

تقبل الله منكم صالح الاعمال

وتقبل وافر احترامى

[احمدزمان]

اخي الأستاذ محمود

السلام عليكم

انا لااذكر موضوع ابو عواد

ولكن اتمنى ان لا يكون زعلك موضوع ابو عواد

 

خالص تحياتي وتقديري لك

وكل ما اقدمه في هذا المنتدى هو جزء من ما تعلمته من اساتذتي الذين سبقوني في هذا الصرح الرائع

[احمدزمان]

اخي الأستاذ سعيد بيرم

 جزاك الله خيرا

 

اسعد جدا بمشاركة معكم في المنتدى

ولكن

كثيرا ما لا يسمح وقتي بذلك

 

و الله يعين الجميع

كلا لديه مشاغله

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

 

[ابو غريب]

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

[منياوى]

[احمدزمان]

السلام عليكم ورحمة الله وبركاته

 

اخي ابو غريب

جزاك الله خيرا على مرورك الكريم

خالص تحياتي وتقديري

 

 

اخي JO11

جزاك الله خيرا على مرورك الكريم