يوسف السيد قام بنشر مارس 5, 2014 مشاركة قام بنشر مارس 5, 2014 السلام عليكم : ابحث عن كود للترحيل بالتاريخ مع امكانية استدعاء البيانات المرحلة عن طريق التاريخ وذلك للتعديل عليها ثم اعادة ترحيلها مرة اخرى سيارات.rar رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر مارس 6, 2014 الكاتب مشاركة قام بنشر مارس 6, 2014 up رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مارس 6, 2014 مشاركة قام بنشر مارس 6, 2014 اخي يوسف جرب المرفق التالي سيارات 2.rar 1 رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر مارس 6, 2014 الكاتب مشاركة قام بنشر مارس 6, 2014 استاذى الفاضل ابو حنين .. اتشرف بك دوما فى موضوعاتى جزاك الله عنا خير الجزاء ووفقك لما يحب ويرضى رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر مارس 8, 2014 الكاتب مشاركة قام بنشر مارس 8, 2014 اخى الفاضل// ابو حنين بعد تجربة الملف عدة مرات والعمل عليه اكتشفت عده ملاحظات ارجو ان يتسع صدرك لها اولا اريد عدم تكرار تاريخ بالصفحة التى يتم ترحيل البيانات حيث انك اذا استدعيت بيانات وضغطت على زر الترحيل سيتم ترحيل البيانات مرة اخرى .. فقط اريد توقيف المستخدم حيث يجب هنا الضغط على زر تعديل بدلا من ترحيل ثانيا عند استدعاء البيانات بالتاريخ والتعديل عليها من الممكن ان تتعرض تلك البيانات للزيادة او النقص وفى حالة زيادة البيانات عن تلك القديمة والضغط على زر التعديل لا يهتم بالبيانات الزائدة فهو فقط يأخذ البيانات القديمة ويتجاهل البيانات الزائدة .. وعند نقص البيانات عن تلك القديمة والضغط على زر تعديل فانه يرحل البيانات بصورة صحيحة ولكنة لا يمسح التاريخ مكان البيانات القديمة بالصفحة المرحل اليها وشكراااااااااا مرة اخرى واتمنى الا اكون اثقل عليك رابط هذا التعليق شارك More sharing options...
kby قام بنشر مارس 9, 2014 مشاركة قام بنشر مارس 9, 2014 مشكور أخي الكريم. رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مارس 9, 2014 مشاركة قام بنشر مارس 9, 2014 السلام عليكم يمكن الاضافة و حفظ التعديل لكن في حالة النقص غير ممكن على الاقل لحد الآن **************** اخي kby جزاكم الله خيرا على المرور سيارات 4.rar 1 رابط هذا التعليق شارك More sharing options...
أبو عبد الرحمن سعيد قام بنشر مارس 9, 2014 مشاركة قام بنشر مارس 9, 2014 المتألق دائما الاستاذ الفاضل // ابوحنين جزاكم الله خيرا وبارك فيكم رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مارس 9, 2014 مشاركة قام بنشر مارس 9, 2014 أخي الحبيب سعيد بيرم سعدت بمروركم ( جنب حارتنا ) جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر مارس 9, 2014 الكاتب مشاركة قام بنشر مارس 9, 2014 وعليكم السلام : الاستاذ:ابو حنين .. جزاك الله خيراً وكما قال الاستاذ:سعيد بيرم ... فأنت متألق دائما فى منتدانا الحبيب وننتظر منكم ان شاء الله الكود المعدل لحالة نقص البيانات عن البيانات القديمة رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر مارس 9, 2014 مشاركة قام بنشر مارس 9, 2014 السلام عليكم يمكن الاضافة و حفظ التعديل لكن في حالة النقص غير ممكن على الاقل لحد الآن **************** اخي kby جزاكم الله خيرا على المرور الفاضل ابو حنين هذا الكود هو المطلووووووب في الملف اياااااااااااااااااااااااااااه رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر مارس 10, 2014 الكاتب مشاركة قام بنشر مارس 10, 2014 للرفع رفع الله قدركم رابط هذا التعليق شارك More sharing options...
احمد الحاوي قام بنشر مارس 11, 2014 مشاركة قام بنشر مارس 11, 2014 جزاك الله خيرا اخونا واستاذنا ابو حنين رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر مارس 12, 2014 مشاركة قام بنشر مارس 12, 2014 اخي احمد الحاوي جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر مارس 16, 2014 الكاتب مشاركة قام بنشر مارس 16, 2014 تم بحمد الله التوصل الى النتيجة المطلوبة فى كود التعديل عن طريق كود ايضا للرائع الاستاذ : ابو حنين والفكرة هى حذف البيانات القديمة عند التعديل واعادة ترحيل البيانات مرة اخرى Sub sSave() Application.ScreenUpdating = False Dim i As Long, Last As Long, Sh As Worksheet, Shh As Worksheet Set Sh = Sheets("main"): Set Shh = Sheets("database") If Sh.Range("A6") = "" Then MsgBox "لا توجد أي بيانات للترحيل", vbExclamation + vbMsgBoxRight, "خطأ" Exit Sub: End If LR = Sheets("database").[B1000000].End(xlUp).Row For i = LR To 4 Step -1 If Sheets("database").Cells(i, 1) = Sheets("main").Range("C2") Then Sheets("database").Rows(i).Delete Shift:=xlUp End If Next 'كود الترحيل أ:ابو حنين If MsgBox("هل تريد ترحيل البيانات الحالية الى قاعدة البيانات", vbInformation + vbMsgBoxRight + vbYesNo, "ترحيل") = vbNo Then Exit Sub x = Shh.Cells(Rows.Count, "B").End(xlUp).Row + 1 Last = Sh.Cells(Rows.Count, "A").End(xlUp).Row For i = 6 To Last Sh.Range("A" & i).Resize(, 8).Copy With Shh .Range("B" & x).PasteSpecial xlPasteValues: .Range("A" & x) = Sh.Range("C2").Value .Range("A" & x & ":" & "I" & x).Borders.Value = 1: .Range("J" & x) = x - 4 x = x + 1 End With: Next Sh.Range("A6:I" & Sh.Cells(Rows.Count, "A").End(xlUp).Row + 1).ClearContents: Sh.Range("C2") = "" Application.ScreenUpdating = True MsgBox "تم ترحيل البيانات بنجاح", vbInformation + vbMsgBoxRight, "ترحيل" End Sub 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبو حنــــين قام بنشر مارس 16, 2014 أفضل إجابة مشاركة قام بنشر مارس 16, 2014 أخي يوسف جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر مارس 16, 2014 الكاتب مشاركة قام بنشر مارس 16, 2014 استاذى الفاضل : منكم نستفيد ونتعلم بارك الله فيك ورزقك الجنة بغير حساب رابط هذا التعليق شارك 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.