نقل بيانات عمودين إلى عمود آخر مع الفرز التصاعدي

[علي الرويلي]

الاخوه الاعزاء لدي شيت فية جدولين ارجو المساعدة في نقل بيانات عمود من كل جدول الى عمود اخر مع الفرز التصاعدي من الاصغر الى الاكبر

اما بمعادلة او كود ولكم وافر الامتنان والشكر

 

المرفق يوضح اكثر

نقل عمودين الى عمود اخر.xlsm

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

اي جدول في الاكسل يجب الا يكون فيه خلايا مدمجة

تم اضافة سطر فارغ رقم 2 لازالة الدمج

 

Option Explicit
Sub TWO_IN_ONE()
Dim RD As Range, RK As Range
Range("M2").CurrentRegion.Clear
Set RD = Range("d3").CurrentRegion.Columns(3)
Set RK = Range("K3").CurrentRegion.Columns(3)
  With Range("M2").Resize(RD.Rows.Count)
    .Value = RD.Value
    .Offset(RD.Rows.Count).Resize(RK.Rows.Count) = _
    RK.Value
  End With
  With Range("M2").CurrentRegion
    .Sort Range("M2"): .Interior.ColorIndex = 6
    .Borders.LineStyle = 1: .Font.Bold = True
  End With
End Sub

الملف مرفق

 

COPY_2 iN 1.xlsm

[علي الرويلي]

شكرا من الاعماق استاذنا القدير سليم الله يجعلك دووووم سليم من الهم والكدر الضجر والامراض

تقريبا هذا المطلوب بس لي عشم لو امكن تكون النتيجة تلقائية بدون عمل زر لان لدي 16 ورقة مشابههة 

ولك مني وافر الامتنان والشكر