با سلام
با استفاده از ماکرو ذیل میتوانید دیتای مورد نظر را در شیت سوم ثبت نمایید
کد PHP:
Sub test()
Z3 = Sheet3.Cells(Sheet3.Rows.Count, "c").End(xlUp).Row + 1
Dim list1 As New Collection
list1.Add Range("B10")
list1.Add Range("B11")
list1.Add Range("I2")
list1.Add Range("H5")
list1.Add Range("H7")
list1.Add Range("L5")
list1.Add Range("L6")
list1.Add Range("L7")
list1.Add Range("L8")
list1.Add Range("O5")
list1.Add Range("O6")
list1.Add Range("O7")
list1.Add Range("O8")
list1.Add Range("N14")
'===˜í ÏÑ ÔíÊ ãÞÕÏ==='
For I = 1 To list1.Count
Sheet3.Cells(Z3, I) = list1.Item(I)
Next
MsgBox ". ثبت شد"
End Sub
علاقه مندی ها (Bookmarks)