حراثي تواتي

عدم السماح بتكرار.xlsx

شكرا أستاذي سليم حاصبيا لكن النص متغير في التيكست بوكس وليس ثابتا والذي عرضته هو مثال فقط ممكن يكون نص آخر في التيكست بوكس

اريد نفس التنسيق الموجود في التيكست بوكس هو نفسه على الخلية دون ادراج اسطر فارغة

السلام عليكم ايها الكرام الافاضل في ارجاء منتدانا الغالي لدي مشكل بسيط هو عندي ترحيل البيانات من التيكست بوكس الى الشيت يختل التنسيق وتنزل النقاط الى السطر الموالي . كما هو موضح بالصورة اين المشكل ؟؟ احتاج الحل ضروري وبارك الله فيكم اخواني وان كانت هناك طريقة اخرى افيدوني بها واجركم على الله تواتي 50.xlsm

شكرا استاذنا سليم حاصبيا على الاهتمام والمتابعة والمساعدة بعد التجريب كما تلاحظ شيخنا الكود لا يعمل كما اريد حيث انه يسمح بالتكرار + يرحل البيانات مرتين ويتوقف عن العمل ان تفضلتم بادخال تعديلات على الكود حتى يعمل كما اريد وشكرا مسبقا وجدت هذا الكود لكنه يتحقق من البيانات في عمود الاسم فقط lr = WorksheetFunction.CountIf(Range("B2:B10000"), TextBox1.Value) If lr >= 1 Then MsgBox "ÚÝæÇ ÇáÑÞã ÇáÊÓáÓáí ãßÑÑ"

السلام عليكم ورحمة الله وبركاته اساتذتنا الكرام فضلا وليس امرا احتاج كود لا يسمح بترحيل بيانات نفس اسم الموظف ونفس تاريخ الزيارة الى الجدول كما هو موضح في الصورة وشكرا مسبقا عدم السماح بترحيل البيانات.xlsm

السلام عليكم اساتذتنا الكرام اريد مساعدة في دالة لترتيب 5 مدن الاولى في الجدول استنادا الى معيار اكبر مجموع وشكرا مسبقا تواتي 41.xlsx

بارك الله فيك استاذنا الرائد77 والاستاذ الفاضلabouelhassan

السلام عليكم ورحمة الله اريد مساعدة في كود للانتقال من الورقة 1 الى الورقة 3 صحة 2 وشكرا مسبقا تواتي 40.xlsx

شكرا جزيلا استاذنا الفاضل عبدالفتاح في بي اكسيل احتاج تعديل على هذا الكود شغال لكن احتاج بعد انتهاء عملية النقل يغلق الملف الخارجي ( 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 touati.rar

السلام عليكم ورحمة الله وبركاته اساتذتنا الافاضل ارجوا مساعدتي في كود لاستراد البيانات من نطاق محدد من ملف خارجي آخر الى الملف المفتوح في نطاق محدد حسب الصورة حبذا الملف الذي نسترد منه البيانات يبقى مغلقا او يغلق اليا بعد استراد البيانات منه الملفان مرفقان touati.rar

بوركت يا بطل الرائد77 جزاك الله خيرا واثقل بها ميزان حسناتك

السلام عليكم ورحمة الله وبركاته ارجوا من اساتذتنا الافاضل مساعدتي في اظهار رقم صفر ( رقم الهاتف ) في التيكست بوكس كما هو موضح في الصورة وشكرا مسبقا touati.xlsm

في كل الحالات شكرا لك استاذنا بن علية حاجي شكرا جزيلا على الاهتمام ومتابعة مشكلتي