Scribd
Upload
2 views11 pages

Script

The document contains a series of Excel VBA commands used for copying and pasting values between sheets named 'HITUNG' and 'HASIL'. It includes multiple instances of selecting ranges, copying data, and pasting it into specified locations within the 'HASIL' sheet. The commands also involve updating specific cell formulas in the 'HITUNG' sheet.

Uploaded by

Tiara Palentungi
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
2 views11 pages

Script

The document contains a series of Excel VBA commands used for copying and pasting values between sheets named 'HITUNG' and 'HASIL'. It includes multiple instances of selecting ranges, copying data, and pasting it into specified locations within the 'HASIL' sheet. The commands also involve updating specific cell formulas in the 'HITUNG' sheet.

Uploaded by

Tiara Palentungi
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

PT PLN (Persero)

Unit Pelaksana Pengatur Beban Sistem Makassar

[Link] Paste:=xlPasteValues, Operation:=xlNone,


SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("BT76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "9.3"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("BW76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
'Range("BT93").Select
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select

30
PT PLN (Persero)
Unit Pelaksana Pengatur Beban Sistem Makassar

Range("BX76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
[Link] ToRight:=12
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "10"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("CA76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("CB76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "10.3"

31
PT PLN (Persero)
Unit Pelaksana Pengatur Beban Sistem Makassar

Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("CE76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("CF76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "11"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("CI76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select

32
PT PLN (Persero)
Unit Pelaksana Pengatur Beban Sistem Makassar

[Link] = False
[Link]
Sheets("HASIL").Select
Range("CJ76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
[Link] ToRight:=12
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "11.3"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("CM76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("CN76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select

33
PT PLN (Persero)
Unit Pelaksana Pengatur Beban Sistem Makassar

Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "12"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("CQ76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("CR76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "12.3"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("CU76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _

34
PT PLN (Persero)
Unit Pelaksana Pengatur Beban Sistem Makassar

:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("CV76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
[Link] ToRight:=12
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "13"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("CY76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("CZ76").Select

35
PT PLN (Persero)
Unit Pelaksana Pengatur Beban Sistem Makassar

[Link] Paste:=xlPasteValues, Operation:=xlNone,


SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "13.3"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("DC76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("DD76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "14"
Range("BC70").Select
[Link]

36
PT PLN (Persero)
Unit Pelaksana Pengatur Beban Sistem Makassar

Sheets("HASIL").Select
Range("DG76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("DH76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
[Link] ToRight:=12
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "14.3"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("DK76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False

37
PT PLN (Persero)
Unit Pelaksana Pengatur Beban Sistem Makassar

[Link]
Sheets("HASIL").Select
Range("DL76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BJ1:BJ2").Select
Range("BJ2").Activate
[Link] = False
ActiveCell.FormulaR1C1 = "15"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("DO76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("DP76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BJ2").Select

38
PT PLN (Persero)
Unit Pelaksana Pengatur Beban Sistem Makassar

[Link] = False
ActiveCell.FormulaR1C1 = "15.3"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("DS76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("DT76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
[Link] ToRight:=12
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "16"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("DW76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _

39
PT PLN (Persero)
Unit Pelaksana Pengatur Beban Sistem Makassar

:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("DX76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BJ2").Select
[Link] = False
ActiveCell.FormulaR1C1 = "16.3"
Range("BC70").Select
[Link]
Sheets("HASIL").Select
Range("EA76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("HITUNG").Select
Range("BG70").Select
[Link] = False
[Link]
Sheets("HASIL").Select
Range("EB76").Select
[Link] Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _

40

You might also like