اخي أحمد زمان
اخونا الحبيب أبو نصار الغائب علينا هذه الفترة له معزة في قلوبنا و كلنا اخوة ان شاء الله
جزاك الله خيرا على هذا الاستدراك الذي يوحي بمدى طيبتكم و كرم خلقكم
تقبل تحياتي و تقديري
أخي الكريم
استطيع ادراج محتويات الملفين في الاكسل كل سطر في خلية بالترتيب الموجود في الملفين النصيين
لكن مشكلة الجمع حسب علمي فيها نوع من الصعوبة لوجود جمل و ارقام و مسافات فارغة في نفس السطر
والله اعلم
لماذا لا تجعل محتوى الملفين النصيين في ورقة اكسل ليكون الامر اسهل
السلام عليكم
استسمح أخي بن عليه لإضافة بعض الأسطر لكود إدراج صفحة جديدة لتفادي الخطأ ان كانت خلية الاسم فارغة او العميل موجود مسبقا
Sub Insert_Agent()
If [F2] = "" Then Exit Sub
On Error GoTo Ms
Sheets("copy").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = [F2]: .[F2] = "": End With
Sheets("copy").Select
[F2] = ""
If Err.Number = 55 Then
Ms:
Application.DisplayAlerts = False
MsgBox "إسم هذا العميل موجود مسبقا يرجى تغيير الإسم", vbCritical, "خطأ"
ActiveSheet.Delete
End If
End Sub
السلام عليكم
لو اتوقع انه بالامكان تغيير الخلفية للقائمة المنسدلة
جزاك الله خيرا أخي حمادة على هذا الطرح
و بارك الله في صاحب الكود الاستاذ جعفر حفظه الله
السلام عليكم
اخي : أبو صهيب
جزاك الله خيرا على مروركم و حفظكم الله و رعاكم
أخي : حمادة
و إني و الله احبكم في الله و أبذل ما في وسعي لأعطي ما أعرف و لا أحتكر لنفسي شيئا
جزاكم الله خيرا
أخي amfouad555
بالنسبة لاتجاه النص من اليمين الى اليسار او العكس
قم بتعيير الخاصية RightToleft للفورم من اليمين لليسار او العكس
أخي سعيد
المستر كود حِنَيٍِنْ و حِشري شويه بس ابن عيله
و مشكلتو انو غيور من السِتْ المعادله
تمنياتي لك بالتوفيق و النجاح
و السلام موصول لاخونا جمال و اخونا حمادة
تقبل تحياتي
السلام عليكم
أخي الحبيب : الأستاذ سعيد بيرم
كما ذكر اخي حمادة : لو كانت هذه المرة الاولى للتعامل مع الأكواد فكيف تكون المرة الثانية ، أما الثالثة . . . . ..
" انت بتذاكر من ورانا و لا إيه يا سيد سعيد"
لا يسعني سوى ان اقول بارك الله فيك و زادك من العلم و من الحسنات من حيث لا تحتسب
بكل صدق برنامج رائع
تقبل تحياتي