Ali Mohamed Ali

وعليكم السلام-لك ما طلبت على الرغم ان هذا الموضوع تكرر مئات المرات فى المنتدى فعليك بعد ذلك استخدام خاصية البحث بالمنتدى قبل رفع المشاركة فالمنتدى به كنــــوز id emplloy1.xlsx

وعليكم السلام .. كان عليك استخدام خاصية البحث بالمنتدى فقد تم تناول هذا الموضوع مرات عديدة جداً , ويتلخص الموضوع فى ضبط اللغة العربية على الكمبيوتر كما بهذا الرابط : تعديل وضبط كود التفقيط

بارك الله فيك وزادك الله من فضله ورحم الله والديك

وعليكم السلام-يمكنك تطويع هذا الكود Option Explicit Option Base 1 Sub Wsh_CopyTo_NewWbk() Dim aWsh As Variant aWsh = [{"Sheet1","Wsh1";"Sheet2","Wsh2"}] Dim aWshSrc(2) As Worksheet Dim wbk As Workbook, wsh As Worksheet Dim vItm As Variant, b As Byte Rem Set Worksheet Array With ThisWorkbook For b = 1 To UBound(aWsh) .Worksheets(aWsh(b, 1)).Unprotect Password:=aWsh(b, 2) Set aWshSrc(b) = .Worksheets(aWsh(b, 1)) Next: End With Rem Add New Workbook Set wbk = Workbooks.Add With wbk Rem Delete All Worksheets but One Application.DisplayAlerts = False For Each wsh In .Worksheets With wsh If .Index = 1 Then .Name = "!DELETE" Else .Delete End With: Next Application.DisplayAlerts = True Rem Copy Worksheets For Each vItm In aWshSrc vItm.Copy After:=Sheets(.Sheets.Count) Set wsh = .Sheets(.Sheets.Count) wsh.UsedRange.Value = wsh.UsedRange.Value2 Next Rem Delete Reamining Worksheet Application.DisplayAlerts = False .Worksheets("!DELETE").Delete Application.DisplayAlerts = True End With End Sub

أحسنت استاذ خلف جزاك الله كل خير

بارك الله فيك وزادك الله من فضله

بارك الله فيك استاذ هشام وجزاك الله كل خير

تفضل تم وضع كود الأستاذ ابراهيم بملفك وربطه بالزر 111.xlsm

وعليكم السلام-لك ما طلبت 1مرتب.xlsx

وعليكم السلام-تفضل لك ما طلبت طرح تاريخ.xlsm

ان لم يعجبك هذا فيمكنك متابعة هذا الموقع Generating QR Code barcodes from cells in Excel using VBA and Bytescout BarCode SDK

وعليكم السلام-اهلا بكى معنا فى منتدانا الكريم تشرفنا بوجود علم من اعلام واساتذة الإكسيل بيننا -ان شاء الله الى الأمام دائماً عمل ممتاز بالتأكيد بارك الله فيكى وزادك الله من فضله ورجاء ياريت دائما لو هناك تدعيم للفيديو بملف الشرح لكى تعم الفائدة والإستفادة لجميع الأعضاء ان شاء الله وفى ميزان حسناتك دائما

تفضل..ببساطة كل ما عليك هو تحميل هذا النوع من الخط وستجد ما تريد barcodefont وستجد هذا الخط بالمرفقات قم بإدخاله ثم بعد ذلك يمكنك الإطلاع على الملف barcodefont.zip AMINE1.xlsx

وعليكم السلام-وبما انك لم تقم برفع ملف فخذ هذا به طلبك وسيفيدك How to Copy or Import VBA Code to Another Workbook

بارك الله فيك وزادك الله من فضله

أحسنت استاذنا الكبير عمل رائع بارك الله فيك وزادك الله من فضله

تفضل المشكلة بالمعادلة كانت بعلامة التنصيص قبل كلمة طباعة , فتم وضعها من قبلك 3 علامات ولابد ان تكون 2 فقط كهذه "طباعة" entag tam.xlsm

أخى الكريم اهلا بك بالمنتدى-لما لا تقوم بإستخدام خاصية البحث فى المنتدى فقد تكرر هذا الطلب كثيرا .. تفضل برنامج خاص للعاملين بالتحصيل بشركة الكهرباء المساعده من كشاف الكهرباء

أحسنت استاذ عبد اللطيف بارك الله فيك

بارك الله فيك استاذ مجدى وجزاك الله كل خير

أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله

بارك الله فيك استاذ احمد وندعو الله جميعا له بالشفاء العاجل وان يرده الله لنا سالماً غانماً وبكل صحة وسعادة وان نسأل الله ان يشفى كل مرضانا ويرحم كل موتانا

وعليكم السلام-لك ما طلبت Data Entry.xlsm

بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله