الـعيدروس قام بنشر أغسطس 23, 2011 مشاركة قام بنشر أغسطس 23, 2011 السلام عليكم ورحمة الله وبركاته اخواني الافاضل لدي ملف في الذاكره وهو عمل لاحد الاخوة لااتذكر من هو جزاه الله كل خير اريد كود مختصر ترحيل بيانات بين ورقتين معرفتي في الاكواد بسيطه جداوضيق الوقت هذه الايام واحببت ان اطرحه كموضوع لاني بأمس الحاجه له في عملي ارجو من لديه متسع من الوقت ان لايبخل علينا المرفق موضح المطلوب بالتفصيل والسلام عليكم ترحيل بيانات.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أغسطس 23, 2011 مشاركة قام بنشر أغسطس 23, 2011 السلام عليكم تفضل أخي الكود التالي Sub shift_empty() Sheets("Cells as CheckBoxes").Activate lastR = [A10000].End(xlUp).Row Sheets("ص").Range("A3:A10000").EntireRow.Delete Shift:=xlUp Sheets("م").Range("A3:A10000").EntireRow.Delete Shift:=xlUp For i = 4 To lastR If Cells(i, "C") <> "a" Then Range("A" & i & ":B" & i).Copy (Sheets("ص").[A10000].End(xlUp).Offset(1, 0)) End If Next i For i = 4 To lastR If Cells(i, "G") <> "a" Then Range("E" & i & ":F" & i).Copy (Sheets("ص").[A10000].End(xlUp).Offset(1, 0)) End If Next i For i = 4 To lastR If Cells(i, "D") <> "a" Then Range("A" & i & ":B" & i).Copy (Sheets("م").[A10000].End(xlUp).Offset(1, 0)) End If Next i For i = 4 To lastR If Cells(i, "H") <> "a" Then Range("E" & i & ":F" & i).Copy (Sheets("م").[A10000].End(xlUp).Offset(1, 0)) End If Next i End Sub رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أغسطس 23, 2011 مشاركة قام بنشر أغسطس 23, 2011 مرفق الملف أيضا وبه الكود غير أنني لم أستخدم CheckBox الخاص بـ (صباح - مساء) لضيق الوقت كل عام وأنتم بخير ترحيل بيانات2.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أغسطس 23, 2011 الكاتب مشاركة قام بنشر أغسطس 23, 2011 بورك فيك استاذ طارق كود جميل جدا مختصر وفقك الله وجعله في ميزان حسناتك انشاء الله رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أغسطس 24, 2011 الكاتب مشاركة قام بنشر أغسطس 24, 2011 استاذي الفاضل طارق محمود اذا امكن اكمال طريقة CheckBox خيار لترحيل كل فترة على حده لكبر البيانات اذا اتسع وقتكم او من احد الاساتذه الافاضل بارك الله فيهم للعلم حاولت اعمل شرط CheckBox ولم تفلح المحاولة رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر أغسطس 24, 2011 مشاركة قام بنشر أغسطس 24, 2011 الأستاذ / alidroos تفضل الملف بعد تفعيل خاصية الـ Check Box كل ما ستقوم به هو تحديد Check Box وسيتم الترحيل للشيت الخاص بالCheck Box المحدد لم اقم بعمل تعديل على الكود الخاص بالترحيل كل ما تم عمله هو اضافة كود الترحيل الخاص بالفترة الصباحية للـ Check Boxصباحاً ليعمل عند تفعيله وبالمثل للـ Check Box مساءاً للأسف في حالة الغاء تفعيل Check Box لن يتم مسح / حذف البيانات من الشيت المقابل بالتوفيق بإذن الله ترحيل بيانات3.rar رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أغسطس 25, 2011 مشاركة قام بنشر أغسطس 25, 2011 الاخوة الاساتذة م0طارق - المعتصم جزاكم الله كل الخير - عمل سررت به جدا واعجبني مع كل الشكر لحضرتك اخي الاستاذ العيدروس وفقك الله رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أغسطس 25, 2011 الكاتب مشاركة قام بنشر أغسطس 25, 2011 السلام عليكم الاستاذ القدير المعصتم تسلم على الاضافة وفقك الله طرت في بالي اضافة وزبطت معي ارجو ان تستفيدو منها استعنت بفورم البحث من عمل الاستاذ الكبير خبور خير وفقه الله للبحث السريع وعمل تحفيز للاسم والسلام عليكم ترحيل.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.