نسخ نطاق وعمل منه تعريف اسمي في شيت اخر

[Persl]

السلام عليكم ورحمة الله وبركاته 

 

احتاج كود في بي أي يقوم بعمل المهام التاليه 

ينسخ نطاق الخلايا  GT300 And GV300 في شيت 1

ويروح باحث في شيت 2 العمود B عن الخليه المشابهة القيمه الخليه في شيت 1 GT291 

وثم يقوم بلصق الخلايا بعد آخر صف

وفي النهايه يحدد نطاق من الخلايا الملصقه من عمود D وحتى آخر إدخال على اليمين ويعمل منه تعريف اسمي Difine name

مثل الصوره التاليه

I need a vba code to do the following  comands:

 

1 - copy range ("GT300") and ("GV300", Selection.End(xlToRight)) from ("Sheet1")

2 - H lookup ("Sheet1") ("GT291") on ("Sheet2").Range("B:B")

3 - Add the copied ranges from ("Sheet1") as new entery on ("Sheet2") based on the H lookup result

4 - Create new defined name from ("Sheet2") last entery from column D to last value on same row , Selection.CreateNames Top:=False, Left:=True, Bottom:=False, Right:=False