وليد عبدالغني قام بنشر يناير 15, 2011 قام بنشر يناير 15, 2011 (معدل) ارجوا المساعدة فى عمل ورقة اكسل يتم فيها تسجيل حركة خزينة جدول يتم فى تسجيل حركات الخزينةعلى حسب الفئات يتم ادرج الرصيد اول اليوم كحركة بالموجب الوارد يتم ترحيلة بالموجب والصادر يتم ترحيلة بالسالب حتى اتمكن من معرفة رصيد الخزينة من كل فئة خلال اليوم ولكم جزيل الشكر ترحيل2.rar تم تعديل يناير 15, 2011 بواسطه waleed abdelghany
وليد عبدالغني قام بنشر يناير 15, 2011 الكاتب قام بنشر يناير 15, 2011 (معدل) قمت بانشاء القائمة ويبقى الترحيل برجاء المساعدة 3ترحيل.rar تم تعديل يناير 15, 2011 بواسطه waleed abdelghany
طارق محمود قام بنشر يناير 15, 2011 قام بنشر يناير 15, 2011 السلام عليكم أخي الكريم جرب الكود التالي 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
وليد عبدالغني قام بنشر يناير 15, 2011 الكاتب قام بنشر يناير 15, 2011 (معدل) السلام عليكم مشرفنا الف الف شكرا فعلا ما تعطفتم بة هو المطلوب ولكن لى رجاء فى الصادر لا اريد ترحيل الاجمالى حيث يتم ترحيلة بالموجب مع جزيل الشكر ربنا يكرمك على التعاون waleed.rar تم تعديل يناير 15, 2011 بواسطه waleed abdelghany
وليد عبدالغني قام بنشر يناير 15, 2011 الكاتب قام بنشر يناير 15, 2011 رجاء هذا التصليح البسيط لكم الكبير بالنسبة لى جزيل الشكر
طارق محمود قام بنشر يناير 16, 2011 قام بنشر يناير 16, 2011 (معدل) السلام عليكم أخي العزيز غير الرقم 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.