ريان أحمد قام بنشر سبتمبر 16, 2011 مشاركة قام بنشر سبتمبر 16, 2011 (معدل) السلام عليكم أريد تثبيت قيم خلايا حتى بعد نسخ المعلومات إليها والشرح في المرفق 2011.rar تم تعديل سبتمبر 16, 2011 بواسطه tahar1983 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر سبتمبر 16, 2011 مشاركة قام بنشر سبتمبر 16, 2011 الاخ طاهر ماذا تقصد : " كذلك تبقى الخلايا ثابتة في الجدول في الورقة 02 " ارجو ان توضح اكثر ....... ربما لم استوعب الطلب وفقك الله ابو الحارث رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 16, 2011 الكاتب مشاركة قام بنشر سبتمبر 16, 2011 السلام عليكم أستاذي ياسر الحافظ في الملف المرفق توجد Sheet2 بها جدول وفي Sheet1 جدول عندما أقوم بنسخ البيانات من الجدول الذي في Sheet1 إلى الجدول الذي في Sheet2 أريد أن تبقى بعض البيانات ثابته في الجدول الذي في Sheet2 والقيم هي c05 c4 c10 c11 c12 2011.rar رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر سبتمبر 16, 2011 مشاركة قام بنشر سبتمبر 16, 2011 اخي طاهر استوعبت ما تريد سأجرب ربما اصل الى حل .... وربما يقوم احد الاساتذة بمساعدتك وفقك الله ابو الحارث رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 17, 2011 مشاركة قام بنشر سبتمبر 17, 2011 اخي طاهر بعد اذن ابو الحارث جرب المرفق واخبرني بالنتيجة ابواحمد عبدالله المجرب2011.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 17, 2011 الكاتب مشاركة قام بنشر سبتمبر 17, 2011 أستاذي العزيز ....لم أفهم الكود وأين القسم الخاص بتبيت الخلايا المعنية وكيف أتصرف مع الكود لوكان يجلب العمود من ملف خارج الملف اصلي رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 17, 2011 مشاركة قام بنشر سبتمبر 17, 2011 (معدل) أستاذي العزيز ....لم أفهم الكود وأين القسم الخاص بتبيت الخلايا المعنية اخي طاهر الكود لا يقوم بالتثبيت وانما يقوم بنقل البيانات الموجودة في الورقة الاولى دو التأثير في الخلايا الصفراء في الورقة الثانية لانه لا يقوم بنقلها ف وكيف أتصرف مع الكود لوكان يجلب العمود من ملف خارج الملف اصلي ارفقت لك ملف جربه فيه هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) LR = Range("L" & Rows.Count).End(xlUp).Row For Each cl In Range("L2:L" & LR) If cl.Value <> "" Then Cells(cl.Row, 3).Value = cl.Value End If Next cl End Sub المرفق فيه تقوم بوضع المعلومات المثبته في العمود L لاي صف لا يهم وبعدها قم بلصق اي بيانات منسوخة من أي ملف ولاحظ النتيجة ان شاء الله هذا ما تقصده ابواحمد عبدالله المجرب2011.rar تم تعديل سبتمبر 17, 2011 بواسطه عبدالله المجرب رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر سبتمبر 17, 2011 مشاركة قام بنشر سبتمبر 17, 2011 اخي / الاستاذ " ابو احمد " عبد الله المجرب : دوما دوما سباق بالمعروف ودوما نعتمد على صمام الامان ( حضرتك ) ما كانت ستخطر ببالي هذه الحلول ابدا .... جزاك الله كل الخير وفقك الله ابو الحارث رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 17, 2011 مشاركة قام بنشر سبتمبر 17, 2011 ابو الحارث أكثرت علينا مجاملات ومديح وجعلتني احسبك تخاطب شخص اخر ما هذا الا بعض ما عندكم ونحن ننهل منكم التواضع والمحبة والاخلاق الحميدة شكراً لك ابواحمد رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 17, 2011 الكاتب مشاركة قام بنشر سبتمبر 17, 2011 بالفعل وبدون شك وبدون ضن نعم كالعادة هذا هو المطلوب بعينهه وبرجله وبجميع جسمه هههههههههه سلمت يمناك وجزاك الله كل خير وجعل الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 17, 2011 مشاركة قام بنشر سبتمبر 17, 2011 بالفعل وبدون شك وبدون ضن نعم كالعادة هذا هو المطلوب بعينهه وبرجله وبجميع جسمه هههههههههه سلمت يمناك وجزاك الله كل خير وجعل الله في ميزان حسناتك الحمدلله ان كان هذا طلبك والله يسلمك ويجزيك كل خير وهذا واجبي ابواحمد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.