begini boleh ndak ??
pencet tombol "memilah dan menyalin"
nah, tinggal tunggu saja... asal sabar..
Sub KAS_DOANG()
'------------------------------
' siti Vi / 31 Dec 2009
' memfilter dan mengcopy data
'------------------------------
'-- declaring...
Dim NewSheet As Worksheet
Dim dTabel As Range
Dim dHasil As Range
Dim CoLabel As Range
Dim Rh As Long, Rt As Long, nCol As Byte
'-- assignments...
Set dTabel = Sheets("Data").Range("A4").CurrentRegion
nCol = dTabel.Columns.Count
Set CoLabel = dTabel.Resize(1, nCol)
Set dTabel = dTabel.Offset(2, 0).Resize( _
'-----------
' siti Vi / 31 Dec 2009
' memfilter dan mengcopy data
'-----------
'-- declaring...
Dim NewSheet As Worksheet
Dim dTabel As Range
Dim dHasil As Range
Dim CoLabel As Range
Dim Rh As Long, Rt As Long, nCol As Byte
'-- assignments.
Set dTabel = Sheets("Data"
nCol = dTabel.Columns.
Set CoLabel = dTabel.Resize(
Set dTabel = dTabel.Offset(
dTabel.Rows.Count - 2, nCol)
Set NewSheet = Worksheets.Add
NewSheet.Move after:=Sheets(Sheets.Count)
NewSheet.Name = "New" & NewSheet.Name
Set dHasil = NewSheet.Range("A4")
'-- columns labelling..
CoLabel.Copy dHasil.Cells(-1, 1)
'-- filtering & copying --
For Rt = 1 To dTabel.Rows.Count
If InStr(1, LCase(dTabel(Rt, 2)), "kas") > 0 Then
Rh = Rh + 1
dTabel(Rt, 1).Resize(1, nCol).Copy
dHasil(Rh, 1).PasteSpecial xlPasteValuesAndNumberFormats
ElseIf InStr(1, LCase(dTabel(Rt, 3)), "kas") > 0 Then
Rh = Rh + 1
dTabel(Rt, 1).Resize(1, nCol).Copy
dHasil(Rh, 1).PasteSpecial xlPasteValuesAndNumberFormats
End If
Application.CutCopyMode = False
Next
' cipika-cipiki (rapih-rapih gitu loch..)
Columns("A:G").EntireColumn.AutoFit
Cells(1, 1).Select
End Sub
----- Original Message -----
From: Iqbal Haykal
To: XL-mania@yahoogroups.com
Sent: Thursday, December 31, 2009 10:06 AM
Subject: ]] XL-mania [[ bagaiman cara mengedit kumpulan2 jurnal untuk bahan pembuatan cashflow
alo teman-teman XL-mania, kira-kira ada yang bisa bantu ga..... sy bekerja di bagian keuangan di sebuah perusahaan swasta nah kadang-kadang harus buat laporan keuangan dari data-data jurnal yang dari januari ampe desember...nah setiap bulan biasanya ada lebih dari puluhan ribu jurnal
yang saya mau tanyakan adalah kira-kira ada ngga yah cara untuk memilah jurnal2 tersebut untuk berbagai keperluan, misal hari ini sy mau membuat laporan arus kas sehingga jurnal-jurnal yang ada berpasangan dengan KAS,KAS KECIL, KAS TELLER dan BANK bisa langsung diambil tanpa dicari satu-satu dulu...(contoh data terlampir saya cuman berikan 7000 jurnal saja...yang aslinya lebih dari ini...)
yang biasanya saya lakukan (dengan manual) memakai filter di uraian jurnal untuk kolom debitnya dan uraian jurnal untuk kolom kreditnya masing-masing di filter satu-satu dan sy hanya memilih filterkan data yang di centang saja yaitu jenis-jenis kas dan bank saja... lalu data dari hasil filter saya warnai ( sewaktu diwarnaipun mengalami kesulitan, ga tau kenapa kadang2 excelnya ga mau memunculkan warna ketika saya blok semua data filter jadinya harus diwarnaiin satu-satu) setelah diwarnai untuk jurnal debit dan kreditnya baru deh data semuanya saya munculkan lagi dan yg tidak berpasangan dengan yang sudah saya warnai saya hapus (benar-benar di hapus dari tabel), biasanya pekerjaan ini memakan waktu hampir 3-5 jam...
nah untuk memberi kemudahan saya udah lampirkan datanya sheet pertama itu data jurnal2nya, sheet yang kedua adalah data yang diinginkan.... buat yang mau ngebantuin, saya harapkan langsung saja ke email saya haykal.cui@yahoo.co.id karena entah kenapa komputer kantor ga bisa buka milis, forum, dan situs jejaring sosial lainnya....
terima kasih buat yang sudah membaca email ini
Set NewSheet = Worksheets.Add
NewSheet.Move after:=Sheets(
NewSheet.Name = "New" & NewSheet.Name
Set dHasil = NewSheet.Range(
'-- columns labelling..
CoLabel.Copy dHasil.Cells(
'-- filtering & copying --
For Rt = 1 To dTabel.Rows.
If InStr(1, LCase(dTabel(
Rh = Rh + 1
dTabel(Rt, 1).Resize(1, nCol).Copy
dHasil(Rh, 1).PasteSpecial xlPasteValuesAndNum
ElseIf InStr(1, LCase(dTabel(
Rh = Rh + 1
dTabel(Rt, 1).Resize(1, nCol).Copy
dHasil(Rh, 1).PasteSpecial xlPasteValuesAndNum
End If
Application.
Next
' cipika-cipiki (rapih-rapih gitu loch..)
Columns("A:G"
Cells(1, 1).Select
End Sub
----- Original Message -----
From: Iqbal Haykal
To: XL-mania@yahoogroup
Sent: Thursday, December 31, 2009 10:06 AM
Subject: ]] XL-mania [[ bagaiman cara mengedit kumpulan2 jurnal untuk bahan pembuatan cashflow
alo teman-teman XL-mania, kira-kira ada yang bisa bantu ga..... sy bekerja di bagian keuangan di sebuah perusahaan swasta nah kadang-kadang harus buat laporan keuangan dari data-data jurnal yang dari januari ampe desember...nah setiap bulan biasanya ada lebih dari puluhan ribu jurnal
yang saya mau tanyakan adalah kira-kira ada ngga yah cara untuk memilah jurnal2 tersebut untuk berbagai keperluan, misal hari ini sy mau membuat laporan arus kas sehingga jurnal-jurnal yang ada berpasangan dengan KAS,KAS KECIL, KAS TELLER dan BANK bisa langsung diambil tanpa dicari satu-satu dulu...(contoh data terlampir saya cuman berikan 7000 jurnal saja...yang aslinya lebih dari ini...)
yang biasanya saya lakukan (dengan manual) memakai filter di uraian jurnal untuk kolom debitnya dan uraian jurnal untuk kolom kreditnya masing-masing di filter satu-satu dan sy hanya memilih filterkan data yang di centang saja yaitu jenis-jenis kas dan bank saja... lalu data dari hasil filter saya warnai ( sewaktu diwarnaipun mengalami kesulitan, ga tau kenapa kadang2 excelnya ga mau memunculkan warna ketika saya blok semua data filter jadinya harus diwarnaiin satu-satu) setelah diwarnai untuk jurnal debit dan kreditnya baru deh data semuanya saya munculkan lagi dan yg tidak berpasangan dengan yang sudah saya warnai saya hapus (benar-benar di hapus dari tabel), biasanya pekerjaan ini memakan waktu hampir 3-5 jam...
nah untuk memberi kemudahan saya udah lampirkan datanya sheet pertama itu data jurnal2nya, sheet yang kedua adalah data yang diinginkan..
terima kasih buat yang sudah membaca email ini
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Hoo... Hoo... Hoo... Merry Christmas! Happy Holiday! |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| 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.friendster.com/xlmania atau... |
| 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 |
+-------------------------------------------------------------------+
| Hoo... Hoo... Hoo... Merry Christmas! Happy Holiday! |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| 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.friendster.com/xlmania atau... |
| 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 |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário