amr_ha2003 قام بنشر مارس 16, 2021 مشاركة قام بنشر مارس 16, 2021 السلام عليكم ارجوا المساعدة فى عمل ترحيل لبعض البيانات حسب شرط معين كما بالمرفقات وشكرا Book2.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 16, 2021 مشاركة قام بنشر مارس 16, 2021 جرب هذا الملف amr.xlsx 2 رابط هذا التعليق شارك More sharing options...
amr_ha2003 قام بنشر مارس 16, 2021 الكاتب مشاركة قام بنشر مارس 16, 2021 جزاك الله خير بعتذر هل هناك طريقة لنقل البيانات من الشيت الاساسي الى نوع القضية بمعني الغاء البيانات من الشيت الاساسي ونقلها الى الشيت الاخر وشكرا رابط هذا التعليق شارك More sharing options...
Mohamed_Fouad قام بنشر مارس 17, 2021 مشاركة قام بنشر مارس 17, 2021 عليكم السلام تفضل يا اخى اتمنى ان اكون فهمت طلبك كما يجب ترحيل بناء على نوع القضية.xlsm 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مارس 17, 2021 أفضل إجابة مشاركة قام بنشر مارس 17, 2021 بعد اذن الاخ محمد عمليات الــــ Copy و الـــ Paste ترهق البرنامج دون اي فائدة (قدر الامكان الابتعاد عتها خاصة في حالة البيانات الكثيرة) Sub Distrebute_data() Dim lr As Long, M As Long Dim Sh As Worksheet, i%, x%, But_Sheet$ Dim AAM As Worksheet Set AAM = Sheets("عام") lr = AAM.Cells(Rows.Count, "A").End(xlUp).Row If lr < 3 Then Exit Sub i = 3 Do Until i = lr + 1 On Error Resume Next But_Sheet = AAM.Cells(i, "G") Set Sh = Sheets(But_Sheet) If Err.Number = 0 Then x = Sh.Cells(Rows.Count, "A").End(xlUp).Row + 1 Sh.Cells(x, 1).Resize(, 9).Value = _ AAM.Cells(i, "a").Resize(, 9).Value End If Error.Clear i = i + 1 Loop AAM.Cells(3, 1).Resize(lr, 9).ClearContents End Sub 1 رابط هذا التعليق شارك More sharing options...
amr_ha2003 قام بنشر مارس 17, 2021 الكاتب مشاركة قام بنشر مارس 17, 2021 جزاكم الله خير رابط هذا التعليق شارك 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.