کد vba انتقال کد از یک شیت به شیت دیگر ؟

**ali.b** · 2017/04/17, 15:17

سلام
اینو اضافه کنید

کد:

Private Sub CBox2_Change()
Dim c As Range
For Each c In Sheet7.Range("b3:b6")
If CBox2.Text = c Then TextBox1.Value = c.Offset(0, -1)
Next c
End Sub

**ne&in** · 2017/04/17, 15:22

نوشته اصلی توسط ali.b

سلام
اینو اضافه کنید

کد:

Private Sub CBox2_Change()
Dim c As Range
For Each c In Sheet7.Range("b3:b6")
If CBox2.Text = c Then TextBox1.Value = c.Offset(0, -1)
Next c
End Sub

با سلام و احترام
ممنونم از پاسخ خوبتون فقط میاره کد هزینه رو ولی در کد ثبت چی اضافه کنم این کدی که آورده رو ثبت کنه؟

**ne&in** · 2017/04/17, 15:48

با سلام و احترام
با یک خط کد ادرسی با افست به کد در شیت مورد نظر در ثبت فرم درست شد ...ممنونم

🖤 پیام تسلیت