skyblue

السلام عليكم ورحمة الله وبركاته وبعد : وحسب المرفق وجزاكم الله خيرا Book1.zip

الاستاذ خبور خير في ردك انت قلت : ولكن يمكنك من خلال كود معين تشغيل عدة اكواد لم افهم هذه النقطة ?? ولكن اللي فهمته هل انت تقصد انه لوا كان لدي كودين او ثلاثة تحمل هذا العنوان :Private Sub Worksheet_Change(ByVal Target As Range اعمل عناوينهم بهذا الشكل : الكود الاول يحمل العنوام التالي : Private Sub Worksheet_Change(ByVal Target As Range الكود الثاني يحمل العنوام التالي : Private Sub skyblue الكود الثالث يحمل العنوام التالي : Private Sub kh1 هذا النقطة اللي كنت ابحث عنها والحمد لله ماقصرت استاذ خبور عرفنا منك كيف نتصرف في مثل هذه الحالات . ستاذنا خبور خير وفقك الله لكل الخير , دائما اسمك مرتبط بالخير لانه لاياتي منك الا الخير ... ادعوا الله لك بهذا الليالي المباركة ان يطيل الله في عمرك ويعطيك بسطة في المال والولد ويبعد عنك كل سؤء ويكون التوفيق حليفك . حفظك الله ورعاك

تلاحظ لي انه عندما يكون عندي كودين منفصلين وكل كود يبدأ ب : Private Sub Worksheet_Change(ByVal Target As Range) تحصل مشكلة في عمل الكودين فلابد من ضم الكودين تحت مظلة Private Sub Worksheet_Change(ByVal Target As Range) ليكون كود واحد . سؤالي : هل من طريقة نجعل كل كود يعمل بكفاءة لوحدة دون دمجهم مع بعض . اتمنى ان تكون هناك طريقة لامكانية تسجيل الكود لوحده بدون معارضة حسب المرفق Book1.zip

الاستاذ قطان في الملف في المشاركة رقم 18 يظهر القائمة المنسدلة عندما تكون الخلية A1 غير فارغة . المطلوب هل يمكن التعديل في الكود بحيث لو جعلت الخلية a1 فارغة تختفي القائمة المنسدلة تحياتي

استاذي الفاضل ابو اسامة العينبوسي كثر الله خيرك على هذا المعروف و رحم الله والديك واثابك الجنة . وكل عام وانت بخير وشهر مبارك . الاساتذة احمد يعقوب وخالد القدس كل عام وانتم بخير وشهر كريم علينا وعليكم وعلى امتنا الاسلامية

up

السلام عليكم ورحمة الله وبركاته وبعد : الاساتذة المشرفين ولاعضاء نحتاج دائما الى ان يكون الترحيل حسب مانحتاجه ونأمل منكم التكرم بالمساعدة في ايجاد حل لذلك وحسب المرفق تحياتي لكم ترحيل حسب الطلب.rar

up

up

يسعدني ويشرفني انك انت من ترد على مشاركتي ومن حظي انه من خلال كم سنة واغلب الردود على موضوعي تكون منك ...والله هو العالم مدى الاستفادة التي استفدتها منك في كثير من المواضيع اشياء لاتقدر بثمن ولكن لك مني الدعاء في ظهر الغيب . بخصوص موضوعي الحالي : فعلا الخلية b11 تعتبر عنوان ثابت في sheet2 ولكن b11 تكون فاضية عندما اطلب اسم سامي او سالم . فطلبي باختصار على النحو التالي : ااذا كانت القائمة المنسدلة تحتوي على اسم احمد او علي نقوم بترحيل الخلايا من d8-d11 الي sheet2 حسب عناوينها واذا = = = = = = سامي او سالم = = الخلية b11 و الخلية d11 الى sheet2 كل حسب عنوانه. ======================================================= Sub MoveValue2() Dim EndRow As Long If Target.Address = "$A$2" Then Select Case Target.Value Case Is = "علي", "احمد" For i = 1 To 1 EndRow = Sheets(2).Range("A1").CurrentRegion.Rows.Count Sheets(2).Cells(EndRow + 1, 1).Value = EndRow Sheets(2).Cells(EndRow + 1, 2).Value = Sheets(1).Cells(8, 4).Value Sheets(2).Cells(EndRow + 1, 3).Value = Sheets(1).Cells(9, 4).Value Sheets(2).Cells(EndRow + 1, 4).Value = Sheets(1).Cells(10, 4).Value Sheets(2).Cells(EndRow + 1, 5).Value = Sheets(1).Cells(11, 4).Value Sheets(2).Cells(EndRow + 1, 7).Value = Sheets(1).Cells(2, 1).Value Case Is = "سامي", "سالم" Sheets(2).Cells(EndRow + 1, 8).Value = Sheets(1).Cells(11, 2).Value End Select End If End Sub تحياتي

وحسب العنوان اعلاه .تلاحظ لي عدم ظهور المرفقات في المشاركات . فمثلا في مشاركة : الترحيل بشروط تجد ان المرفقات غير موجودة برجاء الافادة تحياتي

الاخوة الافاضل الملف KK به اخطاء ....مرفق لكم الملف الصحيح الملف الصحيح.rar

السلام عليكم ورحمة الله وبركاته وبعد : الاساتذة المشرفين والاعضاء الافاضل يوجد في الملف المرفق كود ترحيل واحتاج فقط الى التعديل في هذا الكود بناء على اسماء في القائمة المنسدلة مرفق ملف وبه الايضاح تحياتي kk.rar

اللهم يسر امر استاذنا ابو اسامة العينبوسي واجعل التوفيق حليفة

استاذي الفاضل ارجوا التكرم بمساعدتي في الملف المرفقات لانهاالمرفق. ولك تحياتي Book1.zip

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

السلام عليكم ورحمة الله وبركاته : اخواني الاعضاء وحسب المرفق Book1.zip

up

السلام عليكم ورحمة الله وبركاته استاذ ابو اسامة انا عملت الاتي : في book3 غيرت ورقة 1 الى sheet1 وجربت وظهر نفس الخطأ اخير ا بتغيير مسمى ورقة 1 الى sheet1 في كلا من book2 و book3 وظهر نفس الخطأ تحياتي

up

الاستاذ ابو اسامة صبحك الله بالخير ...شكرا جزيلا على الرد وعلى الكود . استاذي ابو اسامة قمت بنقل الملفين الى سطح المكتب وغيرت بدلا من ورفة1 غيلاتها الى sheet1 ولكن كود الترحيل لايعمل حيث ياتي خط اصفر على السطر الاول في الكود اتمنى ان تتكرم بحل المشكلة وتقبل تحياتي

السلام عليكم ورحمة الله وبركاته وبعد : هذا الموضوع محيرني منذ فترة واتمنى من الاساتذة الافاضل مساعدتنا في حل هذا الموضوع وعن طريق الكود وتفبلوا تحياتي Book2.rar Book3.rar

up

السلام عليكم ورحمة الله وبركاته وبعد الرجاء المساعدة في ربط ملفين الاول اسمه book1 والثاني book2 بحيث لو سجلت في الملف الاول يظهر اليا في الملف الثاني عند الفتح تحياتي

اولا شكرا اخي justice انا أقصد عندما اختار Right Click تكون غير نشطة . فمثلا عندما اقوم بنسخ بيانات من الملفbook1 ثم أذهب الى book2 واحدد الخلية ثم right click فان علامة اللصق غير نشطة فما السبب ؟؟؟ تحياتي لك