please help
- Code: Select all
' Masih ada yang kurang, CTU belum kebaca oleh program
' belum menampilkan YTD
Sub Calculate()
'
' Program Penghitungan Jumlah WorkOver pada lapangan West Qurna 1 untuk setiap bulannya (belum dengan YTD)
'
'
Dim N As Integer ' N merupakan input untuk bulan ke
Dim Bulan As Integer ' Bulan merupakan variabel penghitungan bulan di macro
Dim DS6RIG, DS6Perfo, DS6Acidstim, DS6N2lift, DS6Maint, DS6PLT, DS6Welltest, DS6Slickline, DS6Wireline, DS6Pumping, DS6WSO, DS6CTU
Dim DS7RIG, DS7Perfo, DS7Acidstim, DS7N2lift, DS7Maint, DS7PLT, DS7Welltest, DS7Slickline, DS7Wireline, DS7Pumping, DS7WSO, DS7CTU
Dim DS8RIG, DS8Perfo, DS8Acidstim, DS8N2lift, DS8Maint, DS8PLT, DS8Welltest, DS8Slickline, DS8Wireline, DS8Pumping, DS8WSO, DS8CTU
Dim nDS6RIG, nDS6Perfo, nDS6Acidstim, nDS6N2lift, nDS6Maint, nDS6PLT, nDS6Welltest, nDS6Slickline, nDS6Wireline, nDS6Pumping, nDS6WSO 'n menyatakan jumlah job pada bulan input di DS6
Dim nDS6CTU, nDS7CTU, nDS8CTU
Dim nDS7RIG, nDS7Perfo, nDS7Acidstim, nDS7N2lift, nDS7Maint, nDS7PLT, nDS7Welltest, nDS7Slickline, nDS7Wireline, nDS7Pumping, nDS7WSO 'n menyatakan jumlah job pada bulan input di DS7
Dim nDS8RIG, nDS8Perfo, nDS8Acidstim, nDS8N2lift, nDS8Maint, nDS8PLT, nDS8Welltest, nDS8Slickline, nDS8Wireline, nDS8Pumping, nDS8WSO 'n menyatakan jumlah job pada bulan input di DS8
Dim jumlahRIG, jumlahPerfo, jumlahAcidstim, jumlahN2lift, jumlahMaint, jumlahPLT, jumlahWelltest, jumlahSlickline, jumlahWireline, jumlahPumping, jumlahWSO
Dim njumlahRIG, njumlahPerfo, njumlahAcidstim, njumlahN2lift, njumlahMaint, njumlahPLT, njumlahWelltest, njumlahSlickline, njumlahWireline, njumlahPumping, njumlahWSO
Dim jumlahCTU, njumlahCTU
Dim YTDRIG, YTDPerfo, YTDAcidstim, YTDN2lift, YTDMaint, YTDPLT, YTDWelltest, YTDSlickline, YTDWireline, YTDPumping, YTDWSO, YTDCTU As Integer
Dim nYTDRIG, nYTDPerfo, nYTDAcidstim, nYTDN2lift, nYTDMaint, nYTDPLT, nYTDWelltest, nYTDSlickline, nYTDWireline, nYTDPumping, nYTDWSO, nYTDCTU As Integer
Dim i, j, k, x, y, z As Integer
N = Range("C4").Value
Range("C8:F19").Select
Selection.ClearContents
With Range("C5:F19")
.Value = .Value
End With
'For j = 1 To N
For i = 1 To N
DS6RIG = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""RIG"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""RIG"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6Perfo = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Perf"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Perf"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6Acidstim = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Acid Stim"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Acid Stim"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6N2lift = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""N2 Lift"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""N2 Lift"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6Maint = "=COUNTIFS('WorkOver & Rigless Job'!R[-7]C[32]:R[1048564]C[32]," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Maintenance"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Maintenance"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6PLT = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""PLT"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""PLT"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6Welltest = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Well Testing"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Well Testing"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6Slickline = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Slick line"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Slick line"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6Wireline = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Wireline"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Wireline"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6Pumping = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Pumping"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""Pumping"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6WSO = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""WSO"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""WSO"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS6CTU = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""CTU"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C5:R1048576C5,""CTU"",'WorkOver & Rigless Job'!R5C7:R1048576C7,""START / END"")"
DS7RIG = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""RIG"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""RIG"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7Perfo = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Perf"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Perf"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7Acidstim = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Acid Stim"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Acid Stim"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7N2lift = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""N2 Lift"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""N2 Lift"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7Maint = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Maintenance"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Maintenance"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7PLT = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""PLT"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""PLT"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7Welltest = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Well Testing"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Well Testing"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7Slickline = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Slick line"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Slick line"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7Wireline = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Wireline"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Wireline"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7Pumping = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Pumping"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""Pumping"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7WSO = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""WSO"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""WSO"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS7CTU = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""CTU"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C16:R1048576C16,""CTU"",'WorkOver & Rigless Job'!R5C18:R1048576C18,""START / END"")"
DS8RIG = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""RIG"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""RIG"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8Perfo = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Perf"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Perf"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8Acidstim = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Acid Stim"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Acid Stim"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8N2lift = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""N2 Lift"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""N2 Lift"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8Maint = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Maintenance"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Maintenance"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8PLT = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""PLT"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""PLT"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8Welltest = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Well Testing"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Well Testing"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8Slickline = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Slick line"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Slick line"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8Wireline = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Wireline"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Wireline"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8Pumping = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Pumping"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""Pumping"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8WSO = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""WSO"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""WSO"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
DS8CTU = "=COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""CTU"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""END"") + COUNTIFS('WorkOver & Rigless Job'!R5C35:R1048576C35," & (i) & ",'WorkOver & Rigless Job'!R5C27:R1048576C27,""CTU"",'WorkOver & Rigless Job'!R5C29:R1048576C29,""START / END"")"
[color=#FF0000] jumlahRIG = WorksheetFunction.Sum(Worksheets("Program").Range("C8:E8").Value)
jumlahPerfo = "=sum(Program!C9:E9)"
jumlahAcidstim = "=sum(Program!C10:E10)"
jumlahN2lift = "=sum(Program!C11:E11)"
jumlahMaint = "=sum(Program!C12:E12)"
jumlahPLT = "=sum(Program!C13:E13)"
jumlahWelltest = "=sum(Program!C14:E14)"
jumlahSlickline = "=sum(Program!C15:E15)"
jumlahWireline = "=sum(Program!C16:E16)"
jumlahPumping = "=sum(Program!C17:E17)"
jumlahWSO = "=sum(Program!C18:E18)"
jumlahCTU = "=sum(Program!C19:E19)"[/color]
[color=#00FF00] YTDRIG = jumlahRIG
YTDRIG = jumlahRIG + YTDRIG[/color]
If i = N Then
nDS6RIG = DS6RIG
nDS6Perfo = DS6Perfo
nDS6Acidstim = DS6Acidstim
nDS6N2lift = DS6N2lift
nDS6Maint = DS6Maint
nDS6PLT = DS6PLT
nDS6Welltest = DS6Welltest
nDS6Slickline = DS6Slickline
nDS6Wireline = DS6Wireline
nDS6Pumping = DS6Pumping
nDS6WSO = DS6WSO
nDS6CTU = DS6CTU
nDS7RIG = DS7RIG
nDS7Perfo = DS7Perfo
nDS7Acidstim = DS7Acidstim
nDS7N2lift = DS7N2lift
nDS7Maint = DS7Maint
nDS7PLT = DS7PLT
nDS7Welltest = DS7Welltest
nDS7Slickline = DS7Slickline
nDS7Wireline = DS7Wireline
nDS7Pumping = DS7Pumping
nDS7WSO = DS7WSO
nDS7CTU = DS7CTU
nDS8RIG = DS8RIG
nDS8Perfo = DS8Perfo
nDS8Acidstim = DS8Acidstim
nDS8N2lift = DS8N2lift
nDS8Maint = DS8Maint
nDS8PLT = DS8PLT
nDS8Welltest = DS8Welltest
nDS8Slickline = DS8Slickline
nDS8Wireline = DS8Wireline
nDS8Pumping = DS8Pumping
nDS8WSO = DS8WSO
nDS8CTU = DS8CTU
njumlahRIG = jumlahRIG
njumlahPerfo = jumlahPerfo
njumlahAcidstim = jumlahAcidstim
njumlahN2lift = jumlahN2lift
njumlahMaint = jumlahMaint
njumlahPLT = jumlahPLT
njumlahWelltest = jumlahWelltest
njumlahSlickline = jumlahSlickline
njumlahWireline = jumlahWireline
njumlahPumping = jumlahPumping
njumlahWSO = jumlahWSO
njumlahCTU = jumlahCTU
nYTDRIG = YTDRIG
nYTDPerfo = YTDPerfo
nYTDAcidstim = YTDAcidstim
nYTDN2lift = YTDN2lift
nYTDMaint = YTDMaint
nYTDPLT = YTDPLT
nYTDWelltest = YTDWelltest
nYTDSlickline = YTDSlickline
nYTDWireline = YTDWireline
nYTDPumping = YTDPumping
nYTDWSO = YTDWSO
nYTDCTU = YTDCTU
End If
Next i
'Next j
Range("C8").Value = nDS6RIG
Range("C9").Value = nDS6Perfo
Range("C10").Value = nDS6Acidstim
Range("C11").Value = nDS6N2lift
Range("C12").Value = nDS6Maint
Range("C13").Value = nDS6PLT
Range("C14").Value = nDS6Welltest
Range("C15").Value = nDS6Slickline
Range("C16").Value = nDS6Wireline
Range("C17").Value = nDS6Pumping
Range("C18").Value = nDS6WSO
Range("C19").Value = nDS6CTU
Range("D8").Value = nDS7RIG
Range("D9").Value = nDS7Perfo
Range("D10").Value = nDS7Acidstim
Range("D11").Value = nDS7N2lift
Range("D12").Value = nDS7Maint
Range("D13").Value = nDS7PLT
Range("D14").Value = nDS7Welltest
Range("D15").Value = nDS7Slickline
Range("D16").Value = nDS7Wireline
Range("D17").Value = nDS7Pumping
Range("D18").Value = nDS7WSO
Range("D19").Value = nDS7CTU
Range("E8").Value = nDS8RIG
Range("E9").Value = nDS8Perfo
Range("E10").Value = nDS8Acidstim
Range("E11").Value = nDS8N2lift
Range("E12").Value = nDS8Maint
Range("E13").Value = nDS8PLT
Range("E14").Value = nDS8Welltest
Range("E15").Value = nDS8Slickline
Range("E16").Value = nDS8Wireline
Range("E17").Value = nDS8Pumping
Range("E18").Value = nDS8WSO
Range("E19").Value = nDS8CTU
Range("F8").Value = njumlahRIG
Range("F9").Value = njumlahPerfo
Range("F10").Value = njumlahAcidstim
Range("F11").Value = njumlahN2lift
Range("F12").Value = njumlahMaint
Range("F13").Value = njumlahPLT
Range("F14").Value = njumlahWelltest
Range("F15").Value = njumlahSlickline
Range("F16").Value = njumlahWireline
Range("F17").Value = njumlahPumping
Range("F18").Value = njumlahWSO
Range("F19").Value = njumlahCTU
Range("G8").Value = nYTDRIG
Range("G9").Value = nYTDPerfo
Range("G10").Value = nYTDAcidstim
Range("G11").Value = nYTDN2lift
Range("G12").Value = nYTDMaint
Range("G13").Value = nYTDPLT
Range("G14").Value = nYTDWelltest
Range("G15").Value = nYTDSlickline
Range("G16").Value = nYTDWireline
Range("G17").Value = nYTDPumping
Range("G18").Value = nYTDWSO
Range("G19").Value = nYTDCTU
End Sub