Ali Mohamed Ali

بعد اذن استاذنا الرائد طبعا .... على الرغم اننا نبهنا مرارا وتكرارا ان لا وجود لأى مشاركة الا بإحتوائها على ملف مدعوم بشرح كافى عن المطلوب , فغير ذلك مخالف لقوانين المنتدى وسيعرض المشاركة للحذف حيث انه يعمل على اهدار وقت الأساتذة دون جدوى كما انه لا يمكن العمل على التخمين,على الرغم من كل هذا قمت بعمل ملف لك بالمطلوب .... فعليك من البداية فتح مديول جديد ووضع هذا الكود به Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = 44 Public Const VK_LMENU = 164 Public Const KEYEVENTF_KEYUP = 2 Public Const KEYEVENTF_EXTENDEDKEY = 1 وبعد تصميم الفورم عليك بوضع هذا الكود به للطباعة Private Sub CommandButton1_Click() DoEvents keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 DoEvents Workbooks.Add Application.Wait Now + TimeValue("00:00:01") ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _ DisplayAsIcon:=False ActiveSheet.Range("A1").Select With ActiveSheet.PageSetup .Orientation = xlPortrait .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWorkbook.Close False End Sub وهذا هو الملف print Userform.xlsm

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

وعليكم السلام-تفضل حسابات المعرض1.xlsx

تفضل يمكنك هذا بعد مشاهدة هذا الفيديو

يمكنك استخدام معادلة المصفوفة ( Ctrl+Shift+Enter) .... من أعمال استاذنا سليم حاصبيا له منا كل المحبة والإحترام =IFERROR(IF(ROW($C$2)>SUM($C$2),"",INDEX($A$2:$A$100,MATCH(FALSE, COUNTIF($E$1:E1,$A$2:$A$100)=$C$2,0))),"") 81.xlsx

تفضل وهذا خير دليل كما اخبرتك سابقاً فالملف يعمل معى بكل كفاءة اذا اتبعت نفس الخطوات السابق ذكرها ... ومن فضلك لا تتأخر بالرد

وعليكم السلام-الأمر ليس بهذه البساطة , عليك بتتبع الخطوات والإرشادات كما بفيديو الأستاذة ساجدة العزاوى , لها منا كل المعزة و الإحترام وبارك الله فيها كيفية اضافة و ريجستر month view-date and time picker اكسل vba ساجدة العزاوي register

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

وعليكم السلام-تم ضبط الملف وليس هناك داعى لعمل صفحتين ,للفواتير .. تم عمل صفحة واحدة للفاتورة ووضع نوع الفاتورة بالخلية D2 فبمجرد اختيار نوع الفاتورة سواء مبيعات او مشتريات وملىء البيانات والضغط على ترحيل سيتم الترحيل لصفحة المشتريات او المبيعات كما اخترت بالضبط مشروع ان شاء الله1.xlsm

فقط عليك بوضع Next قبل End Sub لابد من وجود ملف بكل مشاركة ....فإنتبه لذلك مستقبلاً Form1..xlsm

تفضل هناك كود من أعمل الأستاذ ياسر خليل والمعادلة من أعمال الأستاذ سليم حاصبيا , لهما منا كل الحب والإحترام Option Explicit Sub UniqueSortedList() Dim Arr, X As Object Application.ScreenUpdating = False With CreateObject("System.Collections.ArrayList") Set X = .Clone: X.Add " " Sheets("Sheet1").Activate For Each Arr In Sheets("Sheet1").Range("m2", Range("M" & Rows.Count).End(xlUp)).Value If Arr <> "" Then If IsNumeric(Arr) Then If Not .Contains(Arr) Then .Add Arr Else If Not X.Contains(Arr) Then X.Add CStr(Arr) End If End If Next .Sort: X.Sort: .addRange X: Arr = Join(.ToArray, ",") End With Sheets("Sheet1").Activate With Sheets("Sheet1").Range("e4").Validation .Delete .Add xlValidateList, 1, 1, Arr End With Application.ScreenUpdating = True End Sub على الرغم ان هذا الموضوع تم تناوله أكثر من مرة وكان عليك البحث جيداً -تفضل عمل قائمة منسدلة ديناميكية مطاطية بدون تكرار اى بند فيها قائمة منسدلة بدون تكرار وبدون فراغات بالكود والمعادلات.xlsm

وعليكم السلام-تفضل تم تعديل الفورم وضبطه Reservation HOTEL(2021).xlsm

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

أحسنت استاذ منير , ممتاز بارك الله فيك

بسيطة -طالما انك تريد طباعة الصفحة الأولى من شيت report فعليك بهذا الكود , وهذا بالفعل ما تريد الذى يخص صفحة بعينها من الملف Sub PrintAllFirstPage() Dim xWs As Worksheet Set xWs = Sheets("report") xWs.PrintOut from:=1, To:=1 End Sub

ولو قمت بالبحث لوجدت ما تريد -تفضل , طبعاً بعد اذن الأستاذ عبد الفتاح ولإثراء الموضوع -فهذا حل اخر بالمعادلات عند فصل الإسم العربى فى خلية اخرى اذا كانت الخلية المتضمنة الإسم العربى والإنجليزى هى A2 , فيمكنك استخدام معادلة المصفوفة بالخلية B2 (Ctrl+Shift+Enter) =MID(A2,MATCH(1,IF(CODE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))>=192,1),0),255) اما بالنسبة للإسم الإنجليزى فيكون بهذه المعادلة داخل الخلية C2 كما بالملف =TRIM(LEFT(A2,LEN(A2)-LEN(B2))) فصل الكلمات العربية عن الانجليزية Seperate Mix Text.xlsm

وعليكم السلام-تم اضافة و تجربة الكود على الطابعة ويعمل كما تريد Option Explicit Sub PrintFirstPage() Dim sh As Worksheet For Each sh In Sheets sh.PrintOut 1, 1, 1, , , , True, , False Next sh End Sub وهذا ايضاً كود اخر حتى يكون لديك عدة اختيارات وعدة بدائل Sub PrintAllFirstPage() 'Update 20140924 Dim xWs As Worksheet For Each xWs In Application.ActiveWorkbook.Worksheets xWs.PrintOut from:=1, To:=1 Next End Sub Print First Page Only.xlsm

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

بعد اذن استاذنا الكبير ابراهيم الحداد ولإثراء الموضوع - تفضل تواتي 412.xlsx

البقاء لله , رحم الله ولدك علي وأدخله فسيح جناته وأكرمه الله فى الدارين وجعل الله قبره روضة من رياض الجنة وغفر الله له, وان شاء الله يكون شفاعة لأهله يوم القيامة ورحم الله والديك وغفر الله لهم ولجميع موتى المسلمين .... وجزاك الله خيرا أستاذ محمد وأكرمك الله بمقدار صبرك على الشدائد والقضاء والقدر

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

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

بارك الله فيك استاذ محمد وجزاك الله كل خير- وتم وضع الملف بالمشاركة الرئيسية

أحسنت أستاذ منير -مجهود رائع الى الأمام دائما وبالنجاح والتوفيق

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