Fw: ]] XL-mania [[ database sederhana berdasarkan inputan

 

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 <hendrikkarnadi@yahoo.com>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
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 <MSJ.PlannersBlockD@leighton.co.id>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
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
______________________________________________________________________

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 20

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Maaf moderasi terlambat karena yahoogroups sering error           |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___