محمد الزريعي

لا يا اخي ياسر .. اقدم معلومة فقط لمن يبحث عنها .. انا عندما ابحث عن كود // دائماً ابحث عنها في هذا الموقع أذا لم اجدها // أبحث عنها في جوجل // وهذا الكود وجدته في اللغة الإنجليزية .. حبيت انقلة في موقع اوفسنا باللغة العربية .. بحيث أذا كان هناك زائر من العرب أو باحث عن هذا الكود سوف يجعلة جوجل في متناول يدية .. وأشكرك استاذي الكبير ياسر خليل

Sub test() Range("A4").Copy Range("A5").Resize(Range("A1").Value).PasteSpecial Paste:=xlPasteFormats End Sub إذا لم ينفذ معك الكود أمسح بعض من الكود المكتوب باللون الأسود .. وتوكل على الله . طبعاً راح تحتاج الي كود أخر لا لغاء التحديد عن الخلية .. ضع بعد الكود السابق هذا الكود Application.CutCopyMode = False

أنا أنتظر الحل ....

حمل الاكسل المرفق .. ثم قم بالنقر فوق الصورة الموجودة تحت العمود s1 ستفتح معك نافذه البحث .. شغالة ممتاز مع تحديد المسار . شوف النتيجة تحت .. في اللست بوكس . ستجد الأسماء فقط .. ما يطلع معي رقم الجوال أو التاريخ . حاولت زي ما قلت ما نفع معي .. أنتظر الحل

السلام عليكم ورحمة الله وبركاته وبعد لقد اكتملت من كتابة الكود للبحث عن الفايلات والبحث في عدة شيتات . أو شيت واحد .. تبقى معي أنه أذا تم البحث في الشيتات ( اريد أن يظهر الاسم - ورقم الهاتف - والتاريخ .. ) يعني أريد تقسيم ListBox الي 3 أعمدة وهذا هو سؤالي ( كيف اقسم الست بكس الي 3 أعمدة ) ؟ بحث فوري في جميع الشيتات.rar

السلام عليكم ورحمة الله وبركات ،، في هذا المرفق ، بحث فوري في جميع الشيتات ، لكننني لم أستطيع اكمالة ياليت المساعدة منكم شباب ،، المطلوب هو 1- إظهار بقية البيانات لكل اسم هي ( الجوال ) و ( تاريخ الادخال ) 2- هل بالإمكان تعطيل شريط التمرير العمودي لـ ListBox3 ، بحيث تصبح ملتصقة بـ ListBox1 3- كود البحث في المجلدات ( البحث عن faile ) . ------------------------------------------------------------- شاكراً ومقدراً لكم . بحث فوري في جميع الشيتات.rar

اسعدتني الله يسعدك .. تم تجربة الكودين .. وطلع المطلوب .. وشكراً لك جزيلاً والله يجعلها في ميزان حسناتك ، هذا ما اقدر أوصله لك .

يعطيك العافية اخي العيدورس . نعم أخي هي المفترض نفس ما قلت من المفروض تنتقل بيانات الخلية مع رابطها .. ولكن الي يحدث لم يتم نقل الهايبر لنك . شاهد المثال المرفق مثال.rar

كود ترحيل بيانات الخلية من شيت 1 الي شيت 2 مع الرابط التشعبي حيث ان ("1")sa.=sheets ("2")sh.=sheets هذا توضيح للأعلى

الاخوة الأعزاء .. انا وضعت الكود الخاص بالترحيل من شيت الي شيت أخر وهو كالتالي : Sh.Cells(LR1, 5) = sa.Cells(zz, 5) Sh.Cells(LR1, 6) = sa.Cells(zz, 6) Sh.Cells(LR1, 7) = sa.Cells(zz, 7) Sh.Cells(LR1, 8) = sa.Cells(zz, 8) لكن وجت في الحقيقة انه ينقل الكلمة ولا ينقل الرابط التشعبي الخاص بها . ياليت احد يدلني كيف ارنقل الراتبط التشعبي . أي ارحل البيانات من الشيت 1 الي الشيت 2 مع ترحيل الرابط التشعبي . وشكراً

