پرسش قفل کردن سلول ها

[میثم مقدم نیا]

سلام

یه سوالی دارم در مورد قفل کردن سلول ها لطفا راهنماییم کنید

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

با این تفاوت که اگر سلول A2 کد پرسلنی را زدم سلول B2 که نام نفرات هست قفل بشه (سلول B2 با دستور Vlookup فراخوانی میشود)

یعنی وقتی من سلول A2 را حذف کردم دیگر اطلاعات سلول B2 پاک نشود

[میثم مقدم نیا]

سلام
دوستان و اساتید محترم آیا این کار با کمک ماکرو نویسی شدنی است یا نه؟
منتظرکمک باشم یا این کار شدنی نیست و موضوع را ببندم.
با سپاس از کمک های شما

[generalsamad]

با سلام
اگه فرمول ستون b پاک بشه مشکلی هست؟ (کار فراخوانی هم انجام میشود)

[generalsamad]

این کد رو تست کنید

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1:A1000")) Is Nothing Then
        On Error Resume Next
        If Target <> "" Then
            tr = Target.Row
            Sheet2.Range("B" & tr) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(Sheet2.Range("a" & tr), Sheet1.Range("A:b"), 2, 0), "")
        End If
End If
End Sub 

[میثم مقدم نیا]

با سلام
اگه فرمول ستون b پاک بشه مشکلی هست؟ (کار فراخوانی هم انجام میشود)

آیا این کار بدون حذف فرمول امکان پذیر نیست؟


یه سوال دیگه
تو یکی از سوالات دیدم با پاک کردن سلول رنگش قرمز میشود که آقای پارسایی پاسخ داده بودن
ولی با پر کردن مجدد رنگش برمیگش اگه بشه کاری کرد که رنگ سلول ثابت بمونه یکم کار من و راه میندازه

[generalsamad]

همانطور که میدانید اگه فرمولی را نوشته باشید که اطلاعات را بر اساس یک سلول فراخوانی کند به محض پاک شدن آن سلول قاعدتا باید مقدار فراخوانی نیز پاک شود
در کد بالایی که قرار دادم کار فراخوانی انجام میشود و اطلاعات ستون b در سطری متناظری که ما اطلاعات را وارد میکنیم اطلاعات ستون b بعد از فراخوانی تبدیل به value میشود و بعد از پاک کردن اطلاعات ستون a مقادیر ستون b پاک نخواهد شد