شرح بسيط لهذا الكود ( كود ترحيل بيانات )

[Mohammad Shawkey]

ممكن شرح لهذا الكود بعد اذن الاساتذة الافاضل .. هو كود خاص بالترحيل ولكنى اريد فهمة .. فماذا تعنى For i = 1 To 6 مثلا وهكذا ...

جزاكم الله كل خير

Sub distribute()

LR = [B10000].End(xlUp).Row

For i = 1 To 6

  Asas_Col = i + 140

 x = "اساسى " & i

 y = "الدرجة النهائية  1"

		C1 = WorksheetFunction.Match(x, [B4:CX4], 0) + 1

		C2 = WorksheetFunction.Match(y, Range(Cells(6, C1), Cells(6, C1 + 9)), 0) + C1 - 1

				For r = 9 To LR

       If Cells(r, Asas_Col) > 0 Then

 With Sheet2

 Rw_1 = WorksheetFunction.Match(i, .[F1:F1000], 0) + 36

  LR_i = .Range("C" & Rw_1).End(xlUp).Row + 1


    .Cells(LR_i, "C") = Cells(r, "B")

.Cells(LR_i, "B") = Cells(r, "D")

 .Cells(LR_i, "D") = Cells(r, C2)

								End With

						End If

				Next r

Next i

MsgBox ("تم الترحيل بحمد الله")

End Sub

[عبدالله المجرب]

ارفق الملف الذي به اكود ليسهل تتبعه وشرحه

[عبدالله المجرب]

السلام عليكم

بعد البحث وجدت الموضوع

http://www.officena.net/ib/index.php?showtopic=40899

ان شاء الله ان توفر لي الوقت ساشرحه

[Mohammad Shawkey]

السلام عليكم

بعد البحث وجدت الموضوع

http://www.officena....showtopic=40899

ان شاء الله ان توفر لي الوقت ساشرحه

ان شاء الله توفق فى شرحة كالعادة .. ونحن فى انتظار حضرتك .. شكرا