أبو حنــــين

السلام عليكم تفضل اخي مسح محتوى خلايا بعد ثواني.rar

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

او هذا الكود Private Sub CommandButton1_Click() Range("B3") = Environ("UserName") End Sub

السلام عليكم استعمل هذا الكود Private Sub CommandButton1_Click() Range("B2") = Application.UserName End Sub

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

السلام عليكم لاثراء الموضوع يمكن استعمال هذا الكود Sub sCopy() Dim i As Long, r As Long, Lrr As Long, M As Integer Dim S Application.ScreenUpdating = False Lrr = Sheets("1").Cells(Rows.Count, "A").End(xlUp).Row For r = 2 To Lrr For Each S In ThisWorkbook.Sheets M = S.Cells(Rows.Count, "A").End(xlUp).Row + 1 If Left(Sheets("1").Cells(r, 1), 3) = S.Name Then Sheets("1").Range("A" & r).Copy With S .Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1: End With End If Next Next End Sub

السلام عليكم كما ذكر اخي عبد الله السؤال غير مفهوم و ما الغرض من تكرار For طالما ان عدم تكرارها يؤدي المطلوب

السلام عليكم اخي عبد الله جزاكم الله خيرا

السلام عليكم اخي ضع فقط المعادلة التالية في الشيت3 في الخلية A2 ثم اسحبها للاسفل =Sheet2!A2

السلام عليكم اخي ابراهيم الكود يصبح بالطريقة التالية Sub HMA() For H = 1 To 9 Sheet2.Cells(3, 9 + H) = H Next H End Sub

السلام عليكم ما رأيك في هذه الطريقة مثال 2.rar

السلام عليكم جرب اخي المرفق مثال.rar

السلام عليكم جرب هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cl As Range For Each cl In Range("BH3:BJ14") If Not cl.HasFormula Then _ cl.Interior.ColorIndex = 46 Next End Sub

السلام عليكم جزاك الله خيرا اخي على هذه المعلومات القيمة و ننتظر المزيد

السلام عليكم أخي الكريم : تمنياتي للجميع بالتوفيق ( لي تحفظ على اسم الظهور الذي اخترته ) أخي الكريم : arbeel حتى و لو كتبت التاريخ بالشكل 2014/03/03 البحث يعمل عندي بطريقة صحيحة أخي الحبيب : حمادة جزاكم الله خيرا

السلام عليكم ثم عمل المطلوب ورقة عمل Microsoft 22Excel جديد __.rar

السلام عليكم جرب أخي المرفق بحث وتعديل.rar

اخي ابراهيم جزاكم الله خيرا

السلام عليكم اخي السؤال غير مفهوم يرجى التوضيح اكثر بمثال

السلام عليكم استعمل هذا الكود Private Sub TextBox1_Change() Dim LastRow As Long LastRow = Range("A65535").End(xlUp).Row If TextBox1.Text <> "" Then Selection.AutoFilter Range("$A$5:$K$" & LastRow).AutoFilter Field:=1, Criteria1:= _ "=" & TextBox1.Text & "*", Operator:=xlOr Else Range("$A$5:$K$" & LastRow).AutoFilter Field:=1 End If End Sub

السلام عليكم مثل ما ذكر أخي زمزم يبدو ان السؤال غير واضح و هذا على الاقل بالنسبة لي يرجى التوضيح أكثر و حسب ما هو موجود بالملف انك تقوم بالترحيل مرتين ، مرة في الورقة2 و مرة لورقة الطباعة ، و اعتقد ان الترحيل يكون مرة واحدة احسن

أخي يوسف جزاكم الله خيرا

السلام عليكم اخي زمزم الذي لا تعرفه انني امتلك طاقية الاخفاء و لذا فلا يمكن الوصول الى مكاني سواءا بالانتربول او الاشعة تحت الحمراء وفي سياغ الحديث مرة دخلت القسم فوجدت احدهم رسم دائرة و كتب بالطبشور بجانبها: إضغط هنا يختفي الاستاذ ، فأنا خفت إنو واحد من التلاميذ يضغط و اخفتي ، ساعتها مين يرجعني لبيتيي ، رحت ماسح الدائرة و في طريقي مسحت التلميذ إلي رسمها ****************************************** أختي الفاضلة أم رحمى حتى و لو توقفت الطائرة في السماء انا عامل حسابي ، معايا مطرية استعملها للمطر و لي فيها مآرب أخرى ****************************************** جزاكم الله خيرا

هذا المثال يقوم بادراج صفوف في ورقات كل ورقة باسم ان كان القصد في نفس الورقة سأقوم بذلك مساءا بعد عودتي من المدرسة ان شاء الله ورقة عمل Microsoft Excel جديد __.rar

السلام عليكم هل تقصد بهذه الطريقة دمج للخلايا في نفس السطر.rar