عاشق الاكسيل

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

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

السلام عليكم ورحمة الله وبركاته كنت محتاج مساعدة فى تعديل كود إدخال بيانات الكود بيدخل البيانات بشكل افقى ( الاعمدة 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