commandos1975 قام بنشر يونيو 12, 2020 مشاركة قام بنشر يونيو 12, 2020 اضافة كود لماكرو يرحل البيانات من الصفحة الحالية الي صفحة البيانات مع امكانية التعديل والبحث من خلال هذة الصفحة الاخ الفاضل نقل البيانات من الصفحة الاولي الي الصفحة الثانية في نفس الترتيب في جدول ddff.xlsm رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر يونيو 12, 2020 مشاركة قام بنشر يونيو 12, 2020 حدد ما هو المدى الذي تريد ترحيله كان عليك تصميم يوزفورم حتى نفهم اكثر رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يونيو 13, 2020 أفضل إجابة مشاركة قام بنشر يونيو 13, 2020 لا حاجة للتسلسل الرقمي للبيانات لأن اكسل يدرجها اوتوماتيكياً الكود Option Explicit Sub tRANSfERE_DATA() Dim M As Worksheet, D As Worksheet Dim Arr_D, Arr_H, Lr_D As Long Dim rg As Range Set M = Sheets("main"): Set D = Sheets("data") Set rg = D.Range("B3", Range("B2").End(4)) Lr_D = rg.Rows.Count If Lr_D > 10000 Then Lr_D = 3 Else Lr_D = D.Range("B3").Offset(Lr_D).Row End If Arr_D = Application.Transpose(M.Range("D3:D6")) Arr_H = Application.Transpose(M.Range("H3:H12")) D.Cells(Lr_D, 2) = Lr_D - 2 D.Cells(Lr_D, 3).Resize(, UBound(Arr_D)) = Arr_D D.Cells(Lr_D, "G").Resize(, UBound(Arr_H)) = Arr_H End Sub الملف مرفق Commandos.xlsm 3 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يونيو 13, 2020 مشاركة قام بنشر يونيو 13, 2020 commandos1975 أين الضغط على الإعجاب لهذا الكود الممتاز , بارك الله فيك استاذ سليم ؟!!!💙 رابط هذا التعليق شارك 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.