أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


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





كود ترحيل بالضغط مرتين على الماوس

لو سمحتم الملف المرفق فى ورقة المخزن اريد الضغط مرتين على خلية الصنف يتم ترحيلها الى ورقة مبيعات بحسب اختيار الليست مش ..


موضوع مغلق


24-09-2020 04:56 مساء
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 

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

 
 
 
  حازم M _ H.xlsm   تحميل xlsm مرات التحميل :(16)
الحجم :(2551.671) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم نبدأ بها أي موضوع وأي نقاش
جرب الكود التالي في حدث ورقة العمل عله يفي بالغرض إن شاء العلي القدير
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim sh As Worksheet, col As Long, lr As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 3 And Target.Column = 3 Then
        Cancel = True
        Set sh = ThisWorkbook.Worksheets("مبيعات")
        col = IIf(Range("G3").Value = "مبيعات", 6, 12)
        lr = sh.Cells(Rows.Count, col).End(xlUp).Row + 1
        sh.Cells(lr, col).Resize(1, 3).Value = Cells(Target.Row, 3).Resize(1, 3).Value
    End If
    MsgBox "Done...", 64
End Sub
عرض الإجابة




24-09-2020 05:14 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود ترحيل بالضغط مرتين على الماوس
السلام عليكم نبدأ بها أي موضوع وأي نقاش
جرب الكود التالي في حدث ورقة العمل عله يفي بالغرض إن شاء العلي القدير
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim sh As Worksheet, col As Long, lr As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 3 And Target.Column = 3 Then
        Cancel = True
        Set sh = ThisWorkbook.Worksheets("مبيعات")
        col = IIf(Range("G3").Value = "مبيعات", 6, 12)
        lr = sh.Cells(Rows.Count, col).End(xlUp).Row + 1
        sh.Cells(lr, col).Resize(1, 3).Value = Cells(Target.Row, 3).Resize(1, 3).Value
    End If
    MsgBox "Done...", 64
End Sub

24-09-2020 06:17 مساء
مشاهدة مشاركة منفردة [2]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif كود ترحيل بالضغط مرتين على الماوس
حفظك الله استاذ ياسر
شكر وتقدير واحترام

24-09-2020 06:18 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود ترحيل بالضغط مرتين على الماوس
بارك الله فيك أخي العزيز أبا الحسن ومشكور على مرورك العطر.

30-09-2020 06:43 مساء
مشاهدة مشاركة منفردة [4]
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 
look/images/icons/i1.gif كود ترحيل بالضغط مرتين على الماوس
جزااااااااااااااااااااااااك الله كل خير اخى الفاضل والعزيز 
وفيت المطلوب 
الف الف شكر لحضرتك

30-09-2020 07:28 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود ترحيل بالضغط مرتين على الماوس
وجزيت خيراً أخي الكريم بمثل ما دعوت لي 
والحمد لله الذي بنعمته تتم الصالحات



الكلمات الدلالية
ترحيل ، بالضغط ، مررتين ، الماوس ،


 










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

الساعة الآن 09:18 صباحا