جستجو و لینک کردن

[MEYTI]

سلام بر دوستان گرام
یه سوال، میخواستم در کد زیر بعد از جستجو وقتی مقدار مورد نظرو پیدا کرد سلول فعال رو لینک کنه به سلوله پیدا شده


With Sheet1.Range("B1:B10000")
If ComboBox1.Text <> "" Then
Set c = .Find(ComboBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)


ActiveCell.Value = c.Offset(0, 0)

[shamsololama]

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


On Error Resume Next
Dim c As Range
If ComboBox1.Text <> "" Then
With Sheet1.Range("B1:B10000")
Set c = .Find(ComboBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)

ActiveCell.Value = c
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=c.Address
End With
End If

در صورتی که از یوزر فرم استفاده نمی کنید و از کمبوباکس در صفحه اکسل استفاده میکنید بصورت زیر خواهد بود

Sub Macro1()
On Error Resume Next
Dim c As Range
If Sheet1.ComboBox1.Text <> "" Then
With Sheet1.Range("B1:B10000")
Set c = .Find(Sheet1.ComboBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)

ActiveCell.Value = c
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=c.Address
End With
End If
End Sub

[MEYTI]

با سلام خدمت استاد گرام
ممنون از وقتی که گذاشتین
مثل اینکه من منظورم و خوب نرسوندم.
میخوام بعد از جستجو و پیدا کردن سلول مورد نظر سلول فعالمون مساوی با اون سلول پیدا شده بشه.
یعنی هر وقت سلول پیدا شده تغییر کرد این سلول هم تغییر کنه.
ممنون

[shamsololama]

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

برای اینکار که مد نظر شماست بجای

ActiveCell.Value = c

بنویسید

ActiveCell.Value = "=" & c.Address

[MEYTI]

ممنون استاد عزیز
شما یک برنامه انبار تو اکسل نوشتید میشه لطف کنید برای من هم ایمیل کنید
یا لینکشو بذارید
ممنون میشم
KARIMI.138@GMAIL.COM

[shamsololama]

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

برنامه انبار کدومش مدنظر شماست توضیح بفرمائید تا بین برنامه ها پیدا کنم براتون بفرستم

[MEYTI]

با سلام
دوست عزیز من برنامه های انبارتون رو ندیدم فقط تو پست چند روز پیش بهش اشاره کردین.
برنامه ای انباری که کامل رسید ،حواله ،فاکتور داشته باشه و بطور غیر مستقیم با فرم ورود و خروج کار کنه
ممنون میشم.