یافتن کد و قرار دادن مبلغ روبروی آن

[mfr]

با سلام ... دوستان فایلی دارم میخوام وقتی ذخیره رو زدم مبالغ روبروی کدهای پرسنلی در شیت pardakht روبروی کدهای پرسنلشون توی ستون مبلغ ذخیره بشه . فقط تو این قسمت مشکل دارم .. لطفا توسط ماکرو ... بسیار بسیار متشکرم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

از کدهای ذیل استفاده کنید یک قابلیت دیگر هم در فایل شما گنجانده شده است پیدا کردنش با شما

Sub TEST()

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
Z2 = Sheet2.Cells(Sheet2.Rows.Count, "C").End(xlUp).Row

For I = 1 To Z1
For J = 2 To Z2




If Range("B" & I).Value = Sheet2.Range("C" & J).Value And Sheet2.Range("B" & J).Value = Sheet1.Range("H3").Value Then

Sheet2.Range("A" & J).Value = Sheet1.Range("A" & I).Value


End If
Next: Next

End Sub 

[mfr]

بینهایت ممنونم ... خیلی خیلی ...

[iranweld]

با سلام

توسط رویدادها در اکسل در صورت تغییر در سلول h3 شیت اول ماکروی test1 فراخوان میگردد که در شیت دوم هر پرسنلی که کد مشابه H3 دارد را در شیت اول لیست مینماید

در تصاویر پیوست محل قرارگیری این کدها مشخص است

[mfr]

ممنونم متوجه شدم

[mfr]

ولی یه مشکلی که هست h3 به جای دیگه ای لینکه و قفل شده روی چه حالتی تنظیم کنم که به محض تغییرش عمل کنه

[iranweld]

فعلا این کد را در شیت اول جایگزین کنید
فقط پس از تغییر یک بار با موس روی H3 یکبار کلیک کنید تا عمل کند

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Me.Range("H3")) Is Nothing Then

On Error Resume Next
TEST1
End If
On Error GoTo 0
End Sub 

[mfr]

نمیخوام اینطور باشه .