حراثي تواتي
-
Posts
190 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه حراثي تواتي
-
-
-
-
السلام عليكم ايها الكرام الافاضل في ارجاء منتدانا الغالي
لدي مشكل بسيط هو عندي ترحيل البيانات من التيكست بوكس الى الشيت يختل التنسيق وتنزل النقاط الى السطر الموالي .
كما هو موضح بالصورة
اين المشكل ؟؟
احتاج الحل ضروري وبارك الله فيكم اخواني
وان كانت هناك طريقة اخرى افيدوني بها واجركم على الله
-
شكرا استاذنا سليم حاصبيا على الاهتمام والمتابعة والمساعدة
بعد التجريب كما تلاحظ شيخنا الكود لا يعمل كما اريد حيث انه يسمح بالتكرار + يرحل البيانات مرتين ويتوقف عن العمل
ان تفضلتم بادخال تعديلات على الكود حتى يعمل كما اريد وشكرا مسبقا
وجدت هذا الكود لكنه يتحقق من البيانات في عمود الاسم فقط
lr = WorksheetFunction.CountIf(Range("B2:B10000"), TextBox1.Value) If lr >= 1 Then MsgBox "ÚÝæÇ ÇáÑÞã ÇáÊÓáÓáí ãßÑÑ"
-
السلام عليكم ورحمة الله وبركاته
اساتذتنا الكرام فضلا وليس امرا احتاج كود لا يسمح بترحيل بيانات نفس اسم الموظف ونفس تاريخ الزيارة الى الجدول كما هو موضح في الصورة
وشكرا مسبقا
-
السلام عليكم اساتذتنا الكرام
اريد مساعدة في دالة لترتيب 5 مدن الاولى في الجدول استنادا الى معيار اكبر مجموع
وشكرا مسبقا
-
بارك الله فيك استاذنا الرائد77 والاستاذ الفاضلabouelhassan
-
السلام عليكم ورحمة الله
اريد مساعدة في كود للانتقال من الورقة 1 الى الورقة 3 صحة 2
وشكرا مسبقا
-
شكرا جزيلا استاذنا الفاضل عبدالفتاح في بي اكسيل احتاج تعديل على هذا الكود شغال لكن احتاج بعد انتهاء عملية النقل يغلق الملف الخارجي ( touati1 )
وشكرا لكم مسبقا
Sub Test() Dim file_name As Variant Dim open_wk As Workbook On Error GoTo 1 file_name = Application.GetOpenFilename(Title:="ÇÎÊÇÑ ãáÝ ÇáÇßÓíá", FileFilter:="Excel Files *.xlsx (*.xlsx),") If file_name = False Then 1 MsgBox "ÚÝæÇ ÊÓãíÉ ÇáãáÝ ÛíÑ ÕÍíÍÉ", vbCritical Exit Sub Else Set open_wk = Workbooks.Open(file_name) End If Windows("touati1.xlsx").Activate Sheets("æÑÞÉ1").Select Range("a2:d15").Select Selection.Copy ThisWorkbook.Activate Sheets("sheet1").Select Range("b2").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub
-
تفضل a.kawkab : بعد فك الضغط عن الملف ضعه على سطح المكتب وافتح الملف touati2
-
السلام عليكم ورحمة الله وبركاته
اساتذتنا الافاضل ارجوا مساعدتي في كود لاستراد البيانات من نطاق محدد من ملف خارجي آخر الى الملف المفتوح في نطاق محدد حسب الصورة
حبذا الملف الذي نسترد منه البيانات يبقى مغلقا او يغلق اليا بعد استراد البيانات منه
الملفان مرفقان
-
بوركت يا بطل الرائد77 جزاك الله خيرا واثقل بها ميزان حسناتك
- 1
-
السلام عليكم ورحمة الله وبركاته
ارجوا من اساتذتنا الافاضل مساعدتي في اظهار رقم صفر ( رقم الهاتف ) في التيكست بوكس كما هو موضح في الصورة
وشكرا مسبقا
-
في كل الحالات شكرا لك استاذنا بن علية حاجي شكرا جزيلا على الاهتمام ومتابعة مشكلتي
-
شكرا اخي فعلا الكود شغال 10/10 لكن فقط على الاوفيس 2010 انجليزي
لاني عندما جربته على الاوفي 2010 نسخة فرنسية ظهر معي هذا المشكل
هل لديكم حلا لهذا المشكل ؟
-
-
السلام عليكم ورحمة الله وبركاته
احتاج تصحيح هذا الكود بحيث اذا استردت صورة بامتداد لا يقبله البرنامج تاتيني رسالة " غير امتداد الصورة الى jpeg "
لانه الان تاتيني رسالة خطأ في الكود اذا جلبت صورة غير jpeg
الملف مرفق وشكرا مسبقا
-
-
-
للأسف ... رغم ان هذا مهم جدا
ملاحظة :
عند التعديل من الفورم ثم تحفظ من الشيت وتخرج منها ، العمل يحفظ عاد
اما اذا عدلنا من الفورم وخرجنا من الفورم مع الحفظ الالي ، فلا يحفظ العمل
-
بارك الله فيك يا بطل الرائد77 دمت ذخرا للعرب
-
السلام عليكم ورحمة الله
حولت ملف اكسيل الى ملف تنفيذي ( exe ) المشكل انه بعد اجراء التعديلات واعادة فتح الملف التنفيذي لا يحفظ اي تعديل جديد
ارجوا منكم مساعدتي في حل هذا المشكل
وشكرا مسبقا
رفعت لكم كل الملفات التي عملت عليها
-
-
بارك الله فيك
- 1
عدم السماح في العمود بكتابة رقم مكرر في نطاقين مختلفين
في منتدى الاكسيل Excel
قام بنشر
عدم السماح بتكرار.xlsx