عاشق الاكسيل

هل الطريقة اللي ضيفها طيب طريقة وحيدة؟؟

مفيش حل اسهل ؟؟

السلام عليكم ورحمة الله وبركاته كنت محتاج مساعدة فى تعديل كود إدخال بيانات الكود بيدخل البيانات بشكل افقى ( الاعمدة A - B - c..............الخ ) الصراحة كنت بستخدم الطريقة دى Sheets("Archive").Activate lrow = Range("b" & Rows.Count).End(xlUp).Row Range("A" & lrow + 1).Value = Textbox1.Value Range("b" & lrow + 1).Value = Textbox2.Value بس الفكرة ان الكود بيبقى طويل جدا واكيد فى حل افضل فياريت طريقة اخرى. بحيث ان الكود يبقى عبارة عن ان التيكست بوكس 1 فى العمود الاول والتيكست بوكس 2 فى العمود الثانى وهكذا.

هى حاليا بتظهر كملحوظة Comment انت حابب انها تظهر بشكل او بطريقة تانية ؟؟

اتفضل ان شاء الله يعطيك المطلوب ضيف الكود فى موديل Sub grabcomment() Dim ws As Worksheet Dim rg As Range Dim comment As String Dim i As Integer i = 6 Set rg = Range("D6:D15") 'set range of where the comments will be seen Set ws = Sheets("ورقة1") For Each C In rg comment = ws.Cells(i, 6).Value 'set location of comments you are grabbing from C.AddComment.Text Text:=comment i = i + 1 Next C End Sub جرب كده الملف ده Copy of نسبة التحقق (1).xlsm

اتفضل ان شاء الله يعطيك المطلوب ضيف الكود فى موديل Sub grabcomment() Dim ws As Worksheet Dim rg As Range Dim comment As String Dim i As Integer i = 6 Set rg = Range("D6:D15") 'النطاق اللى هيظهر فيه التعليقات Set ws = Sheets("ورقة1") For Each C In rg comment = ws.Cells(i, 6).Value 'النطاق مصدر الكومنتات C.AddComment.Text Text:=comment i = i + 1 Next C End Sub

Sort.xlsx Solved الكود للى يحتاجه Sub sort() Sheets("Wanted").Activate Range("B9:E24").sort key1:=Range("B9:B24"), _ order1:=xlDescending, Header:=xlNo, key2:=Range("C9:C24"), order2:=xlDescending, Header:=xlNo End Sub

السلام عليكم ورحمه الله وبركاته محتاج كود يقوم بعمل الاتى : بيانات فى نطاق B8:E24 تحتوى على روؤس اعمدة محتاج ارتب البيانات وفقا للاتى اولا العمود الاول (B) من الاكبر الى الاصغر ثانيا العمود الثانى (C) من الاكبر الى الاصغر

????????????????? فعلا

موضوع مستحيل !!

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

السلام عليكم ورحمه الله وبركاته المطلوب : كود لنقل بيانات بداية من اخر خلية بها بيانات فى نطاق معين توضيح للفكرة : بيانات فى شيت " Sheet1" فى العمود A بداية من الخلية A2 محتاج انقلها الى شيت "Sheet2" فى نطاق معروف "A2:A21" بس بداية من اخر خلية فى النطاق السابق يعنى لو فرضنا وجود بيانات فى النطاق السابق "A2:A21" حتى الخلية A11 يتم لصق البيانات المنقولة بداية من الخلية A12 مرفق ملف للتنفيذ اذا امكن Job.xlsx

حد يقدر بساعد

مش هو ده المطلوب كده هيجبلى اخر خلية فى العمود B اللى انا محتاجه فى نطاق معين على سبيل المثال من الخلية ال 2 الى الخلية رقم 50 بالعمود B يعنى لو فى بيانات فى الخلية مثلا B55 وفى خلية فى النطاق المذكور فاضية يقف عليها هى مش على B56

السلام عليكم ورحمة الله وبركاته محتاج كود يقوم بالوقوف على اخر خلية بها بيانات فى نطاق معين بفرض ان النطاق B2:B50

تفضل اخى لعله المطلوب setup.rar

موضوع ممتاز واكثر من رائع وهو المطلوب بكل ما تحمله الكلمة من معنى ربنا يبارك فى صانعه ويجعله فى ميزان حسناته

شكرا علي مساعدتك طبعا الفكرة ان عدد الملفات كبير ياريت لو حد يقدر يساعد وشكرا ليك مرة تانية

السلام عليكم ورحمه الله وبركاته المعطيات : 1- ملفات عمل منصفلة - Workbook - كل ملف يتكون من شيت واحد. 2- الشيت يحتوى على بيانات بداية من العمود A وحتى العمود K بداية من السطر الثانى المطلوب : 1- تجميع البيانات من كل ملفات العمل فى ملف واحد. 2- اضافة عمود اخر يحتوى على اسم ملف العمل المنقول منه البيانات مرفق ملف باسم Collect وهو الملف المراد تجميع البيانات به كل الملفات الاخرى نفس تقسيمة الملف المرفق . Collect.xlsx

الكود بيعمل لكن فى حالة عمله كـ " زر Button " لا يعمل Private Sub CommandButton1_Click() CommandButton1.Enabled = False Label2.Visible = True Application.Wait (Now + TimeValue("0:00:02")) Label3.Visible = True End Sub لو جربت واشتغل معاك ياريت تضيف الملف

ياريت تضيف الشيت للعمل عليه وتنفيذ المطلوب ان شاء الله

المشكلة فين ؟؟

السلام عليكم ورحمه الله وبركاته الكود ده بيعمل فاصل زمنى بين الاوامر لكن فيه مشكلة ان لو اتضاف كزر مش بيتنفذ ... بيتنفذ بس اول امر وبعد كده كل الاوامر مرة واحدة Label2.Visible = True Application.Wait (Now + TimeValue("0:00:02")) Label3.Visible = True يعنى لو اتضاف بالطريقة دى يشتغل تمام Private Sub UserForm_Click() CommandButton1.Enabled = False Label2.Visible = True Application.Wait (Now + TimeValue("0:00:02")) Label3.Visible = True End sub لكن لو اتضاف كزر مش بيتنفذ بطريقة صحيحة Private Sub CommandButton1_Click() CommandButton1.Enabled = False Label2.Visible = True Application.Wait (Now + TimeValue("0:00:02")) Label3.Visible = True End Sub

ياريت توضح اكتر والاعمدة بتمثل ايه وايه المقصود بيها ( التوزيعة - العهدة - النولون .....) وهكذا وشرح المطلوب عشان اقدر اوصل للنتيجة المطلوبة

السلام عليكم ورحمة الله وبركاته محتاج كود يقوم بعمل فاصل زمنى بين تنفيذ الاكواد مثلا لو ضغط على زر يطلع رسالة " تم تنفيذ خطوة 1 " بعدها ب 10 ثوانى " تم تنفيذ خطوة 2 " الحمد لله لقيته وللافادة Application.Wait(Now + TimeValue("0:00:01")) لو فى اكواد تانى مفيش مانع :D