سؤال في الترحيل

[abo zohir]

أرجو شرح طريقة ترحيل الدفعات من يومية الصندوق الى حساب كل زبون على حدى

وشكرا

ابو الزوز سؤال في الترحيل.zip

[طارق محمود]

السلام عليكم

أخي ابو الزوز

حاولت شرح مقتضب في الكود التالي

Sub nn

()

Application.ScreenUpdating = False


'مسح أي بيانات قديمة في الصفحات الموجودة غير الأولي

For i = 2 To Sheets.Count - 1

	Sheets(i).Select

	Range("A5:G2000").ClearContents

Next i


On Error Resume Next


'قراءة وترحيل بيانات الصفحة الأولي واحدة بواحدة

Sheets(1).Select

For rr = 5 To [c10000].End(xlUp).Row

	nam = Cells(rr, "C")

	L_nam = "السـيد " & nam & " المحترم"

	debt = Cells(rr, "A")

	cdrt = Cells(rr, "B")

	Range(Cells(rr, "D"), Cells(rr, "G")).Copy


	For i = 2 To Sheets.Count

		If Sheets(i).[b1] = L_nam Then

			L_R = Sheets(i).[c10000].End(xlUp).Row + 1 ' آخر صف في الورقة المرحل إليها

			Sheets(i).Cells(L_R, "D").PasteSpecial Paste:=xlPasteValues

			Sheets(i).Cells(L_R, "C") = "دفعة نقدية"


			'مراجعة ماإذا كانت الدفعة دائنة ام مدينة ووضعها في المكان المناسب

			If debt = 0 Then Sheets(i).Cells(L_R, "A") = cdrt Else Sheets(i).Cells(L_R, "B") = debt

		GoTo 10

		End If

	Next i

10

Next rr

Application.CutCopyMode = False

For i = Sheets.Count - 1 To 1 Step -1

	Sheets(i).Select

	[A5].Select

Next i

Application.ScreenUpdating = True


End Sub

حاول تمشي معاه

ومرفق الملف أيضا

وإسأل لو إحتجت أي شيء

طلب في الترحيل.rar

[abo zohir]

مشكور شرحك

أنا لسه مبتدئ بالاكسيل

وكمان هذا الشرح بالنسبة الي صعب أرجو الشرح بطريقة أبسط

وياريت لو في كتاب الكتروني عن مايخص لغة البيسك بالاكسيل وشكرا

تم تعديل نوفمبر 24, 2011 بواسطه abo zohir