الشافعي قام بنشر سبتمبر 14, 2018 مشاركة قام بنشر سبتمبر 14, 2018 المطلوب عند الضغط على زر (نقل البيات ) في شيت رقم واحد ينقل قيم الخلايا الى شيت رقم 2 وبالضغط مره اخرى على زر نقل البيانات يكرر نفس العملية ولكن تحت البيانات المنقولة في المرة السابقة ترحيل بشرط.xlsx رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر سبتمبر 14, 2018 مشاركة قام بنشر سبتمبر 14, 2018 اخى الكريم لماذا البيانات غير مرتبة فى الشيتين واى نطاق تريد نقله من شيت 1 الى شيت 2 ؟ رجاءا شوية تفاصيل ومن فضلك لا تقوم بتكرار المشاركة حتى لا يتم تشتيت الأساتذة والإمتناع عن الرد ولو ممكن حذف مشاركة من المشاركتين نكون شاكرين لحضرتك جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الشافعي قام بنشر سبتمبر 14, 2018 الكاتب مشاركة قام بنشر سبتمبر 14, 2018 شكرا للنصيحة تم ترتيب البيانات احتاج الكود ترحيل .xlsx اريد نقل بيانات الخلايا الممثلة لها من الشيت الاول الى الشيت الثاني رابط هذا التعليق شارك More sharing options...
الشافعي قام بنشر سبتمبر 14, 2018 الكاتب مشاركة قام بنشر سبتمبر 14, 2018 كيف اعمل تكرار تعديل.xlsx رابط هذا التعليق شارك More sharing options...
الشافعي قام بنشر سبتمبر 14, 2018 الكاتب مشاركة قام بنشر سبتمبر 14, 2018 (معدل) انا عندي الكود هذا لكن كيف اخليه ينقل بيانات العميل والمتضامن مع بعض من الشيت رقم 1 الى الشيت رقم2 تحت بعض في وليس جنب بعض Sub custm() Dim v, vv Dim Sh1 As Worksheet, Sh2 As Worksheet Dim Lr As Integer, i As Integer Set Sh1 = Sheets("InitialOffer") Set Sh2 = Sheets("Customers") vv = Array("C11", "H12", "", "C12", "J14", "J16", "J18", "J20", "L20", "j22", "j24", "P18", "P24", "P34", "J30", "J32", "J34", "J36", "J38", "J40", "J44", "J46", "J54", "P40", "J58", "J60", "J62", "J66", "J70") Lr = Sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For Each v In vv i = i + 1 If Not IsError(Sh1.Evaluate(v)) Then Sh2.Cells(Lr, i).Value = Sh1.Range(v).Value End If Next Set Sh1 = Nothing: Set Sh2 = Nothing End Sub تم تعديل سبتمبر 14, 2018 بواسطه الشافعي رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر سبتمبر 20, 2018 مشاركة قام بنشر سبتمبر 20, 2018 تفضل اخى الكريم تعديل.xlsm رابط هذا التعليق شارك 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.