اخى تامر
الخطأ الاول
ii = Sheet1.Range("g1").Value
وذلك الخطأ يحدث لان اسماء الشيتات عندك باللغه العربيه
وبذلك يكون الكود صحيح على النحو الاتى
ii = ورقة1.Range("g1").Value
وبذلك قم بتغير
كل ما هو مسمى فى الكود ب Sheet1
الى ورقه1
الخطأ الثانى
With sheet3
قم بتغير الكود الى
With ورقة2
وبذلك قم بتغير
كل ما هو مسمى فى الكود ب Sheet3
الى ورقه2
-------------
ملحوظه
قم بتغير هذا السطر الى
If Sheet1.Range("l2").Value = "" Then: Exit Sub
الى
If ورقة1.Range("G1").Value = "" Then: Exit Sub
للاستفاده يمكنك متابعة الرابط الاتى
تقبل تحياتى