کدی که بتونم بجای این استفاده کنم چیهRange("ao1").Cells(x, 1) = CLng(TextBox11)

[mehey]

کدی که بتونم بجای این استفاده کنم چیه

Range("ao1").Cells(x, 1) = CLng(TextBox11)

مشکل اینه که وقتی از این کد استفاده می کنم باید همه تکس باکس هایی که این کد رو دارن پر باشه ولی من نیاز ندارم همه تکس باکسها تکمیل بشه
با تشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mehey]

On Error GoTo ErrorHandler
Range("ev1").Cells(x, 1) = CLng(TextBox54)
Exit Sub
ErrorHandler:
    Resume Next

مشکلم برطرف شد اومدم خطاشو با این کد غیر فعال کردم