Untuk mempersingkat penulisan kode bisa dipakai perintah blok With .... End With
sehingga prosedur ini:
Sub InputData()
Dim lrow As Long
lrow = Sheets("Master Database").Cells(Rows.Count, "A").End(xlUp).Offset(1,
0).Row
Sheets("Master Database").Cells(lrow, 1).FormulaR1C1 = "=N(R[-1]C)+1"
Sheets("Master Database").Cells(lrow, 2).Value = Sheets("Input").Range("C4")
Sheets("Master Database").Cells(lrow, 3).Value = Sheets("Input").Range("F4")
Sheets("Master Database").Cells(lrow, 4).Value = Sheets("Input").Range("F5")
Sheets("Master Database").Cells(lrow, 5).Value = Sheets("Input").Range("C6")
Sheets("Master Database").Cells(lrow, 6).Value = Sheets("Input").Range("F6")
'Lanjutkan, mengacu kepada Cells dan Range ybs
Sheets("Master Database").Cells(lrow, 15).Value =
Sheets("Input").Range("H19")
'Lanjutkan, mengacu kepada Cells dan Range ybs
End Sub
bisa diganti dengan:
Sub InputData()
Dim lrow As Long
With Sheets("Master Database")
lrow = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
.Cells(lrow, 1).FormulaR1C1 = "=N(R[-1]C)+1"
.Cells(lrow, 2).Value = Sheets("Input").Range("C4")
.Cells(lrow, 3).Value = Sheets("Input").Range("F4")
.Cells(lrow, 4).Value = Sheets("Input").Range("F5")
.Cells(lrow, 5).Value = Sheets("Input").Range("C6")
.Cells(lrow, 6).Value = Sheets("Input").Range("F6")
'Lanjutkan, mengacu kepada Cells dan Range ybs
.Cells(lrow, 15).Value = Sheets("Input").Range("H19")
'Lanjutkan, mengacu kepada Cells dan Range ybs
End With
End Sub
Tanda "."(titik, tanpa spasi) harus ada.
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Monday, 5 August 2013, 20:45
Subject: Re: ]] XL-mania [[ database sederhana berdasarkan inputan
Hai Musriadi,
Anda ingin mempercepat pekerjaan saat ini dan masa yang akan datang bukan ?
Solusi yang saya buat berupa macro (sebagian) harus anda lanjutkan sehingga
anda bukan hanya mendapatkan ikan tapi juga kailnya
Caranya begini:
- Tampilkan Developer Tab dan aktifkan Macro sebelum membuka file
- Buka File
- Tekan Alt F11 secara bersamaan
- Lanjutkan Code sesuai petunjuk.
- Simpan kembali file
Cara mengatifkan Macro melalui tombol Save adalah sbb:
- Klik Developer Tab
- Klik Design Mode
- Klik kanan tombol Save
- Klik Assign Macro
- Pilih InputData
Cara mengatifkan Macro melalui tombol Clear adalah sbb:
- Klik Developer Tab
- Klik Design Mode
- Klik kanan tombol Clear
- Klik Assign Macro
- Pilih HapusData
Jika anda melakukan hal - hal di atas dengan benar maka anda sekaligus dapat
mempercepat penyelesaian masalah dan mengenal/belajar aplikasi macro.
Semoga sukses.
Salam,
Hendrik Karnadi
________________________________
From: MSJ Planners Block D <[email protected]>
To: "[email protected]" <[email protected]>
Sent: Thursday, 1 August 2013, 14:39
Subject: ]] XL-mania [[ database sederhana berdasarkan inputan
Dear XL Mania,
Apakah bisa buatkan juga seperti data yang terlampir, dimana di
Sheet INPUT jika sudah di klik SAVE maka otomatis masuk ke Master Database.
Saat ini saya masih kerja manual yaitu copy satu persatu, kiranya rekan
XL mania berkenan untuk men solve yang saat ini saya kerjakan. Demikian. Dan
terima kasih.
Salam,
Musriadi
______________________________________________________________________
This email has been scanned by the Symantec Email Security.cloud service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
