السلامعليكم
حاولت مرارا وتكرار ولكن لم أفهمه أريد كيفية توسيع نطاق الأعمدة
أوبعبارة أخر ى
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