Armia Nabil قام بنشر مايو 20, 2023 مشاركة قام بنشر مايو 20, 2023 اريد معادله او كود vba ترحل من الشيت الاول الي الشيت التاني حسب التاريخ ترحيل اعمده اليوم الي الصفحه التانيه حسب التاريخ وشكرااا Book1.xlsx رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مايو 21, 2023 مشاركة قام بنشر مايو 21, 2023 Sub test() Dim a, x, w Dim i&, ii& Dim r As Range a = Sheets("sheet1").Cells(1).CurrentRegion With CreateObject("scripting.dictionary") For i = 2 To UBound(a) For ii = 2 To UBound(a, 2): x = IIf(x = "", a(i, ii), x & "|" & a(i, ii)): Next If Not .exists(a(i, 1)) Then .Add a(i, 1), x: x = "" Else .Item(a(i, 1)) = .Item(a(i, 1)) & "#" & x: x = "" End If Next Application.ScreenUpdating = False Application.DisplayAlerts = False For Each x In .keys Set r = Sheets("sheet2").Cells.Find(x, , , 1).Cells x = Split(.Item(x), "#") With Sheets("sheet2") With r.Offset(, 1).Resize(UBound(x)) .Value = Application.Transpose(x) .TextToColumns r.Offset(, 1), 1, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(7, 1)) End With: End With Next End With Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Book1.xlsm رابط هذا التعليق شارك More sharing options...
Armia Nabil قام بنشر مايو 21, 2023 الكاتب مشاركة قام بنشر مايو 21, 2023 الف شكر لتعبك بس البيانات بتعه مثلا يوم 1\5 6 اسطر مرحله 5 فقط لو تم اضافه بيانات وتواريخ تاني بيقولي خطا الف شكر لتعبك رابط هذا التعليق شارك More sharing options...
أفضل إجابة محي الدين ابو البشر قام بنشر مايو 21, 2023 أفضل إجابة مشاركة قام بنشر مايو 21, 2023 (معدل) عذراً خطأ طباعي Book1.xlsm تم تعديل مايو 21, 2023 بواسطه محي الدين ابو البشر 2 1 رابط هذا التعليق شارك More sharing options...
Armia Nabil قام بنشر مايو 21, 2023 الكاتب مشاركة قام بنشر مايو 21, 2023 الف شكرررررررر لحضرتك رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مايو 22, 2023 مشاركة قام بنشر مايو 22, 2023 بارك الله رابط هذا التعليق شارك More sharing options...
كمال على طارق قام بنشر مايو 22, 2023 مشاركة قام بنشر مايو 22, 2023 Armia Nabil عنوان مخالف جداً لابد من تعديل وتغيير عنوان المشاركة ليعبر عن طلبك وحتى يسهل البحث بالمنتدى مستقبلاً لمن له مث طلبك !!! رابط هذا التعليق شارك 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.