ترحيل مع match

[أبو چيداء]

المطلوب في المرفقات اتمنى الردود

ترحيل مع match.rar

[رجب جاويش]

تفضل أخى

 

ترحيل مع mach.rar

[أبو حنــــين]

حل و  لا  اروع اخي رجب

اطلعت على الملف و لكنني  لم افهم المطلوب الا بعد الاطلاع على ردك الذي لا رد بعده

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

[احمد عبد الناصر]

السلام عليكم

 

لاثراء الموضوع 

 

Private Sub CommandButton1_Click()
Cells(Range("a:a").Find(TextBox1.Text, LookAt:=xlWhole).Row, Columns.Count).End(xlToLeft).Offset(0, 1) = TextBox3.Text
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
TextBox2.Text = Range("a:a").Find(TextBox1.Text, LookAt:=xlWhole).Offset(0, 1)
End Sub

 

 

تحياتي

[رجب جاويش]

أخى الحبيب / أبو حنين

شكرا جزيلا أخى الحبيب على كلماتك العطرة

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

[رجب جاويش]

أخى الفاضل / أحمد عبد الناصر

تسلم ايديك وتسلم أفكارك

[إبراهيم ابوليله]

الاخ الحبيب

رجب جاويش

احمد عبد الناصر

بارك الله فيكم حلول رائعه

ومختلفه وهذا ما يدل على وجود اساتذه افاضل فى هذا المنتدى

بارك الله فى علمكما

[أبو چيداء]

شكرا اخي رجب واخي احمد على هذه الافكار

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

وشكرا

[إبراهيم ابوليله]

الاخوه الافاضل

هذا حل اخر

للبحث فى التيكست بوكس

ترحيل مع mach.rar

 

[حمادة عمر]

السلام عليكم

الاستاذ القدير الرائع / رجب جاويش

 

تسلم ايديك ... كم انت رااائع دوما

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

[حمادة عمر]

السلام عليكم

الاخ العزيز / احمد عبد الناصر

 

دائما تثري الموضوعات بحلولك

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

 

مزيد من التقدم ودائما للأمام

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

[ياسر الحافظ]

الاستاذ  الفاضل "  رجب جاويش " 

كما قال الاخ العزيز " ابو حنين "  ينطبق بما جال بخاطري تماما : 

 

حل و  لا  اروع اخي رجب

اطلعت على الملف و لكنني  لم افهم المطلوب الا بعد الاطلاع على ردك الذي لا رد بعده

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

كل الشكر  

وفقك الله 

ابو الحارث