بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
Yousefessam
-
Posts
55 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه Yousefessam
-
-
دعمكم الكريم
-
دعمك الكريم استاذ محى الدين
مع كل الشكروالتقدير لك
-
الف الف شكرا استاذ محى الدين على المجهود الجبار - يعمل بامتياز
بس كرما بعد اذنك - لاحظت ان لو رقم ال tb ثابت مع عدد 2 سبلتر - المعادلة بتقرا البورت المقابل من سبلتر 1 وبتنهى بالبورت المقابل فى سبلتر 2 دون تغيير السبلتر
مرفق الملف - ارجوا تعديل المعادلات لتتناسب مع الايضاح الملون بالملف
-
شكرا اخى
هل ممكن تطبيقه على الملف المرسل سابقا واعادة ارسال الملف
شكرا استاذ محى الدين - يعمل بامتياز ولكن لى تعديل بسي' جدا لو امكن , فضل كرمك
تم اضافة عمود يحتوى على ODB و TB فمحتاج يقرا اللى مكتوب فى العمود ده ويضعا مكان ال Tb Number
مثل الملف المرفق
كما احتاج يكون التنسيق كم بالملف المرفق
شكرا لمجهودك وتعبك - جعله الله فى ميزان حسناتك
-
الملف المرفق يحتوى على بيانات فى جدول
والمطلوب قراعة البيانات من الجدول ووضعها كما فى العمود L
ملحوظة / الجدول عينة فقط
-
مرفق لكم شيت به مجموعة من الازرار تقوم باعمال ما
المطلوب تثبيت هذة الازرار حتى لا يتم تغيير مكانها او حذفها
مع ملاحظة ان الازرار لها اكواد
-
برجاء المساعدة فى حماية الاكواد فى الاكسل من التعديل عليها
-
مرفق لكم ملف به تلوين الصف والعمود للخلية المختارة
ارجوا عمل هذا بالكود بدل التنسيق الشرطى وتطبيقة على جميع الشيتات
مع الشكر
-
شاكر كرمك اخى الفاضل
-
فى انتظار رد الأساتذة الأفاضل
-
شكرا لكم جميعا وبالفعل الكودين بيشتغوا بامتياز
بس لو الخلية بها صفر لا يعمل الكود
حيث الكود يعمل على الخلايا الفارغة
برجاء تعديل الكود حتى يعمل على الخلايا الفارغة والتى تحتوى على صفر
-
شكرا لك استاذنا وتم عمل المطلوب باستخدام الكود التالى وذلك بمساعدة مهندسى الموقع ( الاخ عبدالله )
مع الشكر
Private Sub CommandButton1_Click() Application.ScreenUpdating = False If [B3] = "" Or [B4] = "" Then MsgBox "ادخل الييانات صحيحة " Exit Sub End If Range("B1:B27").Copy Sheets("in").Cells(1, Sheets("in").Range("Q3").End(xlToLeft).Column + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "تم الترحيل" End Sub
-
-
برجاء المساعدة والمطلوب فى الملف المرفق
-
On 8/31/2017 at 10:29 PM, سليم حاصبيا said:
جرب هذا الملف
الكود
Option Explicit Sub copy_column() Dim Message1, Message2 Dim Rg2 As Range Dim arr() Dim Answer%, i%, LastCol% Message1 = Application.InputBox("Give range to Copy", Type:=8) Message2 = Application.InputBox("Give the column's Number in Sheet2", Type:=1) Set Rg2 = Sheets("sheet2").Columns(Message2) '================================ For i = LBound(Message1, 1) To UBound(Message1, 1) ReDim Preserve arr(1 To i) arr(i) = Message1(i, 1) Next '=================================== If Application.CountA(Rg2) > 0 Then Answer = MsgBox("the destination range is not empty" & Chr(10) & " do you want to OverWrite" _ , vbYesNoCancel) If Answer = 2 Then GoTo 1 If Answer = 6 Then Rg2.Delete Sheets("sheet2").Cells(1, Message2).Resize(UBound(arr) - LBound(arr) + 1, 1) = _ Application.Transpose(arr) Else LastCol = Sheets("sheet2").Cells(1, Columns.Count).End(1).Column Sheets("sheet2").Cells(1, Message2).Offset(0, LastCol).Resize(UBound(arr) - LBound(arr) + 1, 1) = _ Application.Transpose(arr) End If Erase arr Exit Sub End If Sheets("sheet2").Cells(1, Message2).Resize(UBound(arr) - LBound(arr) + 1, 1) = _ Application.Transpose(arr) 1: Erase arr End Sub
الملف مرفق
ملف حضرتك لازم ادخل فيه حدود القيم المراد نسخها ومكان النسخ.
كنت عايز ينسخ عمود كامل فى شيت اخر بحيث يكون العمود فى الشيت الآخر فارغ ولو ملئ ينسخ فى العمود التالى له . وان تتم هذه العملية اتوماتيك
-
فى انتظار الرد
-
مرفق لكم ملف
store2
وهو الملف المطلوب العمل علية
والملف المرفق التالى ما اريد تنفيذة على الملف الاول
-
الأخوة الأفاضل
انا عندى عمودين الاول به مجموعة عناصر والثانى به كمية تلك العناصر
عايز مفتاح لو ضغط عليه يعرض العناصر التى لها كميات فقط وليس صفر
-
عندى ملف اكسل
عايز اعمل له شاشة ترحيب بشكل كويس يطلب من خلالها إدخال باسورد للملف وعند ادخال الباسورد الصحيحة يفتح الملف
- 1
-
اخى الفاضل مرفق لكم ملف لايضاح المطلوب
المطلوب كالتالى 1- عند الضغط على مفتاح in يقوم بنسخ القيم فى العمود c فى الشيت in فى العمود f اذا كان فارغ واذا كان به بيانات فيقوم بالنسخ فى العمود التالى ل f 2- قبل الضغط على in او out تظهر رسالة تأكيد النسخ ونختار منها نسخ او رجوع 3 - اضافة مفتاح لحفظ البيانات فى الملف وتظهر رسالة ايضا لتأكيد عملية الحفظ 4- عمل باسورد للملف عند فتحة -
اخى الفاضل
برجاء وضع طريقة الحل ليستفيد منه الزملاء
مع الشكر
-
مرفق الملف
فى شيت
Store
يوجد مفتاح
In , out , req
عايز التالى
عند ملأ العمود الثالث بقيمة ما والضغط على المفاتيح السابقه يقوم بنقل القيمة فى الشيت الخاص بكل مفتاح إذا كان العمود فى الشيت المراد النقل له فارغ أما إذا كان به بيانات ينقل فى الذى يليه
_ بعد الضغط على المفتاح تظهر رساله تحذيرية وتأكد العملية المرتدة
_عمل باسورد يطلب منى عند فتح الملف
_ نعمل مفتاح يقوم بتخزين البيانات المداخله بدل الاختيار من قائمة ملف
شكرا لكم
-
السلام عليكم ورحمة الله وبركاتة
وكل عام وانتم بخير وبصحة وسعادة
قمت بعمل مفتاح لتنفيذ امر ما فى الاكسل
فالمطلوب كالتالى
١- عمل رسالة نصية تظهر عند الضغط على المفتاح لتأكيد الاختيار بنعم او لا
٢_ كيف اقوم بحفظ ملف الاكسل المحتوى على الماكرو بحيث لا يقوم كل مرة بسؤالى عن مكان التخزين
٣- عمل باسورد لملف اكسل يطلب كل مرة اقوم بفتح الملف
ويحتوى على لوجو أو صورة ما
مع الشكر وعيدكم مبارك
-
شكرا لك اخى الكريم وكل عام وانتم بخير .ارى تجربة الملف وافادتكم بالنتيجة
طلب مساعدة
في منتدى الاكسيل Excel
قام بنشر
دعمكم الكريم