[حل شده] اتصال شیت به تکسباکس

[سید مسعود قمی]

[ATTACH] 19658[/ATTACH]
سلام دوستان
همانگونه که در فرم مشخصه میخوام وقتی یکی از آیتم های کمبوباکس انتخاب میشه بیاد داخل شیت1 ستونa دنبال همان آیتم انتخاب شده کمبوباکس بگرده وقتی داخل شیت1 ستون a اون آیتم رو پیدا کرد بیاد ردیف کناریش یعنی ستونb آخرین تعداد خریدشو 1+ کنه بریزه داخل تکس باکس فرم

[M_ExceL]

[ATTACH] 19658[/ATTACH]
سلام دوستان
همانگونه که در فرم مشخصه میخوام وقتی یکی از آیتم های کمبوباکس انتخاب میشه بیاد داخل شیت1 ستونa دنبال همان آیتم انتخاب شده کمبوباکس بگرده وقتی داخل شیت1 ستون a اون آیتم رو پیدا کرد بیاد ردیف کناریش یعنی ستونb آخرین تعداد خریدشو 1+ کنه بریزه داخل تکس باکس فرم

سلام،
کد زیر رو تست کنید :

Private Sub ComboBox1_Change()
Dim d As String
lrow = Cells(Rows.Count, 1).End(3).Row
d = Me.ComboBox1.Text
For i = 1 To lrow
If d = Cells(i, 1).Text Then
f = Cells(i, 1).Row
End If
Next
Me.TextBox1.Value = Cells(f, 2).Value + 1
End Sub

نکته : برخی کلمات بدلیل حرف "ي" شناسایی نمیشن که راه حلش استفاده از کد اسکی هست در فایل پیوست بنده برای دو تا از ایتم های کامبوباکس انجام دادم

[سید مسعود قمی]

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

[M_ExceL]

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

سلام، خواهش میکنم
Text to ASCII code

[سید مسعود قمی]

سلام استاد بازم ممنونم از راهنماییتون
ولی همون کار شما رو کردم و کد اسکی رو جایگزین کلمات 《ی》دار کردم ولی جواب نداد

[M_ExceL]

سلام استاد بازم ممنونم از راهنماییتون
ولی همون کار شما رو کردم و کد اسکی رو جایگزین کلمات 《ی》دار کردم ولی جواب نداد

سلام،
علتش این هست که شما از کد زیر برای حرف "ی" استفاده می کنید :

chr(237)

که در اصل باید از کد زیر استفاده کنید :

chrw(1740)

[سید مسعود قمی]

استاد خیلی خیلی ممنونم مشکلم حل شد