Jumat, 08 Februari 2013

[belajar-excel] Digest Number 2076

5 New Messages

Digest #2076
1a
Re: Warning message saat close Database by "Mr. Kid" nmkid.family@ymail.com
2a
Re: Copy sheet 1 ke 2 by "Mr. Kid" nmkid.family@ymail.com
3a
Memisahkan setiap 19 row ke worksheet baru by "Gilang Droid" gilangsedar9662
3b
Re: Memisahkan setiap 19 row ke worksheet baru by "Mr. Kid" nmkid.family@ymail.com
4
Short cut. by "Indra Sanjaya" indradjaja80an

Messages

Fri Feb 8, 2013 4:33 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

File terlampir bisa.
Coba sertakan bunyi error-nya apa.

Wassalam,
Kid.

On Fri, Feb 8, 2013 at 7:05 PM, tio.adjie@ptssb.co.id> wrote:

> **
>
>
>
> Terima kasih atas jawabannya, tapi sepertinya belum berhasil.
>
> Untuk code
>
> if bClose then
> exit sub
> endif
>
> exit Sub warnanya merah
>
> Wassalam,
> Tio
>
>
>
> *"Mr. Kid" mr.nmkid@gmail.com>*
> Sent by: belajar-excel@yahoogroups.com
>
> 02/08/2013 04:10 PM
> Please respond to belajar-excel
>
> To: belajar-excel@yahoogroups.com
> cc:
> Subject: Re: [belajar-excel] Warning message saat close
> Database
>
>
>
>
>
> Hai Tio,
>
> Coba :
> 1. diluar prosedur dideklarasikan sebuah variabel boolean status close
> (scope module saja juga boleh [private])
> private bClose as boolean
>
> 2. dalam event before close milik workbook :
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Dim intTanya As Integer
> Dim intsaveconfirm As Integer
>
> if bClose then
> exit sub
> endif
>
> intTanya = MsgBox("Are you sure you want to exit from this database ?",
> vbYesNo, "Confirmation")
> intsaveconfirm = MsgBox("Do you want to save the changes you made in this
> database ?", vbYesNo, "Save Confirmation")
>
> If intTanya = vbYes Then
> If intsaveconfirm = vbYes Then
> ActiveWorkbook.Save
> Else
> bclose=true
> ActiveWorkbook.Close Savechanges:=False
> End If
> Else
> Cancel = True
> End If
> End Sub
>
> Wassalam,
> Kid.
>
>
> On Fri, Feb 8, 2013 at 1:58 PM, *tio.adjie@ptssb.co.id*tio.adjie@ptssb.co.id>>
> wrote:
>
>
>
> Dear Be-Exceller,
>
> Saya coba-coba bikin VBA code untuk message Box , yaitu saat akan di tutup
> databasenya, akan timbul pertanyaan apakah yakin akan di tutup atau tidak ?
> Kalau di tutup, akan timbul pertanyaan lagi
>
> apakah akan di save atau tidak. Nah, VBA code berhasil kalau di save tapi
> kalau tidak di save tidak berhasil. Kira-kira dimana yah letak kesalahannya
> ?
>
>
> Ini VBA Codenya :
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Dim intTanya As Integer
> Dim intsaveconfirm As Integer
>
> intTanya = MsgBox("Are you sure you want to exit from this database ?",
> vbYesNo, "Confirmation")
> intsaveconfirm = MsgBox("Do you want to save the changes you made in this
> database ?", vbYesNo, "Save Confirmation")
>
> If intTanya = vbYes Then
> If intsaveconfirm = vbYes Then
> ActiveWorkbook.Save
> Else
> ActiveWorkbook.Close Savechanges:=False
> End If
> Else
> Cancel = True
> End If
> End Sub
>
>
> Terima kasih jawabannya,
> Wassalam,
> Tio
>
>
>
>
>

Fri Feb 8, 2013 4:56 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Aden,

File terlampir memanfaatkan fitur Pivot Table.
Bersusah-susah menyusun data berkaidah database, bersenang-senang menyusun
summary sederhana.

Coba ganti angka data kolom nilai, kemudian lakukan refresh all dengan menu
Data -> Refresh All

Wassalam,
Kid.

2013/2/8 Aden S adendum_81@yahoo.com>

> **
>
>
> Dear All,
>
> saya punya kasus, dimana saya ingin menduplikat file secara automatis dari
> sheet 1 ke sheet 2, tapi hanya item2 tertentu (yang berkode khusus misal D)
> yang di copy, dan ketika terjadi perubahan di sheet 1 (misal penambahan
> atau pengurangan) secara otomatis di sheet 2 juga akan berubah, untuk lebih
> detailnya bisa di lihat di lampiran email ini.
>
> Terima kasih banyak atas bantuannya.
>
> Salam Hangat
>
> Aden S
>
>
>

Fri Feb 8, 2013 6:47 am (PST) . Posted by:

"Gilang Droid" gilangsedar9662

Dear Para Master,

Saya memiliki sebuah problem, web yang dimiliki perusahaan saya
mengharuskan meng-upload file CSV, yang dimana setiap file CSV
tersebut hanya berisikan 19 row 1 shet data saja. Hal ini menjadi
kendala apabila yang diupload jumlahnya sampai puluhan ribu row.
selama ini saya mengerjakan manual memisahkan 19 row ke dalam
worksheet baru dan kemudian saya upload. alhasil kerjaan jadi molor
semua. dan tidak terkejar.

Mohon bantuan master disini. apabila ada yang memiliki makro untuk
kasus saya ini. yang kiranya bisa mencacah setiap 19 row kemudian
hasil cacah tersebut disimpan sebagai file csv baru, sebagai contoh,
saya lampirkan file yang hendak saya cacah setiap 19 row nya.

Terima kasih

-Gilang Sedar-

Fri Feb 8, 2013 8:19 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Gilang,

Coba letakkan prosedur splitter berikut ini pada sebuah module
Public Sub Splitter(rngData As Range, sFormula As String, sFile As String,
lMaxRec As Long)
Dim rng As Range
Dim sHead As String, sRec As String, sFileName As String
Dim lFile As Long, lRec As Long
Dim iFileNum As Integer

On Error GoTo Keluar

Set rngData = rngData.Offset(0, rngData.Columns.Count).Resize(, 1)
'kolom terkanan

'pasang formula penyusun record di kolom setelah area data
With rngData
.Formula = sFormula
.Parent.Calculate
.Value = .Value
sHead = .Resize(1, 1).Value 'simpan header
End With

'area kerja
Set rngData = rngData.Resize(rngData.Rows.Count - 1).Offset(1)
lFile = 0
lRec = 0
For Each rng In rngData
lRec = lRec + 1 'record dalam file
sRec = rng.Value
If LenB(sRec) < 1 Then 'data kosong -> keluar
Exit For
ElseIf lRec = 1 Then 'record pertama dalam file
lFile = lFile + 1 'lfile nambah 1
sFileName = sFile & "_" & Format$(lFile, "0000000") &
".csv" 'susun nama file

'buat file baru diisi header + record pertama
iFileNum = FreeFile
Open sFileName For Output As iFileNum
Print #iFileNum, sHead
Print #iFileNum, sRec
Close iFileNum
Else 'record berikutnya
iFileNum = FreeFile
Open sFileName For Append As iFileNum
Print #iFileNum, sRec
Close iFileNum
End If

If lRec = lMaxRec Then 'memenuhi quota
lRec = 0
End If

DoEvents
Next rng

rngData.EntireColumn.ClearContents

Keluar:
'pesan selesai
If Err.Number <> 0 Then
MsgBox "Error.", vbCritical
Else
MsgBox "Done.", vbInformation
End If
Err.Clear
On Error GoTo 0
End Sub

*Contoh cara pakai :
*Misal :
1. data ada di sheet1 dan mulai di A1
2. formula penyusun record csv jika diletakkan di dalam cell pada baris 1
berbunyi :
=a1 & "," & b1 & "," & c1
3. template file hasil berbunyi folder kerja diikuti teks nama file
berbunyi zHasil dan diakhiri nomor file output yang terbentuk
4. jumlah record maksimum per file adalah 19 record + 1 header
5. ekstensi file hasil adalah .csv

Prosedur untuk memecah data kedalam banyak file csv : (jalankan macro
dengan nama prosedur yang memanggil prosedur splitter ~ misal ContohPakai)
Public Sub ContohPakai()
Dim rngDT As Range
Dim sFormulaPenyusunRecord As String, sFileTemplate As String
Dim lRecPerFile As Long

With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
.Calculation = xlCalculationAutomatic
End With

Set rngDT = Sheet1.Range("a1").CurrentRegion
sFormulaPenyusunRecord = "=a1&"",""&b1&"",""&c1"
sFileTemplate = ThisWorkbook.Path & "\zHasil&quot;
lRecPerFile = 19

Splitter rngDT, sFormulaPenyusunRecord, sFileTemplate, lRecPerFile

With Application
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub

Wassalam,
Kid.

2013/2/8 Gilang Droid gilang.smartdroid@gmail.com>

> **
>
>
> Dear Para Master,
>
> Saya memiliki sebuah problem, web yang dimiliki perusahaan saya
> mengharuskan meng-upload file CSV, yang dimana setiap file CSV
> tersebut hanya berisikan 19 row 1 shet data saja. Hal ini menjadi
> kendala apabila yang diupload jumlahnya sampai puluhan ribu row.
> selama ini saya mengerjakan manual memisahkan 19 row ke dalam
> worksheet baru dan kemudian saya upload. alhasil kerjaan jadi molor
> semua. dan tidak terkejar.
>
> Mohon bantuan master disini. apabila ada yang memiliki makro untuk
> kasus saya ini. yang kiranya bisa mencacah setiap 19 row kemudian
> hasil cacah tersebut disimpan sebagai file csv baru, sebagai contoh,
> saya lampirkan file yang hendak saya cacah setiap 19 row nya.
>
> Terima kasih
>
> -Gilang Sedar-
> _
>

Fri Feb 8, 2013 9:04 am (PST) . Posted by:

"Indra Sanjaya" indradjaja80an

Dear Master Excel,

Dari tabel di bawah, jika kita menempatkan cell pada B4 kemudian menekan tombol Ctrl+D, maka cell B4 akan terisi James NB Luhu Lima.
Short cut apa jika cell B4 bisa terisi Tien Tini Suhartono?

  A B C D E
1 /CF/1/12/1 Mulyono OR 23926A 5463/CF/1/12/1
2 /CF/9/12/1 Nurjani Wati OR 23993A 5467/CF/9/12/1
3 /CF/6/12/1 James NB Luhu Lima OR 24368A 5470/CF/6/12/1
4   Consumer Installment Rec. Housing ES 221437 5472/CF/7/12/1
5 /CF/7/12/1 Tien Tini Suhartono OR 24047A 5472/CF/7/12/1
6 /CF/2/12/1 Joko Amperayanto OR 24370A 5473/CF/2/12/1
7   Consumer Installment Rec. Housing ES 221434 5476/CF/2/12/1
8 /CF/2/12/1 Jefry Ronny Saragih OR 24113A 5476/CF/2/12/1
9 /CF/2/12/1 Jefry Ronny Saragih OR 24547A 5476/CF/2/12/1
10 /CF/2/12/1 Jefry Ronny Saragih OR 23985A 5476/CF/2/12/1

Atas jawaban para master diucapkan terima kasih.

Salam,

Djaja.
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar