Excel Forum

Code: Select all

Sub พิมพ์และบันทึก()

If Worksheets("ทำรายการ").Range("C8") > 0 Then
Dim x As Integer
           x = MsgBox("มีค่าปรับต้องการพิมพ์ต่อใช่หรือไม่", vbYesNo)
           If x = vbNo Then
           Sheets("·ทำรายการ").Range("C8").Select
    Else
    Sheets("ใบเสร็จ¨").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
     End If
    End If
    Sheets("ทำรายการ").Select
    Range("C4").Select
    Sheets("ทำรายการ").Range("C4").Copy
    With Sheets("เก็บข้อมูล")
        .Range("B" & .Range("B" & Rows.Count).End(xlUp).Row).Offset(1, 0).PasteSpecial xlPasteValues
    End With
    Range("C4").Select
ActiveWorkbook.save
End Sub

Code: Select all

Sub ¾ÔÁ¾ìáÅкѹ·Ö¡()

'If Worksheets("·ÓÃÒ¡ÒÃ").Range("C8") > 0 Then ยกเลิกอันนี้
Dim x As Integer
           x = MsgBox("ÁÕ¤èÒ»ÃѺµéͧ¡ÒþÔÁ¾ìµèÍãªèËÃ×ÍäÁè", vbYesNo)
           If x = vbNo Then
           Sheets("·ÓÃÒ¡ÒÃ").Range("C8").Select
    Else
    Sheets("ãºàÊÃç¨").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
     End If
  '  End If ยกเลิกอันนี้
    Sheets("·ÓÃÒ¡ÒÃ").Select
    Range("C4").Select
    Sheets("·ÓÃÒ¡ÒÃ").Range("C4").Copy
    With Sheets("à¡çº¢éÍÁÙÅ")
        .Range("B" & .Range("B" & Rows.Count).End(xlUp).Row).Offset(1, 0).PasteSpecial xlPasteValues
    End With
    Range("C4").Select
ActiveWorkbook.Save
End Sub

Code: Select all

Sub พิมพ์และบันทึก()

If Worksheets("ทำรายการ").Range("C8") > 0 Then
	Dim x As Integer
        x = MsgBox("มีค่าปรับต้องการพิมพ์ต่อใช่หรือไม่", vbYesNo)
        If x = vbNo Then
           	Sheets("·ทำรายการ").Range("C8").Select
    	Else
    		Sheets("ใบเสร็จ¨").Select
    		ActiveWindow.SelectedSheets.PrintOut Copies:=1
     	End If
 Else
     	Sheets("ใบเสร็จ¨").Select
     	ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
    Sheets("ทำรายการ").Select
    Range("C4").Select
    Sheets("ทำรายการ").Range("C4").Copy
    With Sheets("เก็บข้อมูล")
        .Range("B" & .Range("B" & Rows.Count).End(xlUp).Row).Offset(1, 0).PasteSpecial xlPasteValues
    End With
    Range("C4").Select
ActiveWorkbook.save
End Sub

Code: Select all

Sub พิมพ์และบันทึก()
If Worksheets("ทำรายการ").Range("C8") > 0 Then
Dim x As Integer
           x = MsgBox("มีค่าปรับต้องการพิมพ์ต่อใช่หรือไม่", vbYesNo)
           If x = vbNo Then
           Sheets("ทำรายการ").Range("C8").Select
    Else
    Sheets("ใบเสร็จ").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    End If
     Else
     If Worksheets("ทำรายการ").Range("C8") = 0 Then
         Sheets("ใบเสร็จ").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    End If
    End If
    Sheets("ทำรายการ").Select
    Range("C4").Select
    Sheets("ทำรายการ").Range("C4").Copy
    With Sheets("เก็บข้อมูล")
        .Range("B" & .Range("B" & Rows.Count).End(xlUp).Row).Offset(1, 0).PasteSpecial xlPasteValues
    End With
    Range("C4").Select
ActiveWorkbook.Save
End Sub