Excel Forum

Code: Select all

Sub Macro3()
'
' Macro3 Macro
'

'
    Sheets("FX").Select
    Sheets("Data").Visible = True
    Range("F4:F13").Select
    Selection.Copy
    Sheets("Sale").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data").Select
    Range("G4:G13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Ticket").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data").Select
    Range("H4:H13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Brand").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data").Select
    ActiveWindow.SelectedSheets.Visible = False
    Range("B1").Select
    Application.CutCopyMode = False
End Sub

Code: Select all

Sub Macro1()
Dim x As Integer
    Sheets("Data").Visible = True
    x = Application.Match(Sheets("วันที่").Range("a1"), Sheets("ยอดขาย").Range("a3:k3"), 0)
    Sheets("Data").Range("F4:F13").Copy
    Sheets("ยอดขาย").Cells(4, x).PasteSpecial Paste:=xlPasteValues
    Sheets("Data").Range("G4:G13").Copy
    Sheets("ใบเสร็จ").Cells(4, x).PasteSpecial Paste:=xlPasteValues
    Sheets("Data").Range("H4:H13").Copy
    Sheets("Brand").Cells(4, x).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("Data").Visible = False
End Sub