Lấy dữ liệu theo thứ tự lẻ. (4 người xem)

[Kool_Kool]

Chào cả nhà,

Hiện tại với mã bên dưới nó lấy dữ liệu theo thứ tự 1 , 2,3,4,... từ dòng đầu đến dòng kết thúc. Giờ mình chỉ muốn lấy dữ lẻ. Khi bấm bắt đầu đến kết thúc nó chỉ lấy 1,3,5,7,.... Mong cả nhà tư vấn. Xin cám ơn


Sub PrintOT()
If MsgBox("Do you want to print this form ?", vbYesNo, "Well note") = vbYes Then
Else
Exit Sub
End If
Dim bd As Integer, kt As Integer, i As Integer
bd = InputBox("Please input row start.!", "Well note!")
kt = InputBox("Please input row end", "Well note!")
For i = bd To kt Step 1
Sheet1.[E7].Value = Sheet2.Range("C" & (i + 6)).Value
Sheet1.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next i
End Sub

 

[VetMini]

Chắc mình lẩm cẩm quá.
Theo đọc code thì thấy nó bỏ hết dòng đầu tiên đến dòng áp chót, chỉ lấy dòng cuối cùng mà?

 

[Kool_Kool]

Chắc mình lẩm cẩm quá.
Theo đọc code thì thấy nó bỏ hết dòng đầu tiên đến dòng áp chót, chỉ lấy dòng cuối cùng mà?

Vâng. Hiện tại nó bỏ 6 dòng đầu. Ý mình là mình chỉ cần lấy dữ lieu lẻ. Ví dụ khi bấm 1 đến 5 . Nó chỉ lấy 1,3,5 . Tư vấn giúp. cám ơn bạn

 

[VetMini]

For i = bd To kt Step 2
Sheet1.[E7].Offset((i-1)/2,).Value = Sheet2.Range("C" & (i + 6)).Value

 

[Kool_Kool]

For i = bd To kt Step 2
Sheet1.[E7].Offset((i-1)/2,).Value = Sheet2.Range("C" & (i + 6)).Value

Cám ơn Pro đẫ hướng dẫn. Tuy nhiên ý mình là lấy dữ lieu từng lần 1 điền vào ô E7 để in ra từng lần 1 ạ