Persl

السلام عليكم ورحمة الله وبركاته احتاج كود في بي أي يقوم بعمل المهام التاليه ينسخ نطاق الخلايا GT300 And GV300 في شيت 1 ويروح باحث في شيت 2 العمود B عن الخليه المشابهة القيمه الخليه في شيت 1 GT291 وثم يقوم بلصق الخلايا بعد آخر صف وفي النهايه يحدد نطاق من الخلايا الملصقه من عمود D وحتى آخر إدخال على اليمين ويعمل منه تعريف اسمي Difine name مثل الصوره التاليه I need a vba code to do the following comands: 1 - copy range ("GT300") and ("GV300", Selection.End(xlToRight)) from ("Sheet1") 2 - H lookup ("Sheet1") ("GT291") on ("Sheet2").Range("B:B") 3 - Add the copied ranges from ("Sheet1") as new entery on ("Sheet2") based on the H lookup result 4 - Create new defined name from ("Sheet2") last entery from column D to last value on same row , Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:=False

السلام عليكم اود جعل هذا الفورم يعمل تلقائيا فور فتح ملف الاكسل بدون الضغط على الزر بالداخل Inventory Management System 22.xlsm

السلام عليكم ورحمة الله وبركاته في المرفق يوجد ملف لإظهار أيام الاجازات ضمن مخطط بياني الجدول يسمح لكل شخص باخذ 5 اجازات المطلوب هو إضافة أعمدة لإجازات تكون مقروءه في المخطط البياني بمعنى آخر اود زيادة عدد الاجازات من 5 الى 8 مثلا او 12 مثلا ما هي الطريقة لو تكرمتوا Vacation Plan2.xlsb

السلام عليكم و رحمه الله وبركاته هل بالإمكان عمل كود (في بي ايه) يقوم بنسخ صفحة من الملف و ارفاقها مرتين في ايميل واحد مرة بصيغة اكسل ومرة بصيغة بي دي اف نسخة الصفحة في المرفق يجب ان تكون بدون الكود بمعنى ان الكود ينسخ الصفحة ويبقى الكود في الملف الاصلي ولا ينسخ الكود للصفحة في المرفقات. تحياتي

دعوني اشارككم اعزائي بآخر المستجدات لعلها تهم احد منكم نموذج-pgt-1.xlsm

حاولت اعدل بعض الادخالات لكن يجب عليك ضبط أوقات البصمه في حدود ساعتين قبل او بعد الوقت المحدد, مثلا اذا كان الدوام يبدأ 6:55يفترض ان لا احد سوف يبدأ دوامه الساعة 5:30 وهكذا بقية الادخالات fingerprint.xlsx

