كود لنقل بيانات من خلية الى خلية اخرى بمجرد تغيير قيمة خلية ثالثة

[ابو يحيى1]

اخوانى

هل يوجد كود بسيط لنقل بيانات من خلية A3 الى خلية B6 مثلا بمجرد تغير القيمة الموجود بخلية G1

وتم اضافة ملف للتوضيح

data transfer.xlsx

تم تعديل يونيو 18, 2019 بواسطه ابو يحيى1

[أحمد يوسف]

عليك برفع ملف وشرح المطلوب عليه بكل دقة

[Ali Mohamed Ali]

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("g1").Value <> "" Then
        Range("b6").Value = Range("a3").Value
    End If
    End Sub

 

data transfer.xlsm

[ابو يحيى1]

الله ينور كود شغال تمام ..

ولكن هل يمكن تعديله لينقل بيانات عدد اكبر من الخلايا او خلايا فى ورقة عمل اخرى .

وجزاكم الله خيرا

data transfer.xlsm

[Ali Mohamed Ali]

حدد بالضبط اى الخلايا تريد ؟!

[ابو يحيى1]

كما هى فى المرفق يا استاذنا الفاضل

الخلايا A2 :B3 فى sheet2

مطلوب نقل بياناتها الى خلايا B6:C7 فى Sheet 1

وشكرا

[Ali Mohamed Ali]

تفضل

 

data transfer.xlsm

[ابو يحيى1]

تمام استاذنا الفاضل

شكرا جزيلا على مجهودك الكبير

ولكن الملف الاخير يعمل بدون الشرط ( وجود بيانات فى  G1)

تم تعديل يونيو 18, 2019 بواسطه ابو يحيى1

[Ali Mohamed Ali]

تفضل

 

data transfer.xlsm

[ابو يحيى1]

شكرا استازنا الفاضل

وجزاك الله خيرا