]] XL-mania [[ Digest Number 2641

Microsoft Excel Community Group

4 New Messages

Digest #2641

1a

Re: coding VBA Excel untuk edit data tanpa menjadi data baru by "hendrik karnadi" hendrikkarnadi

2a

Re: database sederhana berdasarkan inputan by "hendrik karnadi" hendrikkarnadi

2b

Fw: ]] XL-mania [[ database sederhana berdasarkan inputan by "hendrik karnadi" hendrikkarnadi

3a

Summary Berdasarkan Tanggal Produksi by "Marsidi"

Messages

1a

Re: coding VBA Excel untuk edit data tanpa menjadi data baru

Mon Aug 5, 2013 5:47 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Bahasa manusianya begini:
- isi ID data yang akan diedit pada Form
- Cari ID tsb pada Data Sheet dan tandai lokasinya
- Copy datanya ke Form
- Edit data pada Form
- Kembalikan datanya ke Data Sheet sesuai lokasinya

Silakan dibuat Codenya, jika belum bisa silakan lampirkan hasil uji cobanya.

Salam,
HK

________________________________
From: A. Susanto <asusanto_4u@yahoo.com>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Friday, 2 August 2013, 22:34
Subject: ]] XL-mania [[ coding VBA Excel untuk edit data tanpa menjadi data baru


 
Dear XL Mania,

saya sedang membuat form aplikasi vba excel, saat ini
sudah dapat menginput data pada form to data sheet
bagaimana caranya untuk edit data yang sudah ada dalam sheet
tanpa menambah data baru.

Thx before & best regards
A.Susanto

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

2a

Re: database sederhana berdasarkan inputan

Mon Aug 5, 2013 5:47 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

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 to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

2b

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

Mon Aug 5, 2013 5:48 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

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 to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

3a

Summary Berdasarkan Tanggal Produksi

Mon Aug 5, 2013 5:48 pm (PDT) . Posted by:

"Marsidi"

Buat para pakar excel,

Tolong dong bagaimana membuat summary berdasarkan tanggal produksi seperti
pada attachment berikut ini :

Sebelumnya saya ucapkan terima kasih.

Rgds,

Marsidi

Reply to sender . Reply to group . Reply via Web Post . All Messages (13) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

20 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

+-:: 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              |
+-------------------------------------------------------------------+

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>