gamalin قام بنشر يونيو 18, 2013 مشاركة قام بنشر يونيو 18, 2013 لدي ملف اقوم فيه بترحيل بيانات اذونات القبض والصرف ومنها تاريخ الاذن وعند محاولة البحث بواسطة ادفنسد فلتر عن الاذونات بالتاريخ المحدد واقوم بكتابته بيدي لا يجده وعند اخذ كوبي وبست يجده مرفق كود الترحيل المستخدم Sub post1() Application.ScreenUpdating = False On Error Resume Next Sheets("ÍÝÙ ÇáÈíÇäÇÊ").Visible = True Set myRng1 = Range("b3,e3,a2,b4,b8,b5,b6,b7,d7,f7,b9") If [b3] > 0 And [b5] > 0 And [b8] <> "" And [b6] <> "" Then With Sheets("ÍÝÙ ÇáÈíÇäÇÊ") N = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 For R = 1 To 11 .Cells(N, R) = myRng1.Areas® Next End With Else Application.ScreenUpdating = True MyAnswer = MsgBox("íÌÈ ÇßãÇá ÇÏÎÇá ÇáÈíÇäÇÊ - áã íÊã ÇáØÈÚ Çæ ÇáÍÝÙ", vbOK, "ãØáæÈ ÇáÅßãÇá") End End If Sheets("ÍÝÙ ÇáÈíÇäÇÊ").Visible = False End Sub رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر يونيو 19, 2013 الكاتب مشاركة قام بنشر يونيو 19, 2013 ارجو الاهتمام هل لترحيل التاريخ حاله خاصة هل هناك حل للمشكلة اعلاه مع العلم ان الخانة التي بها التاريخ هي e3 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يونيو 20, 2013 مشاركة قام بنشر يونيو 20, 2013 السلام عليكم و رحمة الله وبركاته اخي الفاضل ارفق ملف به كود الترحيل وكود الفرز مع مثال بسيط لنتمكن من العمل عليه رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر يونيو 22, 2013 الكاتب مشاركة قام بنشر يونيو 22, 2013 الملف اهه ارجو سرعة الرد el-destor cash.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يونيو 23, 2013 مشاركة قام بنشر يونيو 23, 2013 السلام عليكم و رحمة الله اخي الكريم لم اجد اي مشكلة في الكود في ورقة SEARCH رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يونيو 23, 2013 مشاركة قام بنشر يونيو 23, 2013 السلام عليكم و رحمة الله وبركاته مرفق الملف بعد التجربة تم تغيير تنسيق خلية التاريخ فقط el-destor cash.rar رابط هذا التعليق شارك 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.