Re: ]] XL-mania [[ Tanya Macro Simpan Inputan Data ke Sheet yang Lain

 

Mungkin seperti ini:

Private Sub PostingDataKeTabel()

   ' 20 feb 2012 - VBA coded by:

   ' Ki Semprul !! banyak dibantu Ni Mas Hapsari..

   '----------------------------------------------

   Dim dTabel As Range, dIsian As Range

   Dim DahAda As Boolean

   Dim NewRec As Long, rc As Long

   

   Set dIsian = Sheets("MASTER").Cells(1)

   Set dTabel = Sheets("REKAP").Cells(2, 2).CurrentRegion.Offset(1, 0)

   NewRec = dTabel.Rows.Count

   With dTabel

      ' cari NomorAplikasi yg AKAN diisikan (dicarinya di dTabel)

      DahAda = WorksheetFunction.CountIf(.Resize(, 1), dIsian(7, 4)) > 0

      ' Jika ADA....

      If DahAda Then

         dIsian(7, 4).Activate

         ' berikan pesan-sponsor

         MsgBox "Nomor Aplikasi : " & dIsian(7, 4) & " = SUDAH ADA !!" & _

         vbCrLf & "Mohon Data Isian di check lagi..", 48

      Else  ' (Jika Tidak....)

         ' laksanakan proses transfer data dIsian ke Tabel

         For rc = 1 To 28

            .Cells(NewRec, rc) = dIsian(rc * 2 + 5, 4)

         Next

      End If

   End With

End Sub

Sub SIMPAN()

   ' modifikasi: Ki Semprull / 20 Feb 2012

   ' -----------------------------------------

   ' (1) memasukkan isian ke tabel

   PostingDataKeTabel

   ' (2) menSave Workbook

   ActiveWorkbook.Save

   ' (3) menghapus data Isian

   ' Clear_dataIsian

End Sub

Sub Clear_dataIsian()

   ' menghapus isian by KiSemprul (Semprul Ki!!)

   '--------------------------------------------

   ' Modifikasi oleh Ki Semprull / 21 Feb 2012

   ' maaf dimodifikasi agar agak  'enak dilihat'

   ' abiznya aslinya "ngeriiii bangett"...

   '-------------------------------------------

    Range("D7:J7,D9:L9,D11,D13:L13,D15:L15,D17:J17,D19,D21:J21,D23:J23,D25:T59").ClearContents

End Sub

Sub CETAK()

   '  CETAK sheet

   '  Macro recorded 24/09/2010 by dedih

   '  Modifikasi by: Ki Semprul / 20 Feb 2012

   '  animasi scroll dihilangkan

   '-----------------------------------------

   Dim R As Long, i As Long

   ActiveSheet.PageSetup.PrintArea = "$A$1:$W$60"

   ActiveWindow.SelectedSheets.PrintPreview

'  ActiveWindow.SelectedSheets.PrintOut     ' << pilih ini jika ingin cetak langsung

   Range("D7").Activate

End Sub

2012/2/19 anton suryadi <summonery@yahoo.com>

---------------------------------------------------

Titipan dari salah satu member xl-mania:

--------------------------------------------------- 

Dear Grandmaster Excell,
Saya Sudah berulang kali kirim ke Yahoo groups XL Mania,
Tetapi sepertinya tidak terkirim
(kemungkinan, email kantor saya hanya bisa menerima dari milis, tetapi tidak bisa kirim ke Milis)

Saya mengirimkan ke Email Rekan-Rekan, Mungkin dapat diteruskan ke Yahoo Groups.

Tks
Syukri K Sidabutar
--------------------------------
Begini cerita problemnya: Tanya Macro Simpan Inputan Data ke Sheet yang Lain
Saya ada file Input data pelamar sebagaimana terlampir,
Seharusnya Data yang diisisi,
Di Klick Simpan Dahulu, Baru Data Tersimpan Ke Sheet Rekap.
Namun Di EXCELL ini tidak Jalan,
Yang terjadi adalah:
Data Langsung Tersimpan, begitu selesai terenter setiap Field
(sehingga tidak boleh ada Kesalahan dan Tidak Boleh ada field yang kosong)
Ini akan menyulitkan
Adakah yang dapat membuat fungsi Macro nya, saya tidak mengerti Macro

NB:
Adakah yang dapat membuat fungsi Macro SIMPAN dengan Kondisi:

#Data akan tersimpan ke sheet Rekap, Jika sudah di clik Menu Simpan
# Data Field akan tersimpan berdasarkan per baris (Row)

Dalam artian, Field kosong sebelumnya, tidak mengakibatkan Inputan
berikutnya maju kebarirs tersbut, namun akan mengikut kepada seluruh
baris inputannya2

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 61

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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

.

__,_._,___