5 New Messages
Digest #2076
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
>
>
>
>
>
Coba sertakan bunyi error-nya apa.
Wassalam,
Kid.
On Fri, Feb 8, 2013 at 7:05 PM, tio.adjie@ptssb.
> **
>
>
>
> 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.
> Sent by: belajar-excel@
>
> 02/08/2013 04:10 PM
> Please respond to belajar-excel
>
> To: belajar-excel@
> 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_BeforeClos
> Dim intTanya As Integer
> Dim intsaveconfirm As Integer
>
> if bClose then
> exit sub
> endif
>
> intTanya = MsgBox("
> vbYesNo, "Confirmation&
> intsaveconfirm = MsgBox("
> database ?", vbYesNo, "Save Confirmation"
>
> If intTanya = vbYes Then
> If intsaveconfirm = vbYes Then
> ActiveWorkbook.
> Else
> bclose=true
> ActiveWorkbook.
> End If
> Else
> Cancel = True
> End If
> End Sub
>
> Wassalam,
> Kid.
>
>
> On Fri, Feb 8, 2013 at 1:58 PM, *tio.adjie@ptssb.
> 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_BeforeClos
> Dim intTanya As Integer
> Dim intsaveconfirm As Integer
>
> intTanya = MsgBox("
> vbYesNo, "Confirmation&
> intsaveconfirm = MsgBox("
> database ?", vbYesNo, "Save Confirmation"
>
> If intTanya = vbYes Then
> If intsaveconfirm = vbYes Then
> ActiveWorkbook.
> Else
> ActiveWorkbook.
> 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
>
>
>
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.
> **
>
>
> 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-
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"
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-
> _
>
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(
'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(
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.EntireColum
Keluar:
'pesan selesai
If Err.Number <> 0 Then
MsgBox "Error.
Else
MsgBox "Done."
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 sFormulaPenyusunRec
Dim lRecPerFile As Long
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
.Calculation = xlCalculationAutoma
End With
Set rngDT = Sheet1.Range(
sFormulaPenyusunRec
sFileTemplate = ThisWorkbook.
lRecPerFile = 19
Splitter rngDT, sFormulaPenyusunRec
With Application
.Calculation = xlCalculationAutoma
.EnableEvents = True
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Wassalam,
Kid.
2013/2/8 Gilang Droid gilang.smartdroid@
> **
>
>
> 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.
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/
2 /CF/9/12/1 Nurjani Wati OR 23993A 5467/CF/9/12/
3 /CF/6/12/1 James NB Luhu Lima OR 24368A 5470/CF/6/12/
4 Consumer Installment Rec. Housing ES 221437 5472/CF/7/12/
5 /CF/7/12/1 Tien Tini Suhartono OR 24047A 5472/CF/7/12/
6 /CF/2/12/1 Joko Amperayanto OR 24370A 5473/CF/2/12/
7 Consumer Installment Rec. Housing ES 221434 5476/CF/2/12/
8 /CF/2/12/1 Jefry Ronny Saragih OR 24113A 5476/CF/2/12/
9 /CF/2/12/1 Jefry Ronny Saragih OR 24547A 5476/CF/2/12/
10 /CF/2/12/1 Jefry Ronny Saragih OR 23985A 5476/CF/2/12/
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
---------------------------------------------------------------------
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