انا حملت اهو الاول

هههههههههه تسلم استاذ محمود

طريقة تانيه وهدفها فى حالة اضافة صفوف او اعمده جديده يظل المرجع نفسه
والأفكار عديده فى هذا الموضوع ولكن المهم الهدف المراد الوصول له

تحميل ملف العمل
https://www.file-upload.com/x0ryhkv6z7p0

معلش النت عندى وحش بس والله لسه بحاول احمله فعزرا على التأخير

مش مهم أنا بهزر بس أستاذ محمود
وبعدين أنت أستاذ كبير ميهمكش الكلام البسيط دا

شو سبب استعمال هاي الاشارة "=<>"

المشاركة الأصلية كتبت بواسطة: khaled alborene شو سبب استعمال هاي الاشارة "=<>"

راجع هذا الموضوع أستاذ خالد لتعلم سبب هذه الاشاره
http://techno7asry.com/forum/t1141

المشاركة الأصلية كتبت بواسطة: ostazmas بارك الله لك أستاذ إسلام
كانت لي هذه المحاولة المختصرة

CODE

=INDIRECT(ADDRESS(COLUMN(A$1),ROW($A1)))<br />

وجاري البحث عن الملف الأصلي حيث أنه من 2011 تقريبا

بارك الله فيك أستاذ محمد
الأفكار كتير والمهم الوصول للهدف المنشود
تقبل وافر احترامى وتقديرى

بارك الله فيك أخي الحبيب إسلام ومشكور على موضوعاتك الجميلة
جزاك الله خيراً

شكرا على مرورك العطر استاذى الحبيب ياسر
وجزاك الله خيرا

كمل جميلك واعمل نفس النتيجة بالأكواد (اعتبره موضوع بحث) .. وهذا أمر ليس بالصعب باستخدام الأكواد
فكر في عمل ذلك بشكل يدوي عن طريق نسخ النطاق ثم لصق خاص ثم تحديد Transpose ...

حاجه على ادى اهو عملت الكود دا

Sub TRANSPOSE()<br />
Selection.Copy<br />
Selection.Offset(, 4).Select<br />
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _<br />
&nbsp; &nbsp; &nbsp; &nbsp; False, TRANSPOSE:=True<br />
End Sub<br />
<br />

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