Terima kasih buat mas ryan dan mas agus atas saran dan bantuannya.
Saya coba praktekin dulu.
SalamWahyono
Pada Sabtu, 19 Desember 2015 12:16, "Nang Agus [email protected]
[belajar-excel]" <[email protected]> menulis:
Dear wahyono,
Coba dibuat begini:
1. Kli Developer, Record macro
2. Pada sheet Database block A8:D8, Klik Kopi
3. Pindah ke sheet Jan klik A6
4. Pilih paste Value
5. Ketik formula di G6: =E5*VLOOKUP(D5,DataBase!$J$3:$K$7,2,FALSE)
6. Ketik formula di H6: =E6+G6
7. Pindah kesheet DataBase
8. Ulangi langkah 2 sampai langkah 6 untuk Sheet Feb.
9. Stop Recording.
sekarang buka Visual Basic Editor. (Alt F11)
1. Double Klik Sheet1(DataBase) pada ProjectExplorer
2. Pilih bprosedur whorksheet change, atau ketikkan cekrip berikut:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rowne As Integer
rowne = ActiveCell.Row
If Target.Address = "$D$" & rowne Then
End If
End Sub
Kemudian kopi cekrip hasil rekaman kedalam cekrip yang baru diketik. (cekrip
rekaman ada pada module 1. yang dicopy adalah baris sesudah Sub sampai baris
sebelum End Sub) di pastekan sebelum End If (tempat yang kosong))
3. Ubah cekrip Range("A8:D8") menjadi: Range("A" & rowne & ":D" & rowne)
(Tujuannya agar dapat mengkopi baris yang sendang diketik)
4. Ubah cekrip Range("A6") menjadi: Range("A" & rowne - 2)
(Tujuannya agar dapat menempel pada 2 baris di bawah yang sendang diketik)
5. Hapus semua .Select sampai cell (sisakan satu titik)
rowne - 2).Select
ActiveCell.P
6. Tambahkan cekrip : Sheets("Jan").
(ada titiknya lho) pada semua cekrip yang didahului range dan berada di
bawah Jan sebelum Feb.
7. Simpan File
Jika Semua dijalankan dengan benar akan memperoleh cekrip lengkap sebagai
berikut:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rowne As Integer
rowne = ActiveCell.Row
If Target.Address = "$D$" & rowne Then
Sheets("DataBase").Select
Range("A" & rowne & ":D" & rowne).Select
Selection.Copy
Sheets("Jan").Range("A" & rowne - 2).PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Jan").Range("G" & rowne - 2).FormulaR1C1 = _
"=RC[-2]*VLOOKUP(RC[-3],DataBase!R3C10:R7C11,2,FALSE)"
Sheets("Jan").Range("H" & rowne - 2).FormulaR1C1 = "=RC[-3]+RC[-1]"
Sheets("DataBase").Select
Range("A" & rowne & ":D" & rowne).Select
Selection.Copy
Sheets("Feb").Range("A" & rowne - 2).PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feb").Range("G" & rowne - 2).FormulaR1C1 = _
"=RC[-2]*VLOOKUP(RC[-3],DataBase!R3C10:R7C11,2,FALSE)"
Sheets("Feb").Range("H" & rowne - 2).FormulaR1C1 = "=RC[-3]+RC[-1]"
End If
End Sub
Sebenarnya cekrip tersebut dapat dipersingkat menggunakan loop atau with dapat
juga dengan case.
Tentunya cekrip dapat singkat jika diketik sendiri, namun bagi pemula seperti
saya record macro lebih mudah dikerjakan dan tidak salah syntax.
silahkan dicoba sambil belajar, kalau mau belajar yang lebih detail silahkan
buka blog Milis mulai dari sini
Mohon maaf atas semua kesalahan. apalagi yang merasa tersinggung dengan ketikan
ini, terutama para master Excel mohon bimbingannya agar ketikan saya ini dapat
diperbaiki.
wasalamualaikum warahmatullah
NangAgus
2015-12-18 0:31 GMT+07:00 Teguh Wahyono [email protected] [belajar-excel]
<[email protected]>:
Dear all,Saya punya masalah dgn data excel saya, mungkin teman2 di millis
ini bisa membantu agar bisa lebih cepat dan efisien.
Saya punya data di excel yang berisi data base pegawai dan sheet bulan per
bulan yang harus selalu diupdate jumlahnya dengan cara mengkopi kebawah tiap
bulannya. (Contoh file terlampir). Penjelasannya bisa lihat di sheet "Jan".
Adakah teman2 di millis ini yang bisa bantu memberitahu saya script macro
vbanya. Saya sudah coba nyari di gogle tapi gak nemu. apalagi saya juga beginer
yang baru belajar vba.
Atas bantuannya terima kasih.Salam
Wahyono
#yiv2242809118 #yiv2242809118 -- #yiv2242809118ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2242809118
#yiv2242809118ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2242809118
#yiv2242809118ygrp-mkp #yiv2242809118hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv2242809118 #yiv2242809118ygrp-mkp #yiv2242809118ads
{margin-bottom:10px;}#yiv2242809118 #yiv2242809118ygrp-mkp .yiv2242809118ad
{padding:0 0;}#yiv2242809118 #yiv2242809118ygrp-mkp .yiv2242809118ad p
{margin:0;}#yiv2242809118 #yiv2242809118ygrp-mkp .yiv2242809118ad a
{color:#0000ff;text-decoration:none;}#yiv2242809118 #yiv2242809118ygrp-sponsor
#yiv2242809118ygrp-lc {font-family:Arial;}#yiv2242809118
#yiv2242809118ygrp-sponsor #yiv2242809118ygrp-lc #yiv2242809118hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2242809118
#yiv2242809118ygrp-sponsor #yiv2242809118ygrp-lc .yiv2242809118ad
{margin-bottom:10px;padding:0 0;}#yiv2242809118 #yiv2242809118actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2242809118
#yiv2242809118activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2242809118
#yiv2242809118activity span {font-weight:700;}#yiv2242809118
#yiv2242809118activity span:first-child
{text-transform:uppercase;}#yiv2242809118 #yiv2242809118activity span a
{color:#5085b6;text-decoration:none;}#yiv2242809118 #yiv2242809118activity span
span {color:#ff7900;}#yiv2242809118 #yiv2242809118activity span
.yiv2242809118underline {text-decoration:underline;}#yiv2242809118
.yiv2242809118attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv2242809118 .yiv2242809118attach div a
{text-decoration:none;}#yiv2242809118 .yiv2242809118attach img
{border:none;padding-right:5px;}#yiv2242809118 .yiv2242809118attach label
{display:block;margin-bottom:5px;}#yiv2242809118 .yiv2242809118attach label a
{text-decoration:none;}#yiv2242809118 blockquote {margin:0 0 0
4px;}#yiv2242809118 .yiv2242809118bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2242809118
.yiv2242809118bold a {text-decoration:none;}#yiv2242809118 dd.yiv2242809118last
p a {font-family:Verdana;font-weight:700;}#yiv2242809118 dd.yiv2242809118last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2242809118
dd.yiv2242809118last p span.yiv2242809118yshortcuts
{margin-right:0;}#yiv2242809118 div.yiv2242809118attach-table div div a
{text-decoration:none;}#yiv2242809118 div.yiv2242809118attach-table
{width:400px;}#yiv2242809118 div.yiv2242809118file-title a, #yiv2242809118
div.yiv2242809118file-title a:active, #yiv2242809118
div.yiv2242809118file-title a:hover, #yiv2242809118 div.yiv2242809118file-title
a:visited {text-decoration:none;}#yiv2242809118 div.yiv2242809118photo-title a,
#yiv2242809118 div.yiv2242809118photo-title a:active, #yiv2242809118
div.yiv2242809118photo-title a:hover, #yiv2242809118
div.yiv2242809118photo-title a:visited {text-decoration:none;}#yiv2242809118
div#yiv2242809118ygrp-mlmsg #yiv2242809118ygrp-msg p a
span.yiv2242809118yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2242809118
.yiv2242809118green {color:#628c2a;}#yiv2242809118 .yiv2242809118MsoNormal
{margin:0 0 0 0;}#yiv2242809118 o {font-size:0;}#yiv2242809118
#yiv2242809118photos div {float:left;width:72px;}#yiv2242809118
#yiv2242809118photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv2242809118
#yiv2242809118photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2242809118
#yiv2242809118reco-category {font-size:77%;}#yiv2242809118
#yiv2242809118reco-desc {font-size:77%;}#yiv2242809118 .yiv2242809118replbq
{margin:4px;}#yiv2242809118 #yiv2242809118ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv2242809118 #yiv2242809118ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2242809118
#yiv2242809118ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2242809118
#yiv2242809118ygrp-mlmsg select, #yiv2242809118 input, #yiv2242809118 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv2242809118
#yiv2242809118ygrp-mlmsg pre, #yiv2242809118 code {font:115%
monospace;}#yiv2242809118 #yiv2242809118ygrp-mlmsg *
{line-height:1.22em;}#yiv2242809118 #yiv2242809118ygrp-mlmsg #yiv2242809118logo
{padding-bottom:10px;}#yiv2242809118 #yiv2242809118ygrp-msg p a
{font-family:Verdana;}#yiv2242809118 #yiv2242809118ygrp-msg
p#yiv2242809118attach-count span {color:#1E66AE;font-weight:700;}#yiv2242809118
#yiv2242809118ygrp-reco #yiv2242809118reco-head
{color:#ff7900;font-weight:700;}#yiv2242809118 #yiv2242809118ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv2242809118 #yiv2242809118ygrp-sponsor
#yiv2242809118ov li a {font-size:130%;text-decoration:none;}#yiv2242809118
#yiv2242809118ygrp-sponsor #yiv2242809118ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv2242809118
#yiv2242809118ygrp-sponsor #yiv2242809118ov ul {margin:0;padding:0 0 0
8px;}#yiv2242809118 #yiv2242809118ygrp-text
{font-family:Georgia;}#yiv2242809118 #yiv2242809118ygrp-text p {margin:0 0 1em
0;}#yiv2242809118 #yiv2242809118ygrp-text tt {font-size:120%;}#yiv2242809118
#yiv2242809118ygrp-vital ul li:last-child {border-right:none
!important;}#yiv2242809118
