المساعدة بترحيل البيانات

[commandos1975]

اضافة كود لماكرو يرحل البيانات من الصفحة الحالية الي صفحة البيانات مع امكانية التعديل والبحث من خلال هذة الصفحة

الاخ الفاضل نقل البيانات من الصفحة الاولي الي الصفحة الثانية في نفس الترتيب في جدول

ddff.xlsm

[عبدالفتاح في بي اكسيل]

حدد   ما  هو  المدى  الذي   تريد   ترحيله  كان  عليك  تصميم  يوزفورم  حتى  نفهم  اكثر 

[سليم حاصبيا]

لا حاجة للتسلسل الرقمي للبيانات  لأن اكسل يدرجها اوتوماتيكياً

الكود

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

[أحمد يوسف]

commandos1975

أين الضغط على الإعجاب لهذا الكود الممتاز , بارك الله فيك استاذ سليم ؟!!!💙