Yousefessam

دعمكم الكريم 

دعمكم الكريم

دعمك الكريم استاذ محى الدين

مع كل الشكروالتقدير لك

الف الف شكرا استاذ محى الدين على المجهود الجبار - يعمل بامتياز 

بس كرما بعد اذنك - لاحظت ان لو رقم ال tb  ثابت مع عدد 2 سبلتر - المعادلة بتقرا البورت  المقابل من سبلتر  1  وبتنهى بالبورت المقابل  فى سبلتر 2 دون تغيير السبلتر

مرفق الملف - ارجوا تعديل المعادلات لتتناسب مع الايضاح الملون بالملف

GRANITE-Macro.xlsm

شكرا اخى

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

شكرا استاذ محى الدين - يعمل بامتياز ولكن لى تعديل بسي' جدا لو امكن , فضل كرمك 

تم اضافة عمود يحتوى على ODB  و TB  فمحتاج يقرا اللى مكتوب فى العمود ده  ويضعا مكان ال Tb Number 

مثل الملف المرفق 

كما احتاج يكون التنسيق كم بالملف المرفق

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

GRANITE.xlsx

الملف المرفق يحتوى على بيانات فى جدول

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

ملحوظة / الجدول عينة فقط 

GRANITE.xlsx

مرفق لكم شيت به مجموعة من الازرار تقوم باعمال ما

المطلوب تثبيت هذة الازرار حتى لا يتم تغيير مكانها او حذفها

مع ملاحظة ان الازرار لها اكواد 

حماية الازرار من الحركة والحذف.rar

برجاء المساعدة فى حماية الاكواد فى الاكسل من التعديل عليها

مرفق لكم ملف به تلوين الصف والعمود للخلية المختارة

ارجوا عمل هذا بالكود بدل التنسيق الشرطى وتطبيقة على جميع الشيتات 

مع الشكر

تلوين الخلايا.rar

شاكر كرمك اخى الفاضل

فى انتظار رد الأساتذة الأفاضل

شكرا لكم جميعا وبالفعل الكودين بيشتغوا بامتياز

بس لو الخلية بها صفر لا يعمل الكود

حيث الكود يعمل على الخلايا الفارغة

برجاء تعديل الكود حتى يعمل على الخلايا الفارغة والتى تحتوى على صفر

شكرا لك استاذنا  وتم عمل المطلوب باستخدام الكود التالى وذلك بمساعدة مهندسى  الموقع ( الاخ عبدالله )

مع الشكر

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

اساتذتى الاجلاء

مرفق لكم ملف بداخله المطلوب فبرجاء المساعدة

مع الشكر

اخفاء الخلايا.rar

برجاء المساعدة والمطلوب فى الملف  المرفق

ترحيل.rar

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

الملف مرفق

 

CopY_column.rar

ملف حضرتك لازم ادخل فيه حدود القيم المراد نسخها ومكان النسخ. 

كنت عايز ينسخ عمود كامل فى شيت اخر بحيث يكون العمود فى الشيت الآخر فارغ ولو ملئ ينسخ فى العمود التالى له . وان تتم هذه العملية اتوماتيك

فى انتظار الرد

مرفق لكم ملف

store2

 وهو الملف المطلوب العمل علية

والملف المرفق التالى  ما اريد تنفيذة على الملف الاول

store2.rar

المطلوب عمله.rar

الأخوة الأفاضل 

انا عندى عمودين الاول به مجموعة عناصر والثانى به كمية تلك العناصر 

عايز مفتاح لو ضغط عليه يعرض العناصر التى لها كميات فقط وليس صفر

عندى ملف اكسل 

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

اخى الفاضل مرفق لكم ملف لايضاح المطلوب

store.rar

اخى الفاضل

برجاء وضع طريقة الحل ليستفيد منه الزملاء

مع الشكر

مرفق الملف

فى شيت 

Store

يوجد مفتاح 

In , out , req

عايز التالى

 عند ملأ العمود الثالث بقيمة ما والضغط على المفاتيح السابقه يقوم بنقل القيمة فى الشيت الخاص بكل مفتاح إذا كان العمود فى الشيت المراد النقل له فارغ أما إذا كان به بيانات ينقل فى الذى يليه

_ بعد الضغط على المفتاح تظهر رساله تحذيرية وتأكد العملية المرتدة

_عمل باسورد يطلب منى عند فتح الملف

_ نعمل مفتاح يقوم بتخزين البيانات المداخله بدل الاختيار من قائمة ملف

شكرا لكم

Store Main file.rar

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

وكل عام وانتم بخير وبصحة وسعادة

قمت بعمل مفتاح لتنفيذ امر ما فى الاكسل

فالمطلوب كالتالى

١- عمل رسالة نصية تظهر عند الضغط على المفتاح لتأكيد الاختيار بنعم او لا

٢_ كيف اقوم بحفظ ملف الاكسل المحتوى على الماكرو بحيث لا يقوم كل مرة بسؤالى عن مكان التخزين

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

ويحتوى على لوجو أو صورة ما

مع الشكر وعيدكم مبارك

شكرا لك اخى الكريم وكل عام وانتم بخير .ارى تجربة الملف وافادتكم بالنتيجة