حسين احمد مانع قام بنشر نوفمبر 22, 2021 مشاركة قام بنشر نوفمبر 22, 2021 السلام عليكم ارغب بترحيل البيانات الملونه بالرمادي الى الداتا مفرقه الى سطر واحد ولكم كل الشكر والتقدير TEST.xlsm رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر نوفمبر 22, 2021 مشاركة قام بنشر نوفمبر 22, 2021 السلام عليكم ورحمة الله استخدم هذا الكود Sub Transfer() Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant Set ws = Sheets("vi") Set Sh = Sheets("DATA") Arr = Array(ws.Range("B3"), ws.Range("C7"), ws.Range("A6")) Sh.Range("B4").Resize(, 3) = Arr End Sub 2 رابط هذا التعليق شارك More sharing options...
حسين احمد مانع قام بنشر نوفمبر 22, 2021 الكاتب مشاركة قام بنشر نوفمبر 22, 2021 ربي يسعدك ويحفظك ممكن لو اضيف جديد يضاف تحت القديم بسطر جديد لانه الكود يغسر مايضيف جديد انا اسف استاذي رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر نوفمبر 22, 2021 أفضل إجابة مشاركة قام بنشر نوفمبر 22, 2021 السلام عليكم ورحمة الله استخدم الكود التالى بدلا من الكود السابق Sub Transfer() Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, LR As Long Set ws = Sheets("vi") Set Sh = Sheets("DATA") LR = Sh.Range("B" & Rows.Count).End(3).Row + 1 Arr = Array(ws.Range("B3"), ws.Range("C7"), ws.Range("A6")) Sh.Range("B" & LR).Resize(, 3) = Arr End Sub 2 رابط هذا التعليق شارك More sharing options...
حسين احمد مانع قام بنشر نوفمبر 23, 2021 الكاتب مشاركة قام بنشر نوفمبر 23, 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.