عاشق الاكسيل

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

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

السلام عليكم ورحمة الله وبركاته

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

16 ساعات مضت, سعيد 1428 said:

أخي العزيز 

شكرا على الاهتمام

الظاهر أني لم استطع توضيح المطلوب 

وهو إظهار تلميح أو رسالة عند الخلية النشطة ولتكن d10 تبين هذه الرسالة أو التلميح النسبة المئوية المتحققة من الموازمة وهذه النسبة موجودة في f10 على سبيل المثال

مع ملاحظة ان هذه النسبة قد تتغير في اي وقت تبعا لتعير الخلايا المصدر D10 و E10

لقد قمت بادراج تعليق في الخلية لغرض إيضاح المطلوب فقط 

وشكرا مجددا على الاهتمام

 

هى حاليا بتظهر كملحوظة 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

10 دقائق مضت, عاشق الاكسيل said:

السلام عليكم ورحمه الله وبركاته

محتاج كود يقوم بعمل الاتى :

بيانات فى نطاق B8:E24 تحتوى على روؤس اعمدة محتاج ارتب البيانات وفقا للاتى

اولا العمود الاول (B) من الاكبر الى الاصغر

ثانيا العمود الثانى (C) من الاكبر الى الاصغر

 

 

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

حد يقدر بساعد

في ٢٦‏/٦‏/٢٠١٨ at 14:36, ali mohamed ali said:

تفضل

 

Down.xlsm

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

يعنى لو فى بيانات فى الخلية مثلا B55 وفى خلية فى النطاق المذكور فاضية يقف عليها هى مش على B56

السلام عليكم ورحمة الله وبركاته

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

بفرض ان النطاق B2:B50

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

setup.rar

موضوع ممتاز واكثر من رائع

وهو المطلوب بكل ما تحمله الكلمة من معنى

ربنا يبارك فى صانعه ويجعله فى ميزان حسناته

شكرا علي مساعدتك طبعا

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

وشكرا ليك مرة تانية

السلام عليكم ورحمه الله وبركاته

المعطيات :

1- ملفات عمل منصفلة - Workbook - كل ملف يتكون من شيت واحد.

2- الشيت يحتوى على بيانات بداية من العمود A  وحتى العمود K بداية من السطر الثانى

المطلوب :

1- تجميع البيانات من كل ملفات العمل فى ملف واحد.

2- اضافة عمود اخر يحتوى على اسم ملف العمل المنقول منه البيانات

مرفق ملف باسم Collect وهو الملف المراد تجميع البيانات به

كل الملفات الاخرى نفس تقسيمة الملف المرفق .

Collect.xlsx

2 ساعات مضت, shreif mohamed said:

  الكود يعمل  بصورة طبيعية هل يمكن اضافة الملف الخاص بك  حتي يتثني لنا المساعدة 

 

الكود بيعمل لكن فى حالة عمله كـ " زر 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