متخصص های vba راهنمایی کنند لطفا

[msedaghat]

با سلام
یه کد دارم که می خوام خط به خطش چیکار میکنه
ممنون
Sheet1.Range("AC2").Value = TextBox2.Text
Sheet1.Range("AD2").Value = TextBox3.Text
Sheet1.Range("AE2").Value = TextBox4.Text
Sheet1.Range("AF2").Value = TextBox5.Text
Sheet1.Range("AG2").Value = sum


Sheet1.Range("AK2").Value = TextBox6.Text
Dim code As String
code = Sheet1.Range("AA1").Value
Dim radif As String
radif = Sheet1.Range("B2:B10000").Find(code).Offset(0, -1).Value
Sheet1.Range("AN1").Value = radif


Sheet1.Range("AN1:AZ1").Copy
Dim rngr As Range
Set rngr = Sheet1.Range("B2:B10000").Find(code, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=True).Offset(0, -1)
rngr.Select
Selection.PasteSpecial xlPasteValues


TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""


Application.Run "locking", Sheet1
MsgBox ("ËÈÊ ÏÑ ÑÏíÝ ÔãÇÑå " & radif & "ÇäÌÇã ÔÏ")
Unload Me

[s.cheraghi]

سلام
کدتون رو توی یک ماژول بذارین و از خط اول Break Point بذارین. بعد از اجرای برنامه، در نقطه ای که Break Point رو گذاشتین برنامه توقف میکنه و شما میتونین تغییرات ایجاد شده رو بررسی کنید. در ادامه هم با F8 خط به خط برنامه رو جلو ببرین
موفق باشین