hanykassem

السلام عليكم اخوتنا الكرام مطلوب تحويل هذه المعادل الي كود ويرجي توضيح تحويل اي معادله الي كود مع الشرح =TEXTJOIN(", ",TRUE,UNIQUE(FILTER($B$4:$B$1200,$A$4:$A$1200=C3))) وشكرا لكم جميعا TEST CODE.xlsx

تسلم ايدك ممكن نضيف رساله بان لو كان تم عمل سيف من قبل رساله ب YES OR NO وشكرا علي المساعده

السلام عليكم يرجي التكرم بالمساعده بعد تغير الويندوز ظهر المشكله دي CODE Sub SaveAs_PDF() NAME1= Range("B2") NAME3= Range("B3") NAME3= Range("B4") Path = "D:\PDF" fname = NAME1& " - " & NAME2& " - " & NAME3 MsgBox "Saved as PDF " ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, Filename:=Path & fname End Sub بتظهر الرساله دي

جميع كلمات الشكرا لا تكفي تسلم ايدك اخي العزيز

يوجد مشكله في هذا الكود بعد عمل ويندوز كان شغال من قبل وشكرا

السلام عليكم ورحمه الله وبركاته وبها نبدأ vba الي كود COUNTIF تحويل =COUNTIF(G$3:G3,G3) TEST COUNTIF.xlsx

شكرا لك وعلي سرعه الاستجابه برجاء وضع الكود بالمثال وتجربته لانه لا يعمل ومع العلم انا الداتا الموجودة تصل الي 500 سطر ليس 3 و 4 فقط

برجاء المساعدة في كود انشاء فولدر بحسب تحديد مكان المشار اليه وتحديدة من خلال الفوقف في نفس السطر 3 او 4 الخ في حاله وجود الفولدر تم انشاء من قبل رساله بوجود الفولدر من قبل وشكرا لكم جميعا علي المجهود العظيم test.xlsm

عند كتابة كلمة "done" في الخلية A1، ستقوم الخلية C1 بأخذ قيمة الخلية B1 وسيتم وضع تاريخ اليوم في الخلية e1 ويتم تنفيذ هذا الأمر أوتوماتيك.

كود بحث باستخدام اكتر من شرط للبحث في (Tb1)عمود (b,c,e) TEST V2.2.xlsm

TEST V2.1.xlsm

المساعده في كود بحث طريق ليست في شيت2 للعمل فليتر في شيت ١ test (1).xlsm

الاول اشكرك على اهتمامك ومجهودك الرائع بس للاسف مش دة طلبي اللون ملوش علاقه انا حطيت اللون للتوضيح فقط انا محتاج اي حاجه اكتبها في الشيت sheet2 "A1" Sheet 1يعمل فليتر في الشيت الاول واحب اشكرك مرة آخرة

السلام عليكم ممكن معرفه الخطا في هذا الكود test.xlsm