انتقال خودکار از یک سلول به سلول در شیت دیگر

[maziardm]

با سلام و روز خوش
قصد دارم که با توجه به درج شماره صورتحساب در شیت 2 به صورت خودکار به شیت 1 که حاوی اطلاعات صورتحساب ها می باشد بروم. به همین دلیل یک فایل نمونه گذاشتم و در اون شرح خواسته ام رو بیان کردم. منتظر راهنمایی شما عزیزان هستم.
با تشکر

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید

[ali.b]

سلام با اين كد هم ميتونيد
و نيازي به كليك d1 ندارد وقتي تو c1 بنويسيد خودكار به شيت 1 و ايتم مورنظر انتخاب ميشه

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cl As Range
If Target.Address = "$C$1" Then
Sheet1.Select
With Sheet1.Cells
Set cl = .Find(Sheet2.Range("C1"), After:=.Range("b2"), LookIn:=xlValues)
If Not cl Is Nothing Then
cl.Select
End If
End With
End If
End Sub

اين كد رو بخش كدهاي مختص شيت 2 وارد كنيد.

[maziardm]

سلام و تشکر از پاسخ دوستان
موراد بالا صحیح عمل کرد. حال سوال اینجاست که با از تابع هایپرلینک در این موراد نمی شد استفاده کرد. محض اطلاع می خواستم بدونم.
با تشکر

[maziardm]

سلام و تشکر از پاسخ دوستان
موراد بالا صحیح عمل کرد. حال سوال اینجاست که با از تابع هایپرلینک در این موراد نمی شد استفاده کرد. محض اطلاع می خواستم بدونم.
با تشکر

سلام مجدد؟
پاسخی نیست؟؟

[Amir Ghasemiyan]

سلام و تشکر از پاسخ دوستان
موراد بالا صحیح عمل کرد. حال سوال اینجاست که با از تابع هایپرلینک در این موراد نمی شد استفاده کرد. محض اطلاع می خواستم بدونم.
با تشکر

چرا دوست عزیز
اگر شماره صورتحساباتون یکتا باشه و تکراری نداشته باشه این فرمول جواب میده



=hyperlink("#صورتحساب!b"&match(c1,صورتحساب!b1:b12,0),b1&c1)

[maziardm]

چرا دوست عزیز
اگر شماره صورتحساباتون یکتا باشه و تکراری نداشته باشه این فرمول جواب میده


با سلام مجدد
شماره صورتحساب تکراری نیست. یعنی هر ردیف یک شماره صورتحساب.
با تشکر

[Amir Ghasemiyan]

با سلام مجدد
شماره صورتحساب تکراری نیست. یعنی هر ردیف یک شماره صورتحساب.
با تشکر

پس جواب میده

لطفا اگر پاسخ سوالتون رو دریافت کردین تاپیک رو حل شده کنید