ما هي المشكلة في هذا الكود

[اشرف النعاس]

ما هي المشكلة في هذا الكود لماذا لا يشتغل 

lastrow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1

For t = 1 To lastrow

If TextBox2.Text = Sheet2.Cells(t, 1).Text Then

Sheet2.Cells(t, 9).Value = 98

 

End If

Next

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / اشرف النعاس

بارك الله فيك

الكود يقوم بالمطلوب بكفاءة ولا اعلم اين الخطأ الذي تقصده

ودائما اخي الكريم عند وضع موضوع جديد

قم بارفاق ملف لتوضيح المطلوب كما تريد

وان لم يعمل معك الكود قم بارفاق ملف كمثال للمشكلة الموجودة

تقبل خالص تحياتي

 

شاهد المرفق

2003

 

Book3333.rar