Application.PrintCommunication = False
Set wbData = ThisWorkbook
Set wsData = wbData.Worksheets("Daily Production")
rwData = wsData.Range("A1").End(xlDown).Row
Set wbSumber = Workbooks("STOCK 1220-PA (003).xlsx") 'Ganti
Set wsSumber = wbSumber.Worksheets("MASTER")
Set RgSumber = wsSumber.Range("I75:GL75") 'Ganti
For Each rg In RgSumber
If rg.Value > 0 Then
rwData = rwData + 1
wsData.Cells(rwData, 4).Value = "Poultry Old Tower"
wsData.Cells(rwData, 6).Value = "Crumbler"
wsData.Cells(rwData, 7).Value = rg.Value
Select Case wsSumber.Cells(4, rg.Column).Value
Case "Prod."
wsData.Cells(rwData, 5).Value = "Production"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case "Retur"
wsData.Cells(rwData, 5).Value = "Retur"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case "Sales"
wsData.Cells(rwData, 5).Value = "Sales"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case "Depo"
wsData.Cells(rwData, 5).Value = "Depo"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case "Remix"
wsData.Cells(rwData, 5).Value = "Remix"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case vbNullString
wsData.Cells(rwData, 5).Value = "Stock"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case Else
MsgBox "Header tidak ketemu"
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Exit Sub
End Select
End If
If rg.Offset(1, 0).Value > 0 Then
rwData = rwData + 1
wsData.Cells(rwData, 4).Value = "Poultry Old Tower"
wsData.Cells(rwData, 6).Value = "Mash"
wsData.Cells(rwData, 7).Value = rg.Offset(1, 0).Value
Select Case wsSumber.Cells(4, rg.Column).Value
Case "Prod."
wsData.Cells(rwData, 5).Value = "Production"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case "Retur"
wsData.Cells(rwData, 5).Value = "Retur"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case "Sales"
wsData.Cells(rwData, 5).Value = "Sales"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case "Depo"
wsData.Cells(rwData, 5).Value = "Depo"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case "Remix"
wsData.Cells(rwData, 5).Value = "Remix"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case vbNullString
wsData.Cells(rwData, 5).Value = "Stock"
wsData.Cells(rwData, 1).Value = wsSumber.Cells(2, rg.Column).MergeArea.Cells(1, 1).Value
Case Else
MsgBox "Header tidak ketemu"
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Exit Sub
End Select
End If
Next rg
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.PrintCommunication = True
End Sub