قفل کردن فایل اکسل

[مجید ایرج]

در فایل پیوست در صورت تغییر در سلولهای ستونA مقدار آن در ستون B درج میگردد

کدهای ذیل را در قسمت کدنویسی شیت مورد نظر وارد کنید

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
    Target.Offset(0, 1).Value = Target.Value
    
    End If
    
    End Sub 

کدی که دوستمون abootorab گفت کار نکرد. حالا یک سوال دارم. همین کدی که شما دادید اگر بخواداینطوری باشه چکار باید کرد؟ :
مثلا A1 رو توی B1 بنویسه. اگر B1 نوشته داشت توی E1بنویسه و اگر E1 هم نوشته داشت بره توی H1 بنویسه و این روند تا مثلا ZZ1 ادامه داشته باشه. یعنی اینکه هر بار توی چندتا سلول جلوتر بنویسه
راجع به سوال قبلی هم اینکه چطور پویا کنمش؟؟ راه حلی هست؟ ممنون از راهنماییاتون