Snasui Excel Forum

Code: Select all

Sub AutoPrintSlip2()

Dim i As Integer
    Sheet2.Activate
    
    i = X
        Do Until Range("A" & i).Value = "X"
        Sheet2.Range("A" & i).Select
        
        Sheet1.Range("C7").Value = Sheet2.Range("A" & i).Value
    i = i + 1
        Sheet6.PrintOut
       
    Loop
        
     MsgBox "พิมพ์สลิปเงินเดือนตามช่วงที่กำหนดเสร็จแล้ว"

End Sub

Code: Select all

Sub AutoPrintSlip2()

    Dim i As Integer
    
    Sheet2.Activate
    
    For i = Sheet1.Range("k16").Value To Sheet1.Range("k17").Value
'    i = X
'    Do Until Range("A" & i).Value = ""
'
'        Sheet2.Range("A" & i).Select
        
'        Sheet1.Range("C7").Value = Sheet2.Range("A" & i).Value
'        i = i + 1
        Sheet1.Range("c7").Value = i
        Sheet6.PrintOut
        
'    Loop
    Next i
        
    MsgBox "พิมพ์สลิปเงินเดือนตามช่วงที่กำหนดเสร็จแล้ว!!"

End Sub