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
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