H HIẾU98HY New Member Hội viên mới 11/7/22 #1 Sub in_1() Dim i As Integer i = 190 For i = 190 To 392 Step 0 ThisWorkbook.Sheets(39).Cells(4, 17) = ThisWorkbook.Sheets(13).Cells(i, 1) ThisWorkbook.Sheets(39).PrintOut preview = False i = i + 1 Next End Sub
Sub in_1() Dim i As Integer i = 190 For i = 190 To 392 Step 0 ThisWorkbook.Sheets(39).Cells(4, 17) = ThisWorkbook.Sheets(13).Cells(i, 1) ThisWorkbook.Sheets(39).PrintOut preview = False i = i + 1 Next End Sub