مشى معي الحال في هذا الكود الحمد لله . الي عندة نظرة مختلفة أتمنى ان يطرحها . وشكراً لكم . Dim D As String D = NN If D <> "" Then Shell "Explorer.exe /select," & Chr$(34) & D & Chr$(34), vbMaximizedFocus End If

السلام عليكم يا شباب : لي فترة وانا ابحث عن الكود او الطريقة التي تقوم بفتح folder عن الضغط على Button . حيث أنني استطعت استخراج مسار المجلد وخزنته في القيمة NN على سبيل المثال NN="D:\SALA\" 'E لكنني مش عارف افتح هذه المسار ارجو التكرم منكم بالمساعدة

الكود شغال 100 % شكراً لك وبارك الله فيك اخي سليم

شكرا جزيلاً لك . وجاري تجربة الكود الان

السلام عليكم ورحمة الله وبركاته ،، الاخوة الأعزاء ، عندي هذا الكود الذي اريدة هو . اذا لم تكن الورقة الأولى هي النشطة فإن sa هي الورقة الثانية IF sheets ("1").Active = True Then Set sA = Sheets("1") LR = Cells(Rows.Count, 1).End(xlUp).Row Else Set sA = Sheets("2") LR = Cells(Rows.Count, 1).End(xlUp).Row End If لأنه عندي شيتات كثيرة في الملف ،، وأريد أنفذ الكود على أحد الشيتين فقط .

الأخ ياسر خليل أبو البراء .. لقد احتجت هذا الكود مرة أخرى .. بحيث أن عدد Arr1 = 20 عدد Arr2= 50 ولقد سويت كما هو مشروح ولكن لم يتنفذ الكود .. يقف عند Application.AddCustomList ArrOut باللون الأصفر مش عارف ايش السبب .. هل لهذا الكود عدد معين يتوقف عندها .

بارك الله فيكم جميعاً .. ولكم خالص الشكر والتقدير .

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

اخي عبدالعزيز .. الله يحفظك .. كلامك صحيح .. لكنني واضع الكود أنا من A وحتى Z أي اريده يتنفذ كما هو في العمود a حيث يبداء في العمود A وينتهي في العمود Z . لكن للاسف الكود يقوم بالتنفيذ في العمود a ثم b ثم c ثم d يتوقف عند الصف رقم 12803 ما يتابع حتى يصل الي z

شباب مساكم الله بالخير والعافية قمت بشرح كود الهايبر لنك ،، والكود شغال 100% . لكن هناك مشكلة عندي اما في الجهاز او في الكود مش عارف أنه أذا وصل الي العمود d يوقف في الوسط .. نرجوا التكرم منكم بالمساعدة في الحل .

شرح كود الهايبر لنك.rar

جربت هذا الكود بس ما اشتغل معي .. ؟؟؟؟

هذا النطاق غير محجوز colomos.com وهذا النطاق محجوز googel.com وهذا رابط الفحص http://www.p5s.net/whois/mwhois.php --------------------------------------------------------------------- طبعاً هناك اكواد في الفجل بيسك دت نت ... بس ما فهمتها .. وهذا موقع فيه اكواد بس ايضاً لم افهمها http://www.codepool.biz/how-to-extract-domain-names-from-urls-in-vba.html شاكر ومقدر لك

الاخوة الاعزاء السلام عليكم كي لا اطيل عليكم هل أستطيع أفحص الدومين من الاكسل أذا كان الدومين محجوز أو لا .. اريد كود فحص النظاق وشكرا

اولاً شكراً لك على المشاركة .. وجوابك صحيح .. لكن ما تم نسخة عبارة عن صورة وقمت بعمل خدعة للبرنامج هو ان ينسخ أي شئ من الورقة ويلصقة ثم ينفذ الكود .. وضبط معي والكود هو كالتالي Sub moh() Range("e6").Copy Range("d7").Pastespecial Paste:=xlvalues Application.Cutcopymode = False End Sub