لم أفهم كيفية تعديل هذا الكود

[ريان أحمد]

السلامعليكم

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

أوبعبارة أخر ى

Sub shiftt()

Range(Sheets(2).Cells(2, 1), Sheets(2).Cells(28, 5)).ClearContents

For i = 1 To 3

..............هذا الجزئماذا يعبر الرقم 1 والرمزi ا x = [L2].Offset(1, i * 2).Value

y = [L2].Offset(4, i * 2).Value

aa = aa & " " & x

bb = bb & " " & y

For j = 1 To 11

If Cells(1, j) = x Then

For Z = 1 To 5

If Sheets(2).Cells(1, Z) = y Then

Range(Cells(2, j), Cells(28, j)).Copy

Sheets(2).Cells(2, Z).PasteSpecial Paste:=xlPasteValues

GoTo 10

End If

Next Z

End If

Next j

10

Next i

[M7].Select

MsgBox ("تم الترحيل من " & aa & Chr(10) & " إلي " & bb & Chr(10) & " في الورقة الثانية")

Application.CutCopyMode = False

End Sub

ترحيل أعمدة.rar

[ريان أحمد]

أريد تعديل وتوسيع نطاق الأعمدة في الورقتين المرحل لها والمرحل منها وكيفية تغيير مكان الإختيارات يعني مكان إدخال أسماء الأعمدة

أي أين تغير في الكود

[عبد الفتاح كيرة]

و ضح المطلوب أكثر أخ طاهر

[طارق محمود]

السلام عليكم

أخي طاهر

ستجد عندك بداية من الخلية M3 العبارة التالية

إختر ماتريد ي ، خ ، ز

مثلا

فإذا إعتبرت الخلية L2 كمرجع لأي من إختياراتك ( ي ، خ ، ز )

فيكون الخيار الأول (ي) ، يبعد عن الخلية L2 بمقدار 1صف للأسفل و 2 عمود يسار

والخيار الثاني (خ) ، يبعد عن الخلية L2 بمقدار 1صف للأسفل و 4 عمود يسار

والخيار الثالث (ز) ، يبعد عن الخلية L2 بمقدار 1صف للأسفل و 6 عمود يسار

وكما تلاحظ بسبب وجود خلية بها فاصلة بين الخيارات فالخطوة أفقيا كل خليتين

For i = 1 To 3

..............هذا الجزئماذا يعبر الرقم 1

الرقم 1 في سؤالك يعني أن مكان الخيارات يبعد 1 صف عن الخلية المرجع

والرمزi

x = [L2].Offset(1, i * 2).Value

الرمز i يرمز لعداد لعدد الخيارات المتاحة

فإذا كان عندك 5 خيارات مثلا فالسطر

For i = 1 To 3

يتغير إلي

For i = 1 To 5

علي أن تضع الخيارات بنفس النسق

[ريان أحمد]

أخي kemas شكرا على الإهتمام والمرور الطيب أخي أخي TareQ M شكرا على التوضيح والشرح

سأطبقه حسب ما فهمت في ملف آخر وأي إستفسار سأرجع إليكم يا أساتذي الكرام