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

[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]

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

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


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]

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

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

[shamsololama]

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

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

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

ActiveCell.Value = c

بنویسید

ActiveCell.Value = "=" & c.Address

[MEYTI]

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

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

[shamsololama]

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

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

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

[MEYTI]

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

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