Snasui Excel Forum

Code: Select all

Sub ¡ÃÍ¡ÃÒ§ҹÊèͧä¢è_6_Çѹ()
Dim WB1 As Workbook
Dim WB2 As Workbook
Set WB1 = ActiveWorkbook
Range(Cells(6, 5), Cells(6, 7)).Copy
Set WB2 = Workbooks.Open("C:\Users\OPY0265\Desktop\Production_Farm\FB_Hatchery\àÍ¡ÊÒÃâç¿Ñ¡\Hatcherry Daily Report", False, False)
        With WB2.Sheets("M2").Range("A1")
        .Formula = "=MATCH(B2,B4:B1048576,0)"
        .Value = .Value
        End With
        Cells(Range("A1"), 19).Select
        Selection.Offset(2, 0).Select
        Selection.PasteSpecial xlPasteValues
        Range("A1").Formula.Delete
        'WB1.Close True
        
   
    Application.ScreenUpdating = True
End Sub

Code: Select all

Sub กรอกรายงานส่องไข่_6_วัน()
Dim WB1 As Workbook
Dim WB2 As Workbook
On Error Resume Next
Set WB1 = Workbooks("Book1.xlsm")
Set WS = WB1.Sheets(1)
With WS
 For i = 2 To Range("H8")
        .Cells(i, 3).Resize(, 3).Copy
Set WB2 = Workbooks.Open("C:\Users\OPY0265\Desktop\Production_Farm\FB_Hatchery\เอกสารโรงฟัก\Hatcherry Daily Report", False, False)
       WB2.Sheets(WS.Cells(i, 2).Value).Select
       With Range("A1")
       .Formula = "=MATCH(B2,B4:B1048576,0)"
       .Value = .Value
        End With
        Cells(Range("A1") + 3, 7).Select
        Selection.PasteSpecial xlPasteValues
        Range("A1").ClearContents
        'WB1.Close True
        Next i
   End With
    Application.ScreenUpdating = True
End Sub