برجاء المساعدة فى اول طلب

[وليد عبدالغني]

ارجوا المساعدة

فى عمل ورقة اكسل يتم فيها تسجيل حركة خزينة

جدول يتم فى تسجيل حركات الخزينةعلى حسب الفئات

يتم ادرج الرصيد اول اليوم كحركة بالموجب

الوارد يتم ترحيلة بالموجب

والصادر يتم ترحيلة بالسالب

حتى اتمكن من معرفة رصيد الخزينة من كل فئة خلال اليوم

ولكم جزيل الشكر

ترحيل2.rar

تم تعديل يناير 15, 2011 بواسطه waleed abdelghany

[وليد عبدالغني]

قمت بانشاء القائمة

ويبقى الترحيل

برجاء المساعدة

3ترحيل.rar

تم تعديل يناير 15, 2011 بواسطه waleed abdelghany

[وليد عبدالغني]

برجاء المساعدة

[طارق محمود]

السلام عليكم

أخي الكريم

جرب الكود التالي

Sub Macro1()

'

' Macro1 Macro

'


Dim xs1, xs2 As Range

	Sheets("البيانات").Select

	x_type = [b1]

	xs1 = Range("C13:c15")


	Range([d4], [d12]).Copy

	Sheets("a").Select

	[C10000].End(xlUp).Offset(1, 0).Select

	Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True

	Application.CutCopyMode = False


	Cells(ActiveCell.Row, 2).Value = x_type

	i = -1

	For Each ss In xs1

  	i = i + 1

  	Cells(ActiveCell.Row, 12 + i).Value = ss

	Next


  If x_type = "صادر" Then

	For Z = 3 To 14

    	Cells(ActiveCell.Row, Z).Value = -Cells(ActiveCell.Row, Z).Value

	Next Z

  End If


  Sheets("البيانات").Range("C4:c12").ClearContents

  Cells(ActiveCell.Row + 1, 2).Select

End Sub

[طارق محمود]

مرفق الملف وبه الكود

4ترحيل.rar

[وليد عبدالغني]

السلام عليكم مشرفنا

الف الف شكرا فعلا ما تعطفتم بة هو المطلوب

ولكن لى رجاء فى الصادر لا اريد ترحيل الاجمالى

حيث يتم ترحيلة بالموجب

مع جزيل الشكر

ربنا يكرمك على التعاون

waleed.rar

تم تعديل يناير 15, 2011 بواسطه waleed abdelghany

[وليد عبدالغني]

رجاء هذا التصليح البسيط لكم الكبير بالنسبة لى

جزيل الشكر

[طارق محمود]

السلام عليكم

أخي العزيز

غير الرقم 14 إلي 13 في أواخر الكود السابق

أي أنه بدلا من

  If x_type = "صادر" Then

        For Z = 3 To 14

        Cells(ActiveCell.Row, Z).Value = -Cells(ActiveCell.Row, Z).Value

        Next Z

  End If

يصبح

  If x_type = "صادر" Then

        For Z = 3 To 13

        Cells(ActiveCell.Row, Z).Value = -Cells(ActiveCell.Row, Z).Value

        Next Z

  End If 

تم تعديل يناير 16, 2011 بواسطه TareQ M

[وليد عبدالغني]

الف شكر

ربنا يكرمك