Excel Forum

Code: Select all

Sub create_customrt()
Dim r2 As Integer

r2 = WorksheetFunction.CountA(Sheets("customrt").Range("A:A")) + 1

If category = "¢ÒÂ" And total < Sheets("Input_Customer").Range("C9") Then
    MsgBox "ÊÔ¹¤éÒÁըӹǹäÁè¾Í¢ÒÂ"
Else
    Sheets("customrt").Range("A" & r2) = r2 - 1
    Sheets("customrt").Range("B" & r2) = Date & " " & Time
    Sheets("customrt").Range("C" & r2) = Sheets("Input_Customer").Range("B6")
    Sheets("customrt").Range("D" & r2) = Sheets("Input_Customer").Range("B7")
    Sheets("customrt").Range("E" & r2) = Sheets("Input_Customer").Range("B8")
    Sheets("customrt").Range("F" & r2) = Sheets("Input_Customer").Range("B9")
    Sheets("customrt").Range("G" & r2) = Sheets("Input_Customer").Range("B10")
       
        
    Sheets("Input_Customer").Range("B6:B10").ClearContents
End If

End Sub