mahmoud hamza قام بنشر سبتمبر 29, 2018 مشاركة قام بنشر سبتمبر 29, 2018 (معدل) اريد الترحيل من الشيت main بدون حذف البيانات منه وبدون التكرار فى الشيتات الاخرى المطلوب داخل المرفق .. ارجو المساعدة الضرورية اخوانى لان الموضوع هام جدا جدا أجندة محامى (Autosaved).xlsm تم تعديل سبتمبر 29, 2018 بواسطه mahmoud hamza رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر سبتمبر 29, 2018 مشاركة قام بنشر سبتمبر 29, 2018 تفضل اخى الكريم أجندة محامى (Autosaved).xlsm 1 1 رابط هذا التعليق شارك More sharing options...
mahmoud hamza قام بنشر سبتمبر 29, 2018 الكاتب مشاركة قام بنشر سبتمبر 29, 2018 (معدل) شكرا لك أخى اذا اردت اضافه شيتات اخرى وعند الترحيل يقوم بتكرار القيم فى الشيتات الجديدة كيف يمكن اضافه شيتات جديدة وتكون على هذا المنوال اريد ترحيل العمود k - L بتنسيق short date عمل رائع جزاك الله كل خير تم تعديل سبتمبر 29, 2018 بواسطه mahmoud hamza رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر سبتمبر 29, 2018 مشاركة قام بنشر سبتمبر 29, 2018 (معدل) Option Explicit Sub TARHIL() Dim Sh As String Dim i As Integer Dim AA As Integer '====================================================== Application.ScreenUpdating = False Sheets("جنح").Range("A2:O1000").ClearContents Sheets("مدنى").Range("A2:O1000").ClearContents 'يمكنك فى هذا الجزء اضافة اى شيت اخر جديد على نفس هذه الطريقة الموجودة '====================================================== For i = 2 To Cells(10000, "A").End(xlUp).Row Sh = Cells(i, "D").Value AA = Sheets(Sh).Cells(10000, 1).End(xlUp).Row + 1 If AA < 2 Then AA = 2 On Error Resume Next Range(Cells(i, "A"), Cells(i, "O")).Copy Sheets(Sh).Range("A" & AA).PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets(Sh).Cells(AA, "A").Value = Sheets(Sh).Cells(AA, "A").Row - 1 Next i Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح" End Sub تم تعديل سبتمبر 29, 2018 بواسطه ali mohamed ali 1 1 رابط هذا التعليق شارك More sharing options...
mahmoud hamza قام بنشر سبتمبر 29, 2018 الكاتب مشاركة قام بنشر سبتمبر 29, 2018 (معدل) جزاك الله كل خير .. هو المطلوب تمام اريد ترحيل العمود K - L بتنسيق short date وهل توجد امكانية الترحيل على هذا المنوال بأول كلمة فى نص .. بدلاً من ان تكون كلمة واحدة فى كل خلية يمكن اضافه اعمده .. ام لن بعمل الكود تم تعديل سبتمبر 29, 2018 بواسطه mahmoud hamza رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر سبتمبر 29, 2018 مشاركة قام بنشر سبتمبر 29, 2018 'واذا اردت الترحيل من العمود K : L فقط 'عليك بتغيير هذا الصف فى الكود Range(Cells(i, "A"), Cells(i, "O")).Copy 'وجعله هكذا Range(Cells(i, "K"), Cells(i, "L")).Copy 1 رابط هذا التعليق شارك More sharing options...
mahmoud hamza قام بنشر سبتمبر 29, 2018 الكاتب مشاركة قام بنشر سبتمبر 29, 2018 لا يا سيدى اريد نفس كود الترحيل هذا ولكن العمودين K - l فقط يتم ترحيلهم بتنسيق تاريخ واذا اردت انا اضيف اعمده جديدة اقوم بالتعديل فى الجزء اللى حضرتك بعته رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان