Kamis, 17 Januari 2013

[belajar-excel] Digest Number 2029

Milis Belajar Microsoft Excel

13 New Messages

Digest #2029
1a
Re: Searching macro error by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Setting Excel 2007 by "Mr. Kid" nmkid.family@ymail.com
4a
5a
Re: Max panjang karakter di sel Excel by "Mr. Kid" nmkid.family@ymail.com
6a
Re: Kasus Jadual by "Mr. Kid" nmkid.family@ymail.com
7a
Re: menambah data denganUseForm by "Mr. Kid" nmkid.family@ymail.com
8a
Re: (tanya) Formula untuk pembiayaan by "Mr. Kid" nmkid.family@ymail.com
9a
Re: Setting Add In di Excel 2007 by "Mr. Kid" nmkid.family@ymail.com
10a
Re: format angka yang aneh.... by "Mr. Kid" nmkid.family@ymail.com
12a
Re: Absensi by "Mr. Kid" nmkid.family@ymail.com
13a
Re: Cara menggunakan SUMIF atau SUMPRODUCT! by "Mr. Kid" nmkid.family@ymail.com

Messages

Thu Jan 17, 2013 4:43 am (PST) . Posted by:

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

Coba tambahkan
.columncount=6 '6 adalah jumlah kolom yang ingin digunakan
sebelum .additem

Wassalam,
Kid.

On Wed, Jan 16, 2013 at 12:00 PM, Wasis Zain wasis.zain@yahoo.co.id> wrote:

> **
>
>
> Dear Para Mater
> saya mempunya sedikit masalah ini pada menu searching pada macro vba saya
> saya tidak bisa menambah kolom hasil pencariannya yang 5 kolom saya
> jadikan 6 kolom, kodenya ini
>
>
> codenya ni
>
> Sub TampilkanSemua()
>
> Set wsDtbsPlgn = Sheets("DatabasePelanggan")
>
> listCari.Clear
>
> With listCari
> .AddItem
> .List(.ListCount - 1, 0) = "NO. PO"
> .List(.ListCount - 1, 1) = "NO. PR"
> .List(.ListCount - 1, 2) = "NO. WO"
> .List(.ListCount - 1, 3) = "NAMA BARANG"
> .List(.ListCount - 1, 4) = "SPECIFICATION"
> .List(.ListCount - 1, 5) = "tes"
> .ColumnWidths = 70 & ";" & 70 & ";" & 70 & ";" & _
> 150 & ";" & 170
> End With
>
> With wsDtbsPlgn
> Set rgTampil = wsDtbsPlgn.Range("KodePelanggan"). _
> SpecialCells(xlCellTypeVisible)
> For Each sTampil In rgTampil
> With listCari
> .AddItem sTampil.Value
> .List(.ListCount - 1, 0) = sTampil.Value
> .List(.ListCount - 1, 1) = sTampil.Offset(0, 1).Value
> .List(.ListCount - 1, 2) = sTampil.Offset(0, 2).Value
> .List(.ListCount - 1, 3) = sTampil.Offset(0, 3).Value
> .List(.ListCount - 1, 4) = _
> Format(sTampil.Offset(0, 5).Value, "#,##0")
> .List(.ListCount - 1, 5) = _
> Format(sTampil.Offset(0, 5).Value, "#,##0")
> End With
> Next sTampil
> End With
>
> End Sub
>
>
> ketika saya tambah ";" & 300
>
> With listCari
> .AddItem
> .List(.ListCount - 1, 0) = "NO. PO"
> .List(.ListCount - 1, 1) = "NO. PR"
> .List(.ListCount - 1, 2) = "NO. WO"
> .List(.ListCount - 1, 3) = "NAMA BARANG"
> .List(.ListCount - 1, 4) = "SPECIFICATION"
> .List(.ListCount - 1, 5) = "tes"
> .ColumnWidths = 70 & ";" & 70 & ";" & 70 & ";" & _
> 150 & ";" & 170 ";" & 300
> End With
>
>
> ini malah eror
>
> terimakasih
>
>
>

Thu Jan 17, 2013 4:52 am (PST) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Coba pada D7 sheet hasil diberi array formula :
=SUM(IF(ISNUMBER('GS AMB _ aop'!F$7:F$415),'GS AMB _ aop'!F$7:F$415)*('GS
AMB _ aop'!$D$7:$D$415=$C7)*('GS AMB _ aop'!$E$7:$E$415='GS AMB _
aop'!$E$8))

Wassalamu'alaikum Wr. Wb.
Kid.

2013/1/16 Mulki mulki@aop.component.astra.co.id>

> **
>
>
> **
> Assalamu'alaikum wr. wb.
>
> Selamat siang ...
>
> Mohon bantuan pencerahanya dari rekan2 B-Xlers atas kasus saya, file
> terlampir.
>
> Saya ingin membuat Laporan yg sumber datanya terdpt pada SHEET GS AMB_aop.
> Terlihat Data pada Sheet tersbt di kelompokan ke dalam 3 Group Product yg
> TOTAL-nya bisa dilihat pada yg diarsir warna PINK spt : GS-AMB (AO-Cust)
> Conventional, GS-AMB (AO-Cust) MF JIS & GS-AMB (AO-Cust) MF DIN
>
> 1. Bagaimana cara menggabung ke-3 group product tersbt dlm 1 laporan di
> atas yg di urut berdasarkan nama negara, Quantity (PCS) dan Bulan ?
> 2. Data yg ingin di gabungkan adalah pada Data2 yg di arsir warna biru.
>
>
> Note : Tadinya saya sudah membuat dg rumus SUMPRODUCT dan saya sudah buat
> kolom DUMMY AREA di SHEET GS AMB_aop juga field referensi QUANTITY (PCS) di
> sheet Report by QTY (lihat paling atas) tp hasilnya ERROR
>
> Atas bantuan dan pencerahannya saya haturkan banyak terimakasih.
>
>
> Wassalam,
> Mulki
>
>
>

Thu Jan 17, 2013 4:57 am (PST) . Posted by:

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

Mohon tidak menyertakan cc.

Hai Ally,

Mungkinkah ada VBA atau addin yang aktif ?
atau mungkin bisa dilampirkan file tersebut dengan mengubah seluruh datanya
menjadi dummy dan memotong data hanya beberapa baris 1 sheet isi dan 1
sheet kosong.

Wassalam,
Kid.

2013/1/16 Christina Herisatsiwi cherisatsiwi@yahoo.com>

> **
>
>
> Dear Teman2,
>
> Saya mau tanya solusi atas masalah saya. Aplikasi excel pada komputer saya
> tidak bisa berfungsi mengcopi cell yang ada rumusnya ke worksheet yang
> berbeda. Padahal isi dari kedua worksheet sama persis.
> Mohon bantuan mungkin setting excel saya ada yang salah.
> Atas perhatian teman2 saya ucapkan terima kasih
>
> Salam,
> Ally
>
>
>

Thu Jan 17, 2013 5:08 am (PST) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Sebelum menjawab,

1. bisa diberi contoh beberapa record yang isian databasenya sudah terisi semua kolom?

sekedar saran dalam penyusunan databasenya:

2. DataAnakInf1, DataAnakInf2 , dst... tidak dipisah masing-masing ke dalam sheet yang berbeda. Cukup satu sheet saja

demikian juga untuk DataPAInf1, DataPAInf2, DataPAInf3...dst

jika ada contohnya akan saya jelaskan maksud saya yang nomer #2

thanks

-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Nori Z
Sent: Thursday, January 17, 2013 3:07 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .

Dear Master Zainul

Terimakasih untuk solusinya,

Ini berjalan dengan baik, merujuk ke workbook dan sheet bersesuaian dan juga bisa langsung menyimpan hasil update nya dari file hasil rujukan/akses tersebut .

Thanks yaa..

Tapi, bagaimana solusi untuk re-name sheet yang kosong atau belum ada dan kemudian meng-copy master table nya? (ketika misalnya di sheet Utama didobel klik pada sel DataAnakInf3 , namun sheet dimaksud belum ada pada workbook DataAnak, apakah dengan macro bisa create sheet baru dengan nama sesuai sel yang didobel klik itu? dan kemudian melakukan pencopy-an master table? ) Demikian juga pada kolom 'Informasi tentang status pekerjaan anak' . Apakah memungkinkan jika pake makro? Ataukah mesti manual gitu? Hikss.. kalo manual mah,, mesti create ratusan tabel dan rename sheet :( ....

Mohon bantuannya..

Makasih...

Best,

Nori.

_____

From: zainul_ulum[at]yahoo[dot]com zainul_ulum@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 17, 2013 10:45 AM
Subject: RE: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .

Maaf baru bisa menjawab:
Terlampir solusi alternative dari saya.

Letakkan kode ini di sheet utama
'===
Option Explicit
Const DATA_ANAK As String = "DataAnak.xlsx"
Const DATA_PA As String = "DataPA.xlsx"
Const KOLOM_ID As String = "D"
Const KOLOM_DOUBLE_CLICK As String = "J:K"
Dim LokasiFile As String
Dim wbDataAnak As Workbook, wbDataPa As Workbook

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
LokasiFile = ThisWorkbook.Path & "\" 'mengambil lokasi folder, semua files diletakkan di semua folder
Dim sht As Worksheet
If Not Intersect(Target, Columns(KOLOM_DOUBLE_CLICK)) Is Nothing Then
Select Case Target.Column
Case 10 'kolom J: DataAnak
'buka data base
On Error Resume Next
Set wbDataAnak = Workbooks(DATA_ANAK)
If Err.Number Then
Set wbDataAnak = Workbooks.Open(LokasiFile & DATA_ANAK)
Err.Clear
End If

With wbDataAnak
.Activate
Set sht = .Worksheets(Target.Value)
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & "tidak ada"
Else
sht.Activate
End If
End With
Case 11 'kolom K: DataPA

'buka data base
On Error Resume Next
Set wbDataPa = Workbooks(DATA_PA)
If Err.Number Then
Set wbDataPa = Workbooks.Open(LokasiFile & DATA_PA)
Err.Clear
End If

With wbDataPa
.Activate
Set sht = .Worksheets(Target.Value)
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & " tidak ada"
Else
sht.Activate
End If
End With
End Select
End If
End Sub
'===

Thanks
-zainul-

2013/1/15 Nori Z ordinarynori@yahoo.com >

Dear all,,
Please help me.. hikss.. hikss..
Gimana solusinya ? :(

thanks...

Best,
Nori.

________________________________________
From: Nori Z ordinarynori@yahoo.com >
To: "belajar-excel@yahoogroups.com " belajar-excel@yahoogroups.com >
Sent: Monday, January 14, 2013 11:18 AM
Subject: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .

Dear All,
Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel dari sheet yang berbeda dan dengan kode yang bersesuaian?'
Saat itu saya mendapatkan pencerahan dari Master zainul_ulum[at]yahoo[dot]com zainul_ulum@yahoo.com > .
Saya ucapkan banyak terimakasih ..

Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan menemukan solusinya :( ... )

Pada file terlampir,
Permasalahannya saya ingin merujuk pada workbook yang lain namun harus menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam file excel ini.
Yang sangat mumet bagi saya karena form ini merupakan form master / awal yang mana nantinya akan dilakukan input data... makanya mesti melakukan perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk pada sheet dimaksud tersebut...

Saya sangat mengharapkan bantuan dari para Master disini...
Terimakasih,

Best,
Nori.

Thu Jan 17, 2013 5:17 am (PST) . Posted by:

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

Hai Hendra,

Excel 2003 menampilkan jumlah karakter dalam cell sebanyak 1024 karakter
pertama.
Formula bar menampilkan 32ribuan karakter walau object menyimpan seluruh
data.
Column width maks adalah 255 karakter.

Datatype memo di access ketika di-export ke format excel 5 hanya terambil
255 karakter.
Jika saat export ke excel di pilih excel 97 ke atas atau malah xlsx, bisa
jadi akan tampil 1024 karakter dalam cell dan 32ribuan dalam formula bar.

Bisa juga dengan memecah field dengan datatype memo menjadi banyak kolom
yang masing-masing kolomnya adalah sebanyak 255 karakter saat melakukan
query.
Hal ini bisa dilakukan dengan fungsi Mid( field_memonya , start_karakter_ke
, 255 )
Start_karakter_ke diisi 1 untuk kolom ke-1, 256 untuk kolom ke-2, dst

Wassalam,
Kid.

2013/1/16 agesthahendra@ymail.com agesthahendra@ymail.com>

> **
>
>
> Dear Be-Exceller..
>
> Saya ada mentranfer sebuah tabel di Access ke excel (2003/xls), salah satu
> field di tabel Access itu ada yg bertype "Memo", hasil transfer utk field
> Memo tsb sepertinya terpotong, apakah memang ada limit untuk panjang
> karakter di sebuah sel Excel..? Mohon bimbingannya...terima kasih
>
> Regards
> Hendra Agestha
>
> _
>
>

Thu Jan 17, 2013 5:49 am (PST) . Posted by:

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

Hai Heru,

1. Kelas (misal Z7) [copy ke cell kelas di jam dan hari lain pada tabel
hasil]
=IFERROR(INDEX($C$2:$V$2,MATCH($Z$2,INT(INDEX(INDEX($C$3:$C$38,((MATCH($X6,$X$6:$X$17,0)+1)/2)*6-5):INDEX($V$3:$V$38,((MATCH($X6,$X$6:$X$17,0)+1)/2)*6),MATCH(Z$5,$B$3:$B$7,0),0)/1000),0)),"")

2. Mata Diklat (misal Z6) [copy ke cell mata diklat di jam dan hari lain
pada tabel hasil]
=IF(LEN(Z7),VLOOKUP(INDEX(INDEX($C$3:$C$38,((MATCH($X6,$X$6:$X$17,0)+1)/2)*6-5):INDEX($V$3:$V$38,((MATCH($X6,$X$6:$X$17,0)+1)/2)*6),MATCH(Z$5,$B$3:$B$7,0),MATCH(Z7,$C$2:$V$2)),$B$41:$D$52,2,0),"")

Wassalam,
Kid.

2013/1/17 heru mulyono hmulyono24@gmail.com>

> **
>
>
> Yth Mr. Kid
>
> saya sudah membuat kode2, namun masih kesulitan rumusnya. file terlampir
>
> Maturnuwun
>
> Pada 14 Januari 2013 10.11, heru mulyono hmulyono24@gmail.com> menulis:
>
> Oke Mr. Kid
>> Akan saya coba membuatnya, sekali lagi terimakasih.
>>
>> Pada 14 Januari 2013 08.58, Mr. Kid mr.nmkid@gmail.com> menulis:
>>
>> **
>>>
>>>
>>> Bagaimana kalau dalam data jadwal berisi kodeguru dan kodemapel yang
>>> diajarkan si kodeguru
>>> Contoh kode guru 1 bisa mengajar 1 (PAI), 2 (CAD), 3 (Math), maka pada
>>> data jadwal isinya 1001 yang artinya di jam itu si 1 mengajar PAI
>>>
>>> Dengan begitu, maka akan dibutuhkan :
>>> 1. Tabel daftar guru dengan kode guru sebagai kolom kunci (unik) ->
>>> sudah ada
>>> 2. Tabel daftar mapel dengan kode mapel untuk jadwal (numerik) bersifat
>>> unik
>>> 3. Daftar kode guru dan mapel 1001,1002,1003,200X,...,NNNXXX jika ada
>>> NNN guru dan XXX mapel
>>>
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>

Thu Jan 17, 2013 5:53 am (PST) . Posted by:

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

Ganti rujukan saat akan menyimpan nilai baris terakhir (ke iRow) agar
merujuk ke kolom-kolom milik data yang pasti terisi.
Kolom A memiliki Indeks 1. Yang Anda gunakan sekarang masih merujuk ke
kolom ke-1 atau kolom A

Wassalam,
Kid.

2013/1/17 Prazt praztmath@gmail.com>

> **
>
>
> Assalam...
> dear all master, mohon bantuanya; saya membuat form input data menggunakan
> use form, tetapi saat diisi datanya hanya bisa masuk pada baris pertama
> saja, bagaimana caranya agar data selalu bisa bertambah dengan penomoran
> otomatis pada file berikut (
> https://www.dropbox.com/s/nzegjmgsvsbkgy1/COBA%20buku%20induk%20-%20SIAP%20PAKE%20-%20Copy.xlsb)maaf hanya saya lampirkan linknya saja karena file terlalu besar
>
>
>

Thu Jan 17, 2013 6:32 am (PST) . Posted by:

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

Hai Sony,

1. angsuran per bulan
=IF(H5,CEILING(D5/E5,50),0)

2. akhir angsuran
=(DATE(YEAR(G5),MONTH(G5)+E5-1,1)>=$C$2)*DATE(YEAR(G5),MONTH(G5)+E5-1,1)
bisa juga dengan formula :
=EOMONTH(G5,MAX(E5-1,0))
pada Excel 2003, add in bernama analysis toolpak harus diaktifkan

3. angsuran ke
=MIN(DATEDIF(G5,$C$2,"m")+1,H5)

4. keterangan
>> jika ingin memanfaatkan format number :
=IF(I5,E5-I5,-1)
kemudian di format number custom dengan :
"Kurang "0" bulan";"Lunas";;"Angsuran terakhir"

>> jika ingin hasil bertipe text :
=IF(I5,IF(I5=E5,"Angsuran terakhir","Kurang "&E5-I5&" bulan"),"Lunas")

Wassalam,
Kid.

Wassalam,
Kid.

2013/1/17 sony nurcahyo sony_pwt@yahoo.com>

> **
>
>
> to : rekan2 pakar excel
>
> mohon pencerahannya, tolong kami (koperasi) dibuatkan formula yang dapat
> membantu kami mengisi kolom2 isian yang kami gunakan utk membuat Rekap
> Pembiayaan di koperasi kami
> (tabel isian terlampir)
>
> terimakasih atas segala pencerahaannya, moga manfaat
>
>
> sony_pwt : (0281) 7907423
>
>
>

Thu Jan 17, 2013 6:39 am (PST) . Posted by:

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

Hai Hendra,

Coba langkah berikut :
1. Office Button (pojok kiri atas layar)
2. Excel options (kanan bawah menu dialog yang muncul, dikiri Exit)
3. Addin pada area page (area page adalah frame sisi kanan dari dialog
window yang muncul)
4. Manage -> pilih Addins -> tekan GO (lihat page kanan bagian bawah)
5. centang addin yang akan diaktifkan atau hilangkan centang untuk me-non
aktifkan -> tekan OK sampai kembali ke worksheet

Wassalam,
Kid.

2013/1/17 Agestha Hendra agesthahendra@ymail.com>

> **
>
>
> Terima kasih...mohon lebih detail bagaimana caranya setting add in di
> excel 2007.?
>
> Regards
> Hendra Agestha
>
> ------------------------------
> *Dari:* "jeliuw@yahoo.com" jeliuw@yahoo.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 17 Januari 2013 8:18
> *Judul:* Re: [belajar-excel] Setting Add In di Excel 2007
>
>
> Di excell 2007 diaktifkan dulu add ins terbilangnya. Semoga membantu.
>
> Salam
> j. Liuw
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * "agesthahendra@ymail.com" agesthahendra@ymail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 16 Jan 2013 16:49:44 -0000
> *To: *belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *[belajar-excel] Setting Add In di Excel 2007
>
>
> Dear Be-Exceller,..
>
> Saya ada file excel (2003) yang memakai add in terbilang, file add in saya
> taruh di folder yg sama dengan file excel tsb. Waktu saya pindah folder tsb
> ke kompi yg memakai excel 2007 maka formula =terbilang(Cel) semua
> erorr,...mohon bimbingannya..terima kasih
>
> Regards
> Hendra Agestha
>
>
>

Thu Jan 17, 2013 6:51 am (PST) . Posted by:

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

Hai Nozz,

Jika input 12345 menjadi 123.56.000, maka memang aneh dan sebaiknya
dilampirkan workbooknya.
Jika input 12345 menjadi 12345000, coba atur Excel options tentang opsi
Automatically insert decimal point agar tidak dicentang
pada Excel 2007 seperti di gambar, hilangkan centang dari opsi
automatically insert a decimal point
[image: Inline image 1]

Jika input 12345 menjadi 12.345.000, selain karena options seperti gambar
di atas, juga ada format cells number yang mencentang thousand seprator
Jika input 12345 menjadi 123.45.000, selain karena options seperti gambar
di atas, bisa jadi ada format cells number custom atau format cells number
special

Wassalam,
Kid.

2013/1/17 d_nozz d_nozz@yahoo.co.id>

> **
>
>
> dear guru-guru excel
> mau tanya nich, knp format angka di excel aneh.
> jika saya ketik sembarang angka contoh 12345.
> trus di format dengan diperi separator ribuan hasilnya jadi 123.56.000
> apa ada yang salah dengan settingan excel nya?
>
>
>

Thu Jan 17, 2013 6:54 am (PST) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Sudah ada tanggapan di posting :
http://tech.groups.yahoo.com/group/belajar-excel/message/21899
jika membutuhkan file attachment, bisa dilihat di :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Menggabung-menjumlahkan-Data-antar-ROW-dgn-Sumproduct-atau-rumus-yg-lain-td5714694.html

Wassalamu'alaikum Wr. Wb.
Kid.

2013/1/17 Mulki mulki@aop.component.astra.co.id>

> **
>
>
> **
> Assalamu'alaikum wr. wb.
>
> Selamat siang ...
>
> Mohon bantuan pencerahanya dari rekan2 B-Xlers atas kasus saya, file
> terlampir.
>
> Saya ingin membuat Laporan yg sumber datanya terdpt pada SHEET GS AMB_aop.
> Terlihat Data pada Sheet tersbt di kelompokan ke dalam 3 Group Product yg
> TOTAL-nya bisa dilihat pada yg diarsir warna PINK spt : GS-AMB (AO-Cust)
> Conventional, GS-AMB (AO-Cust) MF JIS & GS-AMB (AO-Cust) MF DIN
>
> 1. Bagaimana cara menggabung ke-3 group product tersbt dlm 1 laporan di
> atas yg di urut berdasarkan nama negara, Quantity (PCS) dan Bulan ?
> 2. Data yg ingin di gabungkan adalah pada Data2 yg di arsir warna biru.
>
>
> Note : Tadinya saya sudah membuat dg rumus SUMPRODUCT dan saya sudah buat
> kolom DUMMY AREA di SHEET GS AMB_aop juga field referensi QUANTITY (PCS) di
> sheet Report by QTY (lihat paling atas) tp hasilnya ERROR
>
> Atas bantuan dan pencerahannya saya haturkan banyak terimakasih.
>
>
> Wassalam,
> Mulki
>
>
>

Thu Jan 17, 2013 7:28 am (PST) . Posted by:

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

Hai Apriyadi,

Sepertinya file tersebut buatannya mbake (alm).
Coba ubah sedikit bagian :
dTabel(NewRow, 1) = NewRow
dTabel(NewRow, 2) = Date
dTabel(NewRow, 3) = Range("DafNama").Find(Range("ID")).Offset(0,
1).Value
dTabel(NewRow, 4) = Time
menjadi :
*If WorksheetFunction.CountIf(dTabel.CurrentRegion.Offset(0,
2).Resize(, 1), Range("ID").Offset(1).Value) = 0 Then*
dTabel(NewRow, 1) = NewRow
dTabel(NewRow, 2) = Date
dTabel(NewRow, 3) =
Range("DafNama").Find(Range("ID")).Offset(0, 1).Value
dTabel(NewRow, 4) = Time
*Else
MsgBox "Sudah pernah absen masuk."
End If*

Untuk absen pulang, bisa juga bagian :
If dTabel(i, 5) = "" Then
dTabel(i, 5) = Time
AdaClockIn = True
Exit For
End If
diubah sedikit menjadi :
If dTabel(i, 5) = "" Then
dTabel(i, 5) = Time
AdaClockIn = True
Exit For
*Else
MsgBox "sudah pernah absen pulang"
Exit Sub*
End If

Yang biru adalah bagian yang ditambahkan.
jangan lupa untuk menulis nama Anda sebagai keterangan dalam penambahan
tersebut.

Jika penggunaannya sebagai shared workbook, sepertinya VBA tidak akan
bekerja.
Jika penggunaannya pada sebuah komputer saja, bisa untuk banyak karyawan
sesuai daftar karyawan di kolom K pada sheet input tersebut.

Dari script yang ada tidak ada pembatasan waktu. Jadi batas maksimal record
yang bisa tercatat dibatasi oleh jumlah baris yang disediakan Excel untuk
sebuah sheet.

Wassalam,
Kid.

2013/1/17 Apriyadi Apri apriyadi_apry@yahoo.com>

> **
>
>
> Dear Master Excel,
>
>
> Saya dapat absensi dengan menggunakan excel dari group
> para master Excel dan saya rubah sedikit. Ada yang ingin saya tambahkan
> namun saya tidak mengerti caranya. Mohon bantuan para Master excel agar
> absennya sesuai dengan apa yang saya inginkan atau dapat lebih baik lagi.
>
> Seperti ini.Pada hari ini saya masuk kerja dengan meng-klik absen hadir
> dan data nya akan masuk ke sheet absen.namun saat saya klik hadir lagi pada
> hari yang sama maka datanya akan masuk lagi.Yang saya mengharapkan jika
> absen hadir yang ke 2 atau absen pulang ke 2 pada hari yang sama tidak
> tersimpan di sheet absen dan muncul peringatan bahwa telah melakukan absen
> sebelumnya sehingga tidak terdapat data yang double.
>
> Oh iya kerena ini buka buatan saya.Jadi saya tidak mengetahui apakah absen
> ini bisa untuk banyak orang sekitar 50 orang dan bisa sampai menyimpan data
> absen selama 2 atau 3 bulan.
>
> Mohon bantuan dan pencerahannya.Atas perhatian dan bantuannya saya ucapkan
> terima kasih
>
>
> Thank
>
>
> Apriyadi
>
>
>

Thu Jan 17, 2013 7:53 am (PST) . Posted by:

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

Hai Saggaf,

Assalamu'alaikum Wr. Wb.

1. Salary - *nationality *(misal pada *Headoffice*)
A. Saudi (= Saudi)
>> xl2007 ke atas :
=SUMIFS(DATA!$E$2:$E$41*,DATA!$D$2:$D$41,$A6**,DATA!$B$2:$B$41,B$3&"*"*)

>> semua versi :
=SUMProduct(DATA!$E$2:$E$41**(DATA!$D$2:$D$41=$A6)**
*(Left(DATA!$B$2:$B$41,5)=B$3)*)

B. Other (<> Saudi)
>> xl2007 ke atas :
=SUMIFS(DATA!$E$2:$E$41*,DATA!$D$2:$D$41,$A6**,DATA!$B$2:$B$41,"<>"&B$3&"*"*
)

>> semua versi :
=SUMProduct(DATA!$E$2:$E$41**(DATA!$D$2:$D$41=$A6)**
*(Left(DATA!$B$2:$B$41,5)<>B$3)*)

2. *Manager *- housing (misal pada *Headoffice*)
>> xl2007 ke atas :
=SUMIFS(DATA!F$2:F$41*,DATA!$D$2:$D$41,$A6*,*DATA!$C$2:$C$41,D$3*)

>> semua versi :
=SUMIFS(DATA!F$2:F$41*,DATA!$D$2:$D$41,$A6*,*DATA!$C$2:$C$41,D$3*)

*****>> Copy nomor 2 ke *Supervisor *- transport karena kolom transport
pada tabel data adalah tepat setelah kolom housing <<*****

3. Max *Salary *dengan array formula : (misal pada *manager*)
=MAX(*(DATA!$C$2:$C$41=$A16)***DATA!$E$2:$E$41*)

*****>> Copy nomor 3 ke *Housing *dengan menyesuaikan bagian yang *merah *agar
merujuk ke kolom Housing pada tabel data <<*****

4. Min *Salary *dengan array formula : (misal pada *manager*)
=MIN(IF(*DATA!$C$2:$C$41=$A16*,*DATA!$E$2:$E$41*))

*****>> Copy nomor 4 ke *Housing *dengan menyesuaikan bagian yang *merah *agar
merujuk ke kolom Housing pada tabel data <<*****

Wassalamu'alaikum Wr. Wb.
Kid.

2013/1/17 Mohammed Asseggaf seggaf@sbtcgroup.com>

> **
>
>
> Halooo guys,…****
>
> ** **
>
> Butuh bantuan dari skill kalian nih, saya ada table yang ada di attachmen.
> Bingung mau menggunakan formula apa yang tepat ? SUMIF atau SUMPRODUCT ?**
> **
>
> ** **
>
> Mohon bantuannya yah,… J ****
>
> ** **
>
> ** **
>
> Thx a lot****
>
> ** **
>
> Saggaf****
>
>
>
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