عملك ممتاز جدا ولقد قمت بوضع مسار مجلد الحفظ في الكود C:\Users\persl\Documents\New folder (3)/ وجربت الكود لاصدار الفواتير و الأمور كلها تمام والفواتير تصدر بشكل ممتاز ولكن الشرطين هؤلاء ما يتحققوا في الملف نلاحظ الملف ينتج فواتير بدون اسم عند الزبون رقم 16 و 17 و18 او الى أسماء ما عليها أي مبالغ مالية مثل الزبون رقم 6 علي صالح ومن المهم ان الفواتير تكون مع بعض في مرفقات رسالة واحدة و الكود ما يسوي كذا ارجو التكرم لحل المشكلة هذا احد الأمثلة تم استخدام هذا الكود في الملف السابق ولكنه يصنع عدة رسائل لكل فاتورة رسالة مستقلة وليس رسالة واحدة تحتوي جميع الفواتير كما اود Option Explicit Sub EmailPDF() Dim EmailSubject As String, EmailSignature As String Dim CurrentMonth As String, DestFolder As String, PDFFile As String Dim Email_To As String, Email_CC As String, Email_BCC As String Dim OpenPDFAfterCreating As Boolean, AlwaysOverwritePDF As Boolean, DisplayEmail As Boolean Dim OverwritePDF As VbMsgBoxResult Dim OutlookApp As Object, OutlookMail As Object Dim DVCell As Range Dim InputRange As Range Dim DV As Range ' ***************************************************** ' ***** You Can Change These Variables ********* EmailSubject = "Test" 'Change this to change the subject of the email. The current month is added to end of subj line OpenPDFAfterCreating = False 'Change this if you want to open the PDF after creating it : TRUE or FALSE AlwaysOverwritePDF = False 'Change this if you always want to overwrite a PDF that already exists :TRUE or FALSE DisplayEmail = True 'Change this if you don't want to display the email before sending. Note, you must have a TO email address specified for this to work Email_To = Range("R6").Value 'Change this if you want to specify To email e.g. ActiveSheet.Range("H1") to get email from cell H1 Email_CC = "" Email_BCC = "" DestFolder = "C:\Users\persl\Documents\New folder (3)" ' NOTE : There is no trailing slash ' ****************************************************** 'Which cell has data validation Set DVCell = Sheets("Partner Statement").Range("B6") 'Determine where validation comes from Set InputRange = Evaluate(DVCell.Validation.Formula1) 'Prompt for file destination With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then DestFolder = .SelectedItems(1) Else MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder" Exit Sub End If End With For Each DV In InputRange DVCell = DV.Value 'Create new PDF file name including path and file extension PDFFile = DestFolder & Application.PathSeparator & DV.Value & ".pdf" 'If the PDF already exists If Len(Dir(PDFFile)) > 0 Then If AlwaysOverwritePDF = False Then OverwritePDF = MsgBox(PDFFile & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", vbYesNo + vbQuestion, "File Exists") On Error Resume Next 'If you want to overwrite the file then delete the current one If OverwritePDF = vbYes Then Kill PDFFile Else MsgBox "OK then, if you don't overwrite the existing PDF, I can't continue." _ & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro" Exit Sub End If Else On Error Resume Next Kill PDFFile End If If Err.Number <> 0 Then MsgBox "Unable to delete existing file. Please make sure the file is not open or write protected." _ & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File" Exit Sub End If End If 'Create the PDF ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=PDFFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=OpenPDFAfterCreating 'Create an Outlook object and new mail message Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) 'Display email and specify To, Subject, etc With OutlookMail .Display .To = Email_To .CC = Email_CC .BCC = Email_BCC .Subject = EmailSubject .Attachments.Add PDFFile If DisplayEmail = False Then .Display End If End With Next DV End Sub pgt2-Partner-Statements_SHPP-Fund-I-4.xlsm

من عيوني Test1.xlsx

السلام عليكم يا اخوان . رمضان مبارك تقبل الله منا و منكم عندي ملف إكسل فيه صفحة فواتير والخلية Sheet1 AM1 بها قائمة منسدلة وبيانات القائمة المنسدلة عبارة عن اسماء العملاء تؤخذ من صفحة الاندكس Index B2:B27 اود لو سمحتو كود في بي إي يعمل على تصدير ملفات بي دي اف لكل زبون له مشتريات يعني الكود يروح باصص على اول زبون ويحط اسمه في القائمة المنسدلة ويشوف هل قيمة المشتريات اكبر من صفر فيقوم مطلع بي دي اف للصفحة وثم يروح للزبون اللي بعده ويشوف هل يوجد اسم زبون او لا واذا لقى اسم هل عندو مشتريات او لا فالشرطين لإصدار بي دي اف هما وجود اسم والاسم يكون قيمة مشترياته اكبر من صفر واذا ما انطبق الشرطين يقوم الكود باصص على الزبون اللي بعدو ويسمي كل ملف بالكلام اللي مكتوب في الخلية Sheet1 A3 ثم يقوم الكود واخذ كل الملفات اللي أصدرها ويحطها مرفقات في رسالة اوتلك Vba code to change drop down list value then extract the sheet to PDF شاكر لكم جهودكم هذا نموذج لنفس العمل لكنه مفرغ من البيانات لتقليل حجمه نموذج.xlsm