يوسف السيد قام بنشر يوليو 4, 2013 مشاركة قام بنشر يوليو 4, 2013 فى الملف المرفق كود غياب للاستاذ عبدالله باقشير اتمنى فقط تعديل طفيف لكى يقوم الكود بالترحيل بناء على التاريخ ترحيل غياب.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله باقشير قام بنشر يوليو 4, 2013 أفضل إجابة مشاركة قام بنشر يوليو 4, 2013 السلام عليكم جرب التالي Sub kh_Start() Dim Cel As Range Dim r As Integer, rr As Integer, c As Integer For Each Cel In Range("C6:C12") rr = Val(Cel) If rr Then c = WorksheetFunction.Match([D3], ورقة2.Range("C1:bb1"), 0) + 1 With ورقة2.Range("A3").Cells(rr, c) .Offset(0, 1).Value = Cel.Offset(0, 2).Value .Offset(0, 2).Value = Cel.Offset(0, 3).Value End With End If Next Range("c6:c12,e6:e12,f6:f12").ClearContents Call غ End Sub تحياتي رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر يوليو 4, 2013 الكاتب مشاركة قام بنشر يوليو 4, 2013 وعليكم السلام الكود اكثر من رائع بارك الله فيك وبارك لنا فيك استاذى الفاضل واسال الله العلى القدير ان يبلغك شهر رمضان الكريم بألف صحة وعافية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.