Rabu, 17 Oktober 2012

[belajar-excel] Digest Number 1850

15 New Messages

Digest #1850
1a
1b
Re: filter kelompok jemputan.xlsx by "Mr. Kid" nmkid.family@ymail.com
2a
Re: Search Kode 3 Digit Dari Kanan by "sapicumi" sapicumi@rocketmail.com
2c
Re: Search Kode 3 Digit Dari Kanan by "sapicumi" sapicumi@rocketmail.com
2e
Re: Search Kode 3 Digit Dari Kanan by "Mr. Kid" nmkid.family@ymail.com
4b
Re: Data Harian menjadi Sebuah JURNAL by "Mr. Kid" nmkid.family@ymail.com
5a
Re: Questioner Text Formula by "Abdi Pili" arn_doank
6a
6b

Messages

Tue Oct 16, 2012 5:22 pm (PDT) . Posted by:

"ghozi alkatiri" ghozialkatiri

karena data yang diambil dari sumber data yang mengandung data ganda maka sumber data ganda ini harus dijadikan data tunggal dulu .
selanjutnya filter yang diinginkan diambilkan dari dari sumber data baru ini .

selanjutnya lihat di attachment.

wassalam

Ghozi Alkatiri

________________________________
Dari: Kelik Pitoyo <kelik@shindengen.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 16 Oktober 2012 16:24
Judul: [belajar-excel] filter kelompok jemputan.xlsx


 
Dear Be-Exceller,
 
Mohon Bantuan para Master Excel,
Saya dapat rumus ini dari Bp. Ghozi, Makasih Pak.
Namun bila saya terapkan kenapa bisa timbul double data?
Mohon solusi, masukan dari Master.
 
Terima kasih sebelumnya,
Salam,
Kelik

Tue Oct 16, 2012 6:11 pm (PDT) . Posted by:

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

Boleh ya ikutan...

Menurut pendapat saya,
Permasalahan utama adalah membuat daftar record yang alamatnya mengandung
suatu teks tertentu.
Kebetulan atau memang sudah disusun oleh pemilik kasus (sepertinya lebih
sesuai jika data yang ada memang hasil kerja keras pemilik data) *sudah ber*
*sifat unique records*. Dan ini sudah sesuai untuk diproses sesuai
kebutuhan yaitu memfilter record berdasar kata tertentu dalam field alamat.
Dalam satu alamat bisa jadi ada banyak orang, tetapi sebagai sebuah record
harus unique. Untuk masalah ada sesorang yang sama yang memberikan 2 alamat
sehingga ada 2 record milik sesorang dengan alamat berbeda, tentu diluar
kasus ini dan hanya pemilik kasus yang tahu persis nama-nama mana saja yang
memberikan 2 alamat atau lebih.

Dengan data yang sudah bersifat unique record, maka pemfilteran berdasar
teks tertentu dalam alamat bisa dilakukan. Seluruh record yang sesuai kriteria
akan ditampilkan. Karena suatu teks dalam alamat tidak bisa dipastikan akan
konsisten ditulis dengan case tertentu (huruf besar semua terus menerus
atau huruf kecil semua terus menerus). Penggunaan fungsi Find dalam array
formula pada posting yang lalu tidak dapat memenuhi kondisi adanya
perbedaan penggunaan huruf besar dan huruf kecil. Fungsi Find bersifat case
sensitive. Untuk itu, maka sebaiknya fungsi Find diganti dengan fungsi
Search yang bersifat case insensitive.

Array formula berubah dari :
=IFERROR(INDEX($C$3:$C$294,SMALL(IF(ISNUMBER(*FIND*
(I$2,$C$3:$C$294)),ROW($C$3:$C$294)-ROW($C2)),ROW(1:1))),"")

menjadi :
=IFERROR(INDEX($C$3:$C$294,SMALL(IF(ISNUMBER(*Search*
(I$2,$C$3:$C$294)),ROW($C$3:$C$294)-ROW($C2)),ROW(1:1))),"")

Wassalam,
Kid.

2012/10/17 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

> **
>
>
> karena data yang diambil dari sumber data yang mengandung data ganda maka
> sumber data ganda ini harus dijadikan data tunggal dulu .
> selanjutnya filter yang diinginkan diambilkan dari dari sumber data baru
> ini .
>
> selanjutnya lihat di attachment.
>
> wassalam
>
> Ghozi Alkatiri
>
> ------------------------------
> *Dari:* Kelik Pitoyo <kelik@shindengen.co.id>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 16 Oktober 2012 16:24
> *Judul:* [belajar-excel] filter kelompok jemputan.xlsx
>
>
> Dear Be-Exceller,
>
> Mohon Bantuan para Master Excel,
> Saya dapat rumus ini dari Bp. Ghozi, Makasih Pak.
> Namun bila saya terapkan kenapa bisa timbul double data?
> Mohon solusi, masukan dari Master.
>
> Terima kasih sebelumnya,
> Salam,
> Kelik
>
>
>
>

Tue Oct 16, 2012 6:43 pm (PDT) . Posted by:

"Kelik Pitoyo"

Dear Mr. Kid dan Bp. Ghozi,

Sebelumnya saya ucapkan banyak terima kasih atas bantuan dan masukannya.

Iya, sepertinya saya harus buat data yang unique, walau alamat-nya sama, misal dng menambah nomor dibelakangya?..

Saya akan coba pelajari dan klo bisa dikembangkan...untuk nambah ilmu yang berguna bagi orang lain juga..

Terima kasih banyak,

Salam,

Kelik

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: 17 Oktober 2012 8:11
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] filter kelompok jemputan.xlsx

Boleh ya ikutan...

Menurut pendapat saya,
Permasalahan utama adalah membuat daftar record yang alamatnya mengandung suatu teks tertentu.
Kebetulan atau memang sudah disusun oleh pemilik kasus (sepertinya lebih sesuai jika data yang ada memang hasil kerja keras pemilik data) sudah bersifat unique records. Dan ini sudah sesuai untuk diproses sesuai kebutuhan yaitu memfilter record berdasar kata tertentu dalam field alamat. Dalam satu alamat bisa jadi ada banyak orang, tetapi sebagai sebuah record harus unique. Untuk masalah ada sesorang yang sama yang memberikan 2 alamat sehingga ada 2 record milik sesorang dengan alamat berbeda, tentu diluar kasus ini dan hanya pemilik kasus yang tahu persis nama-nama mana saja yang memberikan 2 alamat atau lebih.

Dengan data yang sudah bersifat unique record, maka pemfilteran berdasar teks tertentu dalam alamat bisa dilakukan. Seluruh record yang sesuai kriteria akan ditampilkan. Karena suatu teks dalam alamat tidak bisa dipastikan akan konsisten ditulis dengan case tertentu (huruf besar semua terus menerus atau huruf kecil semua terus menerus). Penggunaan fungsi Find dalam array formula pada posting yang lalu tidak dapat memenuhi kondisi adanya perbedaan penggunaan huruf besar dan huruf kecil. Fungsi Find bersifat case sensitive. Untuk itu, maka sebaiknya fungsi Find diganti dengan fungsi Search yang bersifat case insensitive.

Array formula berubah dari :
=IFERROR(INDEX($C$3:$C$294,SMALL(IF(ISNUMBER(FIND(I$2,$C$3:$C$294)),ROW($C$3:$C$294)-ROW($C2)),ROW(1:1))),"")

menjadi :
=IFERROR(INDEX($C$3:$C$294,SMALL(IF(ISNUMBER(Search(I$2,$C$3:$C$294)),ROW($C$3:$C$294)-ROW($C2)),ROW(1:1))),"")

Wassalam,
Kid.

2012/10/17 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

karena data yang diambil dari sumber data yang mengandung data ganda maka sumber data ganda ini harus dijadikan data tunggal dulu .

selanjutnya filter yang diinginkan diambilkan dari dari sumber data baru ini .

selanjutnya lihat di attachment.

wassalam

Ghozi Alkatiri

_____

Dari: Kelik Pitoyo <kelik@shindengen.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 16 Oktober 2012 16:24
Judul: [belajar-excel] filter kelompok jemputan.xlsx

Dear Be-Exceller,

Mohon Bantuan para Master Excel,

Saya dapat rumus ini dari Bp. Ghozi, Makasih Pak.

Namun bila saya terapkan kenapa bisa timbul double data?

Mohon solusi, masukan dari Master.

Terima kasih sebelumnya,

Salam,

Kelik

Tue Oct 16, 2012 7:22 pm (PDT) . Posted by:

"sapicumi" sapicumi@rocketmail.com

mungkin bisa diterangkan lebih rinci pak kid saya sudah mencoba memasukan
script sprti diatas namun masih saja char"*" tidak dikenali oleh VBA ato
mungkin ada solusi lain dengan menggunakan RIGHT ato MID pada pendeklarasian
kode contoh sbb:
kode = right(Range("E3").Value,3) >>saya coba juga belum bisa apakah ada
yang salah?
dan
lcari = Sheets("data").Columns("B:B").Find(Right(kode, 3)).Row >>dengan cara
ini juga tidak menghasilkan apa2
mohon solusi para master2 disini

trimakasih
jojo

--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712617.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.

Tue Oct 16, 2012 8:56 pm (PDT) . Posted by:

"aji mumpung"

coba range e3 di format dengan format text

wassalam,

-aji mumpung-

Pada 17 Oktober 2012 09:22, sapicumi <sapicumi@rocketmail.com> menulis:

> **
>
>
> mungkin bisa diterangkan lebih rinci pak kid saya sudah mencoba memasukan
> script sprti diatas namun masih saja char"*" tidak dikenali oleh VBA ato
> mungkin ada solusi lain dengan menggunakan RIGHT ato MID pada
> pendeklarasian
> kode contoh sbb:
> kode = right(Range("E3").Value,3) >>saya coba juga belum bisa apakah ada
> yang salah?
> dan
> lcari = Sheets("data").Columns("B:B").Find(Right(kode, 3)).Row >>dengan
> cara
> ini juga tidak menghasilkan apa2
> mohon solusi para master2 disini
>
> trimakasih
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712617.html
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>

Tue Oct 16, 2012 9:28 pm (PDT) . Posted by:

"sapicumi" sapicumi@rocketmail.com

trimakasih pak aji atas tanggapanya sya jg sudah mencoba saran pak aji dengan
mengganti format "E3" dengan format text namun ttp saja tidak bisa maksut
saya tidak bisa disini tidak sesuai dengan apa yang saya inginkan mungkin
saya ulangi saja maksut saya sbb

WR-004-001 >>kode
-ketika saya mengetikan 001 di kolom E3 dia akan menemukan data
-jika saya mengetikan WR atau WR-004 dia tidak akan pernah menemukan apapun
-dengan kata lain saya hanya ingin 3 digit dibelakang yang bisa dicari
dengan menghiraukan abjad didepanya
jadi mungkin gini ya alurnya
-ketika saya memasukan "001" maka akan ada misal msgbox data anda ada
-ketika saya memasukan "WR" atau "WR-004" misal msgbox data anda tidak ada

untuk lampiran bisa diambil dari lampiran saya di awal post

trimakasih

jojo

--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712620.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.

Tue Oct 16, 2012 9:38 pm (PDT) . Posted by:

"aji mumpung"

oke.. saya sudah menangkap point-nya.. dan sudah kepikiran caranya..

tetapi berhubung lagi agak sibuk..
belum semua kambing dan sapi saya kasih makan.. maukah bersabar menunggu
sampai nanti bada magrib..
setelah saya selesai nyari rumput dan angon (menggembalakan) kambing dan
sapi2 saya

^_^

wassalam,

-aji mumpung-

Pada 17 Oktober 2012 11:28, sapicumi <sapicumi@rocketmail.com> menulis:

> **
>
>
> trimakasih pak aji atas tanggapanya sya jg sudah mencoba saran pak aji
> dengan
> mengganti format "E3" dengan format text namun ttp saja tidak bisa maksut
> saya tidak bisa disini tidak sesuai dengan apa yang saya inginkan mungkin
> saya ulangi saja maksut saya sbb
>
> WR-004-001 >>kode
> -ketika saya mengetikan 001 di kolom E3 dia akan menemukan data
> -jika saya mengetikan WR atau WR-004 dia tidak akan pernah menemukan apapun
> -dengan kata lain saya hanya ingin 3 digit dibelakang yang bisa dicari
> dengan menghiraukan abjad didepanya
> jadi mungkin gini ya alurnya
> -ketika saya memasukan "001" maka akan ada misal msgbox data anda ada
> -ketika saya memasukan "WR" atau "WR-004" misal msgbox data anda tidak ada
>
> untuk lampiran bisa diambil dari lampiran saya di awal post
>
> trimakasih
>
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712620.html
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>

Wed Oct 17, 2012 12:43 am (PDT) . Posted by:

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

Ubah bagian :
Dim kode As String
Dim lcari As Long
kode = UCase(Trim(Range("E3").Value))
lcari = 0
lcari = Sheets("data").Columns("B:B").Find(kode).Row

menjadi :
Dim kode As String
Dim lcari As Long

on error resume next
kode = right$(UCase(Trim$(Range("E3").Value)),3)
lcari = 0
lcari = Sheets("data").Columns("B:B").Find( "*" & kode).Row
msgbox "ditemukan pada baris Excel ke : " & lcari , vbinformation , "Find"
exit sub

Wassalam,
Kid.

2012/10/17 sapicumi <sapicumi@rocketmail.com>

> **
>
>
> trimakasih pak aji atas tanggapanya sya jg sudah mencoba saran pak aji
> dengan
> mengganti format "E3" dengan format text namun ttp saja tidak bisa maksut
> saya tidak bisa disini tidak sesuai dengan apa yang saya inginkan mungkin
> saya ulangi saja maksut saya sbb
>
> WR-004-001 >>kode
> -ketika saya mengetikan 001 di kolom E3 dia akan menemukan data
> -jika saya mengetikan WR atau WR-004 dia tidak akan pernah menemukan apapun
> -dengan kata lain saya hanya ingin 3 digit dibelakang yang bisa dicari
> dengan menghiraukan abjad didepanya
> jadi mungkin gini ya alurnya
> -ketika saya memasukan "001" maka akan ada misal msgbox data anda ada
> -ketika saya memasukan "WR" atau "WR-004" misal msgbox data anda tidak ada
>
> untuk lampiran bisa diambil dari lampiran saya di awal post
>
> trimakasih
>
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712620.html
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>

Tue Oct 16, 2012 7:47 pm (PDT) . Posted by:

"aji mumpung"

ikutan..
mungkin bukan solusi optimal, karena pake kolom bantu yang dijalankan
dengan macro hehehe
terakhir.. kolom bantunya dihapus lagi jadi di detail RAB bersih dari kolom
bantu

cara ini terinspirasi dari solusi Master Kid yang sebelumnya menawarkan
solusi dengan formula

codenya ditulis dalam sebuah modul dan dijalankan dengan menekan sebuah
tombol

Option Explicit
' ======================================
' coded by: Aji Mumpung
' terinspirasi dari formula master Kid
' kaki gunung merbabu, 17 Oktober 2012
' sambil angon kambing & nyari rumput
' ======================================
Sub AnalisaRAB()
Dim hdIdAhsDtl, hdIdAhsRab As Range
Dim idxRowDtl, idxRowAHS As Long
Dim r, RecNo, Htg As Long

Application.ScreenUpdating = False
Set hdIdAhsDtl = Sheet2.Range("b9")
If Sheet2.Range("b9").Value = "" Then
MsgBox "Data detail ARB tidak ditemukan", vbOKOnly, "Pesan"
Exit Sub
End If
Set hdIdAhsRab = Sheet1.Range("c6")
idxRowAHS = Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row
idxRowDtl = Sheet2.Cells.SpecialCells(xlCellTypeLastCell).Row
For r = 9 To idxRowDtl
Sheet2.Select
If Cells(r, 2) = "" Then
Cells(r, 11).Value = Cells(r - 1, 11).Value
Else
Cells(r, 11).Value = Cells(r - 1, 11).Value + 1
End If
If Cells(r - 1, 11).Value = Cells(r, 11).Value Then
Cells(r, 12).Value = Cells(r - 1, 12).Value
Else
Cells(r, 12).Value =
Application.WorksheetFunction.Index(Range(Sheet1.Cells(6, 5),
Sheet1.Cells(idxRowAHS, 5)), _
Application.WorksheetFunction.Match(Sheet2.Cells(r, 2),
Range(Sheet1.Cells(6, 3), Sheet1.Cells(idxRowAHS, 3)), 0))
End If
If Cells(r, 12).Value <> 0 Then
Range(Cells(r, 2), Cells(r, 10)).Copy
Sheet3.Select
Range("c8").Select
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, -1).Select
Else
ActiveCell.End(xlDown).Offset(1, -1).Select
End If
ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
End If
Next r
Sheet2.Select
Range("k:l").Delete
Application.ScreenUpdating = True
End Sub

wassalam,

-aji mumpung-
#lagi angon sambil cari rumput#

Pada 16 Oktober 2012 19:11, luthfi amin <luthfie_27@yahoo.co.id> menulis:

> **
>
>
> waduh maaf master kid,filenya kegedean gak lihat,maklum baru jadi
> anggota..
>
> dengan solusi sumproduct sudah sangat membantu,tapi analisa saya banyak
> master ada sekitar 650 analisa..
>
> ada tidak formula atau macro yang lebih efektif??
>
> trimakasih
>
>
>

Tue Oct 16, 2012 11:03 pm (PDT) . Posted by:

"luthfie_27" luthfie_27

wah terim kasih banyak neh master aji,dikasih pencerahan dengan macro,cb saya pelajarin dulu..mohon bimbinganya master.

--- In belajar-excel@yahoogroups.com, aji mumpung <pupung1986@...> wrote:
>
> ikutan..
> mungkin bukan solusi optimal, karena pake kolom bantu yang dijalankan
> dengan macro hehehe
> terakhir.. kolom bantunya dihapus lagi jadi di detail RAB bersih dari kolom
> bantu
>
> cara ini terinspirasi dari solusi Master Kid yang sebelumnya menawarkan
> solusi dengan formula
>
> codenya ditulis dalam sebuah modul dan dijalankan dengan menekan sebuah
> tombol
>
> Option Explicit
> ' ======================================
> ' coded by: Aji Mumpung
> ' terinspirasi dari formula master Kid
> ' kaki gunung merbabu, 17 Oktober 2012
> ' sambil angon kambing & nyari rumput
> ' ======================================
> Sub AnalisaRAB()
> Dim hdIdAhsDtl, hdIdAhsRab As Range
> Dim idxRowDtl, idxRowAHS As Long
> Dim r, RecNo, Htg As Long
>
> Application.ScreenUpdating = False
> Set hdIdAhsDtl = Sheet2.Range("b9")
> If Sheet2.Range("b9").Value = "" Then
> MsgBox "Data detail ARB tidak ditemukan", vbOKOnly, "Pesan"
> Exit Sub
> End If
> Set hdIdAhsRab = Sheet1.Range("c6")
> idxRowAHS = Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row
> idxRowDtl = Sheet2.Cells.SpecialCells(xlCellTypeLastCell).Row
> For r = 9 To idxRowDtl
> Sheet2.Select
> If Cells(r, 2) = "" Then
> Cells(r, 11).Value = Cells(r - 1, 11).Value
> Else
> Cells(r, 11).Value = Cells(r - 1, 11).Value + 1
> End If
> If Cells(r - 1, 11).Value = Cells(r, 11).Value Then
> Cells(r, 12).Value = Cells(r - 1, 12).Value
> Else
> Cells(r, 12).Value =
> Application.WorksheetFunction.Index(Range(Sheet1.Cells(6, 5),
> Sheet1.Cells(idxRowAHS, 5)), _
> Application.WorksheetFunction.Match(Sheet2.Cells(r, 2),
> Range(Sheet1.Cells(6, 3), Sheet1.Cells(idxRowAHS, 3)), 0))
> End If
> If Cells(r, 12).Value <> 0 Then
> Range(Cells(r, 2), Cells(r, 10)).Copy
> Sheet3.Select
> Range("c8").Select
> If ActiveCell.Offset(1, 0) = "" Then
> ActiveCell.Offset(1, -1).Select
> Else
> ActiveCell.End(xlDown).Offset(1, -1).Select
> End If
> ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
> Application.CutCopyMode = False
> End If
> Next r
> Sheet2.Select
> Range("k:l").Delete
> Application.ScreenUpdating = True
> End Sub
>
>
> wassalam,
>
> -aji mumpung-
> #lagi angon sambil cari rumput#
>
> Pada 16 Oktober 2012 19:11, luthfi amin <luthfie_27@...> menulis:
>
> > **
> >
> >
> > waduh maaf master kid,filenya kegedean gak lihat,maklum baru jadi
> > anggota..
> >
> > dengan solusi sumproduct sudah sangat membantu,tapi analisa saya banyak
> > master ada sekitar 650 analisa..
> >
> > ada tidak formula atau macro yang lebih efektif??
> >
> > trimakasih
> >
> >
> >
>

Tue Oct 16, 2012 10:29 pm (PDT) . Posted by:

"ratim sugianto" ratimsugianto



pak Kids, met siang... mau nyambung lagi dengan subjek diatas yah pak
di sheet "transaksi" kan suatu saat datanya bisa bertambah jumlahnya, saya coba tambah transaksi dan juga tambah definisi di sheet "Data", tapi kenapa yach ada 3 kolom di sheet "Jurnal Harian" yang muncul NA#.
Pada Kolom H, I  da J baris 132 rumusnya itu khan :
=IF($D132="Dr";VLOOKUP(IF($B132;$C132;$C131)&"*";DATA!$C$3:$F$76;{2\3\4};0);"")
kenapa di bagian DATA!$C$3:$F$76;{2\3\4} ini baris $F$76 tidak bisa diedit pak. jika mau diedit misal saya ganti dengan $F$78 (utk menyesuaikan tambahan definisi di sheet DATA) kok tidak mau yah.. malah muncul pesan "You Cannot change part of an array"
terus kalo "{2\3\4} yg ada dalam rumus itu, artinya apa pak?
Terlampir saya kirim kembali file yang sdh saya coba isi tambahan transaksi.. dan saya warnain yg errornya (NA#)
salam
RSugianto

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 16 Oktober 2012 0:15
Judul: Re: [belajar-excel] Data Harian menjadi Sebuah JURNAL


 
Saya kirim file yang baru saja.

Moga-moga udah gak banyak error-nya.

Wassalam,
Kid.

2012/10/15 Mr. Kid <mr.nmkid@gmail.com>

Masya Allah,
>
>Ada yang salah formulanya Pak,
>Di G2seharusnya memiliki formula :
>=IF($D3="Dr",0,IF($D3="Cr",MAX(F2:F4),""))
>
>Maaf, gak teliti.
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>2012/10/15 ratim sugianto <ratimsugianto@yahoo.co.id>
>
>
>> 
>>Mr. Kid makasih sebelumnya atas bantuannya.
>>
>>sementara memang saya tidak menggunakan kdmitra, karena nantinya akan saya tambahkan utk transaksi yang datanya tidak ada kode mitranya.
>>
>>mas Kid, kenapa yach utk yang pembayaran itu sebagaimana hasilnya dalam sheet Jurnal harian, kok jurnal no 9 Kredit nya tidak muncul nilai rupiahnya yach, sementara Debet nya sudah terisi. apa karena pengaruh di sheet transaksi tidak pake kdmitra mas?
>>
>>
>>wassalam
>>r sugianto
>>
>>
>>
>>
>>________________________________
>> Dari: Mr. Kid <mr.nmkid@gmail.com>
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Senin, 15 Oktober 2012 19:06
>>Judul: Re: [belajar-excel] Data Harian menjadi Sebuah JURNAL
>>
>>
>>
>> 
>>Coba file terlampir.
>>
>>Wassalam,
>>Kid.
>>
>>
>>2012/10/15 ratim sugianto <ratimsugianto@yahoo.co.id>
>>
>>
>>> 
>>>Halo para master xl
>>>selamat sore.
>>>Sebagaimana  disebut dalam subjek diatas, mohon kiranya bantuan formula utk mendefinisikan sebuah data transaksi harian (rekapitulasi harian) yang saya ambil dari copy paste dari aplikasi lain menjadi bentuk "Jurnal Harian"
>>>Data ini saya simpan di sheet "Transaksi", kemudian untuk keperluan penjurnalan di aplikasi lain, dari data ini harus mengisi ke sheet "Jurnal Harian" dengan criteria dan aturan yang sudah ditetapkan di sheet "Data" yang didalamnya berupa pemetaan jika transkasi A, maka harus dijurnal ke jurnal B, dan seterusnya.
>>>Utk lebih jelasnya, saya lampirkan attachmennya.
>>>Atas bantuan baik dalambentuk rumus/formula ataupun langsung menyempurnakan file yang saya attach, saya ucapkan banyak terima kasih.
>>>Wassalam
>>>R.
Sugianto
>>>
>>
>>
>>
>

Wed Oct 17, 2012 12:35 am (PDT) . Posted by:

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

Array formula dalam array blok.
>> Edit formula di H sampai J, tekan CTRL SHIFT ENTER
>> jika hanya tekan ENTER, maka tidak bisa karena harus berupa array fo
rmula.

{2\3\4} [dengan regional setting Indonesia ~ di control panel windows ~
untuk komputer dengan setting Inggris {2,3,4}]
>> Adalah nomor indeks kolom yang akan diambil dari tabel referensi lookup
yang digunakan oleh vLookUp.
>> Artinya kolom ke-2, ke-3, ke-4
>> Hasilnya akan ditulis ke kolom H, I, J

Pastikan bahwa tulisan kolom BILLER dalam sheet Transaksi pasti sama persis
dengan tulisan di sheet Data.

Wassalam,
Kid.

2012/10/17 ratim sugianto <ratimsugianto@yahoo.co.id>

> **
>
>
>
> pak Kids, met siang... mau nyambung lagi dengan subjek diatas yah pak
> di sheet "transaksi" kan suatu saat datanya bisa bertambah jumlahnya, saya
> coba tambah transaksi dan juga tambah definisi di sheet "Data", tapi kenapa
> yach ada 3 kolom di sheet "Jurnal Harian" yang muncul NA#.
> Pada Kolom H, I da J baris 132 rumusnya itu khan :
>
> =IF($D132="Dr";VLOOKUP(IF($B132;$C132;$C131)&"*";DATA!$C$3:$F$76;{2\3\4};0);"")
> kenapa di bagian DATA!$C$3:$F$76;{2\3\4} ini baris $F$76 tidak bisa diedit
> pak. jika mau diedit misal saya ganti dengan $F$78 (utk menyesuaikan
> tambahan definisi di sheet DATA) kok tidak mau yah.. malah muncul pesan
> "You Cannot change part of an array"
> terus kalo "{2\3\4} yg ada dalam rumus itu, artinya apa pak?
> Terlampir saya kirim kembali file yang sdh saya coba isi tambahan
> transaksi.. dan saya warnain yg errornya (NA#)
> salam
> RSugianto
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 16 Oktober 2012 0:15
> *Judul:* Re: [belajar-excel] Data Harian menjadi Sebuah JURNAL
>
>
> Saya kirim file yang baru saja.
>
> Moga-moga udah gak banyak error-nya.
>
> Wassalam,
> Kid.
>
> 2012/10/15 Mr. Kid <mr.nmkid@gmail.com>
>
> Masya Allah,
>
> Ada yang salah formulanya Pak,
> Di G2 seharusnya memiliki formula :
> =IF($D3="Dr",0,IF($D3="Cr",MAX(F2:F4),""))
>
> Maaf, gak teliti.
>
> Wassalam,
> Kid.
>
>
>
>
> 2012/10/15 ratim sugianto <ratimsugianto@yahoo.co.id>
>
> **
>
> Mr. Kid makasih sebelumnya atas bantuannya.
> sementara memang saya tidak menggunakan kdmitra, karena nantinya akan saya
> tambahkan utk transaksi yang datanya tidak ada kode mitranya.
> mas Kid, kenapa yach utk yang pembayaran itu sebagaimana hasilnya dalam
> sheet Jurnal harian, kok jurnal no 9 Kredit nya tidak muncul nilai
> rupiahnya yach, sementara Debet nya sudah terisi. apa karena pengaruh di
> sheet transaksi tidak pake kdmitra mas?
>
> wassalam
> r sugianto
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Senin, 15 Oktober 2012 19:06
> *Judul:* Re: [belajar-excel] Data Harian menjadi Sebuah JURNAL
>
>
> Coba file terlampir.
>
> Wassalam,
> Kid.
>
> 2012/10/15 ratim sugianto <ratimsugianto@yahoo.co.id>
>
> **
>
> Halo para master xl
> selamat sore.
> Sebagaimana disebut dalam subjek diatas, mohon kiranya bantuan formula
> utk mendefinisikan sebuah data transaksi harian (rekapitulasi harian) yang
> saya ambil dari copy paste dari aplikasi lain menjadi bentuk "Jurnal Harian"
> Data ini saya simpan di sheet �Transaksi�, kemudian untuk keperluan
> penjurnalan di aplikasi lain, dari data ini harus mengisi ke sheet �Jurnal
> Harian� dengan criteria dan aturan yang sudah ditetapkan di sheet �Data�
> yang didalamnya berupa pemetaan jika transkasi A, maka harus dijurnal ke
> jurnal B, dan seterusnya.
> Utk lebih jelasnya, saya lampirkan attachmennya.
> Atas bantuan baik dalambentuk rumus/formula ataupun langsung
> menyempurnakan file yang saya attach, saya ucapkan banyak terima kasih.
> Wassalam
> R. Sugianto
>
>
>
>
>
>
>
>
>
>

Tue Oct 16, 2012 11:02 pm (PDT) . Posted by:

"Abdi Pili" arn_doank

Iya mas bro.
Tak usahakan dulu dapatkan error nya.

Salam,
AB
"Cogito ergo sum, ergo sum prosperitas"

-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 16 Oct 2012 18:45:46
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Questioner Text Formula

Sama-sama.

Jadi, tadi agak lama karena mencoba mencari errornya sendiri to...
dan hasilnya sukses.

Wassalam,
Kid.


2012/10/16 Abdi Pili <abdist.electrical@gmail.com>

> **
>
>
> ** Mr kid,
>
> Masalahnya sudah saya temukan di formula yg tdk sesuai pada sheet lainnya.
> Mohon maaf ya bos. :)
>
> Thanks utk perhatian dan bantuannya.
>
> Salam,
>
> "Cogito ergo sum, ergo sum prosperitas"
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Tue, 16 Oct 2012 15:51:50 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Questioner Text Formula
>
>
>
> Bisa dilampirkan filenya ? (Max 250 KB)
>
> Wassalam,
> Kid.
>
> 2012/10/16 Abdi Pili <abdist.electrical@gmail.com>
>
>> **
>>
>>
>> ** Mr. Kid,
>>
>> Utk item nomor 4, saat di copas ke kanan dan ke bawah (bukan workbook dr
>> mr. Kid) terdapat error reference pada row D10:P10.
>> Mohon penjelasan dan bantuannya.
>>
>> Terima kasih.
>>
>>
>> Salam,
>> Abdi
>> "Cogito ergo sum, ergo sum prosperitas"
>> ------------------------------
>> *From: * "Kid Mr." <mr.nmkid@gmail.com>
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Fri, 12 Oct 2012 22:10:13 +0700
>> *To: *<belajar-excel@yahoogroups.com>
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] Questioner Text Formula
>>
>>
>>
>> Hai Abdi,
>>
>>
>> Hampir seluruh formula pada file terlampir telah divalueskan untuk
>> mengurangi size. Mohon maaf jika hal ini tidak dikehendaki.
>> btw,
>> Formula utama untuk menyusun report :
>> 1. sheet Form 7 Days Planning pada kolom DV
>> >> Tugasnya sebagai area untuk lookup berdasar kode PIC.
>> >> kolom ini berisi data PIC diikuti indeks kolom activity-nya. PIC pada
>> kolom ini diset selalu terdiri atas 5 karakter.
>> >> formula : (pada DV4 dan copy formula kebawah)
>> =IF(COUNTIF(DI4:DU4,"<>"),LEFT(LOOKUP("zz",DI4:DU4)&"
>> ",5)&LOOKUP("zz",DI4:DU4,COLUMN($DI$1:$DU$1)-COLUMN($DH$1)),0)
>>
>> 2. sheet Daily Surveillance pada kolom A (hasil insert column)
>> >> Tugasnya membuat daftar nomor indeks baris data yang sesuai dengan
>> pilihan user pada nama PIC nya
>> >> Jenisnya array formula, jadi setiap penulisan formula (tanpa {} )
>> diakhir dengan menekan CTRL SHIFT ENTER (bukan hanya ENTER saja)
>> >> array formula pada A8 (copy kebawah)
>> =SMALL(IF(ISNUMBER(FIND($C$2,'Form 7 Days
>> Planning'!$DV$4:$DV$122)),ROW('Form 7 Days
>> Planning'!$DV$4:$DV$122)-ROW('Form 7 Days Planning'!$DV$3)),ROW()-ROW($A$7))
>>
>> 3. Pengambilan data Surveillance Plan dan GS/Area di sheet Daily
>> Surveillance (kolom B dan C karena sudah ada insert kolom A)
>> >> Dengan formula Index yang barisnya merujuk pada nilai hasil kolom A
>> >> Contoh untuk kolom B (cell B8) : [sesuaikan rujukan kolom pada sheet
>> datanya]
>> =IF(ISNUMBER($A8),INDEX('Form 7 Days Planning'!A$4:A$123,$A8),"")
>>
>> 4. Area High Risk Activity to be Supervised di sheet Daily Surveillance
>> >> Membandingkan header (baris 7) dengan item activity untuk hasil baris
>> tersebut
>> >> Item activity untuk baris tersebut diambil dengan fungsi Index ke
>> header activity pada sheet Form 7 Days Planning dengan rujukan kolom adalah
>> sisi nilai yang ada dalam kolom DV di indeks data ke- nilai kolom A sheet
>> Daily Surveillance
>> >> Contoh formula untuk cell D8 (copy ke kanan dan bawah)
>> =IF(ISNUMBER($A8),IF(INDEX('Form 7 Days
>> Planning'!$DI$1:$DU$1,1,1*MID(INDEX('Form 7 Days
>> Planning'!$DV$4:$DV$122,$A8),6,9))=D$7,"X",""),"")
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/10/12 aron doank <abdist.electrical@gmail.com>
>>
>>> **
>>>
>>>
>>> Be-Exceller,
>>>
>>> Mohon informasinya.
>>> Data yang diinginkan adalah mendapatkan item pada surveilance plan
>>> (kolom A
>>> sheet daily surveilance) dari item working plan (kolom A sheet form 7
>>> daily
>>> planning) berdasarkan masing-masing initial pada B2 sheet daily
>>> surveilance.
>>> Sehingga jika diganti nama pada B1 maka semua item surveilance yang
>>> muncul
>>> berurutan hanya untuk nama tsb saja (tidak muncul #NA lagi).
>>> Terlampir yang saya maksudkan.
>>>
>>> Satu lagi pertanyaan, apakah ada formula/rumus untuk menghilangkan angka
>>> dari text campuran angka dan teks seperti 3425TIH7945 dimana posisi teks
>>> terhadap huruf acak.
>>>
>>> Sebelumnya terima kasih.
>>>
>>> Salam hangat,
>>> Abdi
>>>
>>> "Cogito Ergo Sum, Ergo Sum Prosperitas"
>>>
>>>
>>
>
>

Wed Oct 17, 2012 12:08 am (PDT) . Posted by:

"Bagus" bagus4bls

Dear Pak Thoha;

Apakah seperti file terlampir..?

Bagus

----- Original Message -----
From: ngademin Thohari
To: belajar-excel@yahoogroups.com
Sent: Monday, October 15, 2012 6:21 PM
Subject: [belajar-excel] trial material substore gudang

be-exceller

saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya

Terima kasih atas dukungannya

amin

Wed Oct 17, 2012 12:44 am (PDT) . Posted by:

"ngademin Thohari" ngademinth

iya, pak seperti yang terlampir

akan saya kembangkan lagi dan saya sajikan ke forum

terima kasih atas supportnya

Dwi Amin

________________________________
Dari: Bagus <bagus@kingjim.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 17 Oktober 2012 14:05
Judul: Re: [belajar-excel] trial material substore gudang


 

Dear Pak Thoha;
 
Apakah seperti file terlampir..?
 
 
Bagus
 
 
----- Original Message -----
>From: ngademin Thohari
>To: belajar-excel@yahoogroups.com
>Sent: Monday, October 15, 2012 6:21 PM
>Subject: [belajar-excel] trial material substore gudang
>

>be-exceller
>
>
>saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
>
>
>
>
>Terima kasih atas dukungannya
>
>
>
>
>amin
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