سلام
من خواستم يه vba بنويسم كه برام از ستون اول يه كد منحصر به فردي رو كه بهش ميدم از ستون اول سرچ كنه
اگه وجود داره سلول سمت راستيشو انتخاب كنه و يه كد ديگه بشه توش نوشت
اگه وجود نداره پيغام خطا بده
ولي نتونستم كاملش كنم
خواهش ميكنم راهنماييم كنيد
ممنون
Sub search()
'

Dim kod As Single

kod = InputBox("inter code")

Range("a3:a100").Find(What:=kod, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.Offset(0, 1).Select
InputBox ("number")

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