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

**iranweld** · 2017/08/14, 12:33

با سلام

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

فایل های پیوست شده

فایل نمونه.xls (43.0 کیلو بایت, مشاهدات 13)

**ali.b** · 2017/08/14, 12:37

سلام با اين كد هم ميتونيد
و نيازي به كليك 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** · 2017/08/14, 13:10

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

**maziardm** · 2017/08/16, 11:41

نوشته اصلی توسط maziardm

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

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

**Amir Ghasemiyan** · 2017/08/16, 13:35

نوشته اصلی توسط maziardm

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

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

کد:

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