جستجو و ورود داده

[4017]

سلام
من خواستم يه 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

[4017]

RE: جستجو و ورود داده

سلام
كسي از اساتيد نميخواد يه كمكي بكنه؟بخدا ثواب داره

[shamsololama]

RE: جستجو و ورود داده

با درود فراوان

این کد رو امتحان کن
ولی نگفتی چقدر ثواب داره


Sub jostejoo()

Dim c As Range
Dim kod2
Dim fin As Integer
fin = 0
Dim kod As Single
kod = InputBox("inter code")
'
For Each c In Range("A3:A100")
If c = kod Then
fin = 1
GoTo point1:
End If
Next
point1:
If fin = 0 Then
MsgBox "این کد در لیست موجود نیست"
Else

kod2 = InputBox("مقدار سل روبروی کدبرابر است با=" & c.Offset(0, 1))
c.Offset(0, 1) = kod2
End If
End Sub

[4017]

RE: جستجو و ورود داده

سلام
دستتون درد نكنه استاد
ثوابش انقدر زياده كه با هيچ ماكرو و تابعي نميشه حسابش كرد
بازم ممنونم از لطفتون
من چيكاركنم كه اكسلم مثل شما قوي بشه؟
از كجا بايد شروع كنم؟

[runmohsen]

RE: جستجو و ورود داده



این کد رو وقتی در وی بی وارد کردیم در کدام سلول داده خودمون رو واد کنیم تا جواب بده

[shamsololama]

RE: جستجو و ورود داده

با درود فراوان
در انیپود باکس اول داده ای که می خواهیم در لیست جستجو شود را وارد میکنیم و در اینپود باکس دوم دیتا جدیدی که می خواهیم جلوی آن وارد شود را وارد می کنیم

اگر می خواهید اکسل شما قوی شود فقط باید شروع کنید یعنی همین کاری که الان انجام داده اید

[4017]

RE: جستجو و ورود داده

داداش فقط يه مشكل
اگه اون سلول كناريش عدد داشته باشه و من خونه رو خالي بذارم اون عدد كناريش حذف ميشه و خونه خالي ميشه
واسه اين يه راه حل جديد ميدي؟