Messages In This Digest (12 Messages)
- 1a.
- Re: Ambil 2 sampel dari setiap lokasi From: HerrSoe
- 2a.
- Re: Tanya Macro Simpan Inputan Data ke Sheet yang Lain From: Ki Semprul
- 3a.
- Re: Selisih Pembulatannya berapa boss? hiiikss.... From: Kid Mr.
- 3b.
- Re: Selisih Pembulatannya berapa boss? hiiikss.... From: Ki Semprul
- 3c.
- Re: Selisih Pembulatannya berapa boss? hiiikss.... From: Ki Semprul
- 3d.
- Re: Selisih Pembulatannya berapa boss? hiiikss.... From: raya hidayat
- 3e.
- Re: Selisih Pembulatannya berapa boss? hiiikss.... From: hendrik karnadi
- 3f.
- Re: Selisih Pembulatannya berapa boss? hiiikss.... From: NANG Agus
- 4a.
- Re: Update Stock Harian From: Tommy
- 5a.
- Re: gabung 3 kas From: o' Seno
- 6.
- Mencari Formula Usia Anak Pada Tahun Berikutnya From: Taura Tourmuzi
- 7a.
- Re: rumus index yang mumet From: NANG Agus
Messages
- 1a.
-
Re: Ambil 2 sampel dari setiap lokasi
Posted by: "HerrSoe" herrsoe@gmail.com herrsoe
Sun Feb 26, 2012 7:42 am (PST)
Pakai Jalan "muter-muter"..!
rumus bantu1
=RIGHT(IF(COUNTIF($B$4:$B4, $B4)<3,COUNTIF( $B$4:$B4, $B4)&TEXT( $A4,"000" ),999),3) +0
rumus bantu2
=SMALL($I$6:$I$25,$A$ 4:$A$23)
rumus "No"
=IF($J6<999,FLOOR($A4- 1,2)/2+1, "")
rumus "lokasi
=IF($J6<999,INDEX(B$4: B$23,$J6) ,"")
rumus "item"
=IF($J6<999,INDEX(C$4: C$23,$J6) ,"")
2012/2/21 ivan jaya <jayaivan@gmail.com >
> **
>
> Assalamualaikum...
> Teman-teman dan master-master XL semuanya, saya membutuhkan bantuan.
> Bagaimana caranya mengambil 2 sampel dari setiap lokasi (lihat
> attachment)?
> Jadi masing-masing lokasi jumlah itemnya lebih dari 2 sedangkan yang
> diminta hanya diambil 2 sample saja.
> Mohon bantuannya.
> Terimakasih.
> --
> ﻮالسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Ivan Jaya
>
>
- 2a.
-
Re: Tanya Macro Simpan Inputan Data ke Sheet yang Lain
Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull
Sun Feb 26, 2012 7:43 am (PST)
Mungkin seperti ini:
Private Sub PostingDataKeTabel()
' 20 feb 2012 - VBA coded by:
' Ki Semprul !! banyak dibantu Ni Mas Hapsari..
'-------------------- --------- --------- --------
Dim dTabel As Range, dIsian As Range
Dim DahAda As Boolean
Dim NewRec As Long, rc As Long
Set dIsian = Sheets("MASTER").Cells(1)
Set dTabel = Sheets("REKAP").Cells(2, 2).CurrentRegion. Offset(1, 0)
NewRec = dTabel.Rows.Count
With dTabel
' cari NomorAplikasi yg AKAN diisikan (dicarinya di dTabel)
DahAda = WorksheetFunction.CountIf(. Resize(, 1), dIsian(7, 4)) > 0
' Jika ADA....
If DahAda Then
dIsian(7, 4).Activate
' berikan pesan-sponsor
MsgBox "Nomor Aplikasi : " & dIsian(7, 4) & " = SUDAH ADA !!" & _
vbCrLf & "Mohon Data Isian di check lagi..", 48
Else ' (Jika Tidak....)
' laksanakan proses transfer data dIsian ke Tabel
For rc = 1 To 28
.Cells(NewRec, rc) = dIsian(rc * 2 + 5, 4)
Next
End If
End With
End Sub
Sub SIMPAN()
' modifikasi: Ki Semprull / 20 Feb 2012
' --------------------- --------- --------- --
' (1) memasukkan isian ke tabel
PostingDataKeTabel
' (2) menSave Workbook
ActiveWorkbook.Save
' (3) menghapus data Isian
' Clear_dataIsian
End Sub
Sub Clear_dataIsian()
' menghapus isian by KiSemprul (Semprul Ki!!)
'-------------------- --------- --------- ------
' Modifikasi oleh Ki Semprull / 21 Feb 2012
' maaf dimodifikasi agar agak 'enak dilihat'
' abiznya aslinya "ngeriiii bangett"...
'-------------------- --------- --------- -----
Range("D7:J7,D9:L9,D11, D13:L13,D15: L15,D17:J17, D19,D21:J21, D23:J23,D25: T59").ClearConte nts
End Sub
Sub CETAK()
' CETAK sheet
' Macro recorded 24/09/2010 by dedih
' Modifikasi by: Ki Semprul / 20 Feb 2012
' animasi scroll dihilangkan
'-------------------- --------- --------- ---
Dim R As Long, i As Long
ActiveSheet.PageSetup. PrintArea = "$A$1:$W$60"
ActiveWindow.SelectedSheets. PrintPreview
' ActiveWindow.SelectedSheets. PrintOut ' << pilih ini jika ingin cetak
langsung
Range("D7").Activate
End Sub
2012/2/19 anton suryadi <summonery@yahoo.com >
> **
> --------------------- --------- --------- --------- ---
> Titipan dari salah satu member xl-mania:
> --------------------- --------- --------- --------- ---
>
> Dear Grandmaster Excell,
> Saya Sudah berulang kali kirim ke Yahoo groups XL Mania,
> Tetapi sepertinya tidak terkirim
> (kemungkinan, email kantor saya hanya bisa menerima dari milis, tetapi
> tidak bisa kirim ke Milis)
>
> Saya mengirimkan ke Email Rekan-Rekan, Mungkin dapat diteruskan ke Yahoo
> Groups.
>
> Tks
> Syukri K Sidabutar
> --------------------- --------- --
> Begini cerita problemnya: Tanya Macro Simpan Inputan Data ke Sheet yang
> Lain
> Saya ada file Input data pelamar sebagaimana terlampir,
> Seharusnya Data yang diisisi,
> Di Klick Simpan Dahulu, Baru Data Tersimpan Ke Sheet Rekap.
> Namun Di EXCELL ini tidak Jalan,
> Yang terjadi adalah:
> Data Langsung Tersimpan, begitu selesai terenter setiap Field
> (sehingga tidak boleh ada Kesalahan dan Tidak Boleh ada field yang kosong)
> Ini akan menyulitkan
> Adakah yang dapat membuat fungsi Macro nya, saya tidak mengerti Macro
>
> NB:
> Adakah yang dapat membuat fungsi Macro SIMPAN dengan Kondisi:
>
> #Data akan tersimpan ke sheet Rekap, Jika sudah di clik Menu Simpan
> # Data Field akan tersimpan berdasarkan per baris (Row)
>
> Dalam artian, Field kosong sebelumnya, tidak mengakibatkan Inputan
> berikutnya maju kebarirs tersbut, namun akan mengikut kepada seluruh
> baris inputannya2
>
>
- 3a.
-
Re: Selisih Pembulatannya berapa boss? hiiikss....
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Sun Feb 26, 2012 7:43 am (PST)
Coba formula
=(MOD(F2,100)>0)*100-MOD( F2,100)
Regards.
Kid.
On Wed, Feb 22, 2012 at 20:19, HRD Ampuh <hrd_advisor@yahoo.com > wrote:
> **
>
>
> Yang Terhormat, para Suhu Excel....
>
> Ampuuuun.... Mumet kepala nih...
>
> Mohon Bantuannya, please...
> Gimana rumus mencari selisih pembulatan.
> Misalnya Gaji Bersih = 1,678,921, maka selisih pembulatannya harus 79.
> Kalo 1,678,994, maka selisih pembulatannya = 6. Klo 1,678,980, maka selisih
> pembulatannya = 20.
>
> Terima kasih atas bantuannya....
>
> Salam Hormat...
>
>
>
>
>
>
>
>
>
>
- 3b.
-
Re: Selisih Pembulatannya berapa boss? hiiikss....
Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull
Sun Feb 26, 2012 7:43 am (PST)
Ini Obat Mummmett nyah
*=CEILING(A1,1000)-A1*
A1 adalah cell tempat dituliskannya data yg diproses, misalnya: 1678994
*
*
*2012/2/22 HRD Ampuh <hrd_advisor@yahoo.com >
*
>
> * *
> *Yang Terhormat, para Suhu Excel....
> Ampuuuun.... Mumet kepala nih...
>
> Mohon Bantuannya, please...
> Gimana rumus mencari selisih pembulatan.
> Misalnya Gaji Bersih = 1,678,921, maka selisih pembulatannya harus 79.
> Kalo 1,678,994, maka selisih pembulatannya = 6. Klo 1,678,980, maka selisih
> pembulatannya = 20.
>
> Terima kasih atas bantuannya....*
>
- 3c.
-
Re: Selisih Pembulatannya berapa boss? hiiikss....
Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull
Sun Feb 26, 2012 7:43 am (PST)
maaf ternyata ada file contoh data dari Pak HRD Ampuh
Rumusnya
*=CEILING(F2,100)-F2*
atau
*=ROUNDUP(F2,-2)-F2*
atau
*=(MOD(F2,100)>0)*-(MOD( F2,100)-100) *
atau
*=IF(MOD(F2,100)=0,0, 100)-MOD( F2,100)*
2012/2/24 Ki Semprul <semprul.ki@gmail.com >
> Ini Obat Mummmett nyah
>
> =CEILING(A1,1000)-A1
>
> A1 adalah cell tempat dituliskannya data yg diproses, misalnya: 1678994
>
>
> *2012/2/22 HRD Ampuh <hrd_advisor@yahoo.com >
> *
>>
>> * *
>> *Yang Terhormat, para Suhu Excel....
>> Ampuuuun.... Mumet kepala nih...
>>
>> Mohon Bantuannya, please...
>> Gimana rumus mencari selisih pembulatan.
>> Misalnya Gaji Bersih = 1,678,921, maka selisih pembulatannya harus 79. *
>>
> *Kalo 1,678,994, maka selisih pembulatannya = 6. *
>
> *Klo 1,678,980, maka selisih pembulatannya = 20.
>>
>> Terima kasih atas bantuannya....*
>>
>
--
*Semprul..Ki!*
- 3d.
-
Re: Selisih Pembulatannya berapa boss? hiiikss....
Posted by: "raya hidayat" raya.hidayat@gmail.com
Sun Feb 26, 2012 7:47 am (PST)
dear hrd ampuh,
semoga sesuai dengan yang diinginkan.
kalau saya tidak keliru melihat pola pembulatannya adalah selisih dari
kelipatan 100.
terima kasih
Raya
2012/2/22 HRD Ampuh <hrd_advisor@yahoo.com >
> **
>
>
> Yang Terhormat, para Suhu Excel....
>
> Ampuuuun.... Mumet kepala nih...
>
> Mohon Bantuannya, please...
> Gimana rumus mencari selisih pembulatan.
> Misalnya Gaji Bersih = 1,678,921, maka selisih pembulatannya harus 79.
> Kalo 1,678,994, maka selisih pembulatannya = 6. Klo 1,678,980, maka selisih
> pembulatannya = 20.
>
> Terima kasih atas bantuannya....
>
> Salam Hormat...
>
>
>
>
>
>
>
>
>
>
--
Terima kasih
Raya
- 3e.
-
Re: Selisih Pembulatannya berapa boss? hiiikss....
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Sun Feb 26, 2012 7:47 am (PST)
Jika pembulatannya selalu ke atas dalam ribuan maka formulanya adalah sbb :
=ROUND(A1,-3)-A1 dimana sel A1 adalah angka yang akan dicari selisih pembulatannya.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: HRD Ampuh <hrd_advisor@yahoo.com >
To: XL-mania@yahoogroups.com
Sent: Wednesday, 22 February 2012, 20:19
Subject: ]] XL-mania [[ Selisih Pembulatannya berapa boss? hiiikss....
Yang Terhormat, para Suhu Excel....
Ampuuuun.... Mumet kepala nih...
Mohon Bantuannya, please...
Gimana rumus mencari selisih pembulatan.
Misalnya Gaji Bersih = 1,678,921, maka selisih pembulatannya harus 79. Kalo 1,678,994, maka selisih pembulatannya = 6. Klo 1,678,980, maka selisih pembulatannya = 20.
Terima kasih atas bantuannya....
Salam Hormat...
>
>
- 3f.
-
Re: Selisih Pembulatannya berapa boss? hiiikss....
Posted by: "NANG Agus" nangagus@gmail.com
Sun Feb 26, 2012 7:47 am (PST)
Yth hrd Ampuh,
Rumus yang dipakai cukup sederhana,
Ambil dua bilangan terakhir, kemudian kurangkan dari 100. selesai deh...
Eit...., ada yang lupa jika dua bilangan terakhir nol, harus dibuatkan if
nya
sehingga menjadi : =IF(RIGHT(F2;2)*1=0;0; 100-(MOD( F2/100;1) *100))
Salam.
2012/2/22 HRD Ampuh <hrd_advisor@yahoo.com >
> **
>
>
> Yang Terhormat, para Suhu Excel....
>
> Ampuuuun.... Mumet kepala nih...
>
> Mohon Bantuannya, please...
> Gimana rumus mencari selisih pembulatan.
> Misalnya Gaji Bersih = 1,678,921, maka selisih pembulatannya harus 79.
> Kalo 1,678,994, maka selisih pembulatannya = 6. Klo 1,678,980, maka selisih
> pembulatannya = 20.
>
> Terima kasih atas bantuannya....
>
> Salam Hormat...
>
>
>
>
>
>
>
>
>
>
- 4a.
-
Re: Update Stock Harian
Posted by: "Tommy" tomz.zlow@gmail.com tomz_aja
Sun Feb 26, 2012 7:47 am (PST)
Perasaan pernah jawab yang ginian baru-baru ini di http://tech.dir.groups. yahoo.com/ group/XL- mania/message/ 19964
tinggal aplikasikan saja ke format Anda (yang lebih sederhana). Berhubung saya lagi ulang tahun, saya coba buatkan contoh aplikasinya terlampir.
di cell G8, gunakan formula berikut (formula biasa)
=MAX(0,IF(DAY($C$2)=G$5, SUMIF('19' !$B:$B,$C8, '19'!$H:$ H),'FF-18' !F8)+SUM( 'FF-18'!$ E8:E8)-SUM( 'FF-19 (2)'!$F8:F8) -SUMIF('19' !$B:$B,$C8, '19'!$I:$ I))
tinggal copy paste ke semua produk dari tanggal 2 sampai tanggal 31 (untuk tanggal 1 input manual berhubung kolom bulan sebelumnya pasti akan berbeda).
blessings,
tomz
----- Original Message -----
From: Ayiekosing Osing
To: XL-mania
Sent: Wednesday, February 22, 2012 12:50 PM
Subject: ]] XL-mania [[ Update Stock Harian
Ass. ...semua XL-Mania... Selamat pagi dan salam sejahtera...
To.. XL-Mania..
Mohon bantuannya untuk mempermudah pembuatan laporan harian, formula yang tepat untuk membuat / update stock harian.... file terlampir.
Selama ini membuat laporan harian FIFO manual terus.. sampai tua....
Sebelum dan sesudahnya saya sampaikan terima kasih.
Salam
Suprayitno
- 5a.
-
Re: gabung 3 kas
Posted by: "o' Seno" ontoseno84@gmail.com o_s_e_n_o
Sun Feb 26, 2012 7:48 am (PST)
Jika susunan 3 tabel tsb tetap seperti itu (kolom2 nya sejajar
/sekolom, dan bukan terpisah sheetsnya), 3 range tsb masih dapat dianggap 1
(SATU) tabel *B2:F26*
Tetapi karena kolom "masuk" dan "keluar" akan dianggap sebagai angka yg
akan diaritmatik-kan, maka didalamnya tidak boleh ada text (jika ada akan
menghasilkan error-values)
Untuk urusan "beginian", kita dapat mengakalinya dengan MENGGANTI judul
(text) kolom "*Masuk" dan "Keluar" *dengan* 0 (nol).*
Angka 0 tsb kemudian diformat (custom format) *;;"Masuk";* untuk kolom E
dan* ;;"Keluar";* untuk kolom F, khusus pada baris Header di tabel 2
(Biru) dan tabel 3 (Unyu-Unyu-Unyu). Tujuannya agar: nilai tetap 0 (nol),
tetapi penampakan tetap keren: = "Masuk" / "Keluar".
Untuk header di tabel hasil: Jenis transaksi a, b dan c tidak perlu
dibuatkan *Merged cell* seperti itu. Merged Cells itu kerjaannya 'kan hanya
"Menyusahkan" pengolahan data saja !!
Akan lebih gampang kalau satu cell satu data misal 6 cell sebaris:
a,a,b,b,c,c. (kalau risih melihatnya, ya di HIDE saja Row-nya, kok repot
amat! )
Manakala "akal-akalan" tsb sudah dilakukan, rumusnya tidak terlalu jauh
dari yg sering muncul di milis ini
=SUMPRODUCT(($C$3:$C$ 25=J$30)* ($D$3:$D$ 25=$I32)* $E$3:$E$25)
*o'Seno*
*2012/2/21 Firsty Relia Renata <firsty@live.com >
>
> Hallo.. saya baru di milis
> Saya pengguna excel yang cuma bisa pakai if, and, min, max, dll yang
simple2. ;(
>
> Kerja di swt tempat sosial, pegang 3 buku kas, tapi semuanya masuk satu
rekening.
>
> Need help kayak gini:
> Ada 3 buku kas, mau dijadiin satu berdasarkan kode en tanggal.
>
> Berharap ada yang bisa bantu. mau kasih clue juga boleh, sukur2 dikasih
tau caranya :D
> Aslinya ada 34 kode en tiap buku skitar 100-200 item perbulan. Ini
contoh kasus aja.
>
> Attachment terlampir, ya.. Makasih a lot..*
- 6.
-
Mencari Formula Usia Anak Pada Tahun Berikutnya
Posted by: "Taura Tourmuzi" taura_tour@yahoo.com taura_tour
Mon Feb 27, 2012 3:34 am (PST)
Yang Terhormat Pakar XL INDONESIA
Mohon
Bantuan dan Pencerahannya.
Dikolom
ini, Bagaimana caranya mencari FORMULA USIA Anak pada BULANJULI 2012 ?
Contoh : DZIKIRUL lahir pada tanggal
11/04/2010, maka pada bulan JULI 2012 Usia DZIKIRUL 2 Tahun 3 Bulan atau 2,3 Tahun.
Terima kasih atas segala bantuannya.
ttd
TAURA
- 7a.
-
Re: rumus index yang mumet
Posted by: "NANG Agus" nangagus@gmail.com
Mon Feb 27, 2012 3:34 am (PST)
Dear Rahardian,
Pertanyaannya tidak jelas kriterianya, Bagaimana calon satu dapat peringkat
A17 mana kreterianya? kemudian tabel dua tidak ada hubungannya sama sekali
dengan tabel satu. Tapi itu karena kebodohan saya. bagaimana penjelasannya?
Salam
2012/2/18 Rahadian Wibowo <rahadianwibowo@yahoo.com >
> **
>
>
> dearest para suhu excel
>
> saya menghadapi masalah dalam penerapan rumus index, saya mencoba
> mengklasifikasi sesuai tabel FIX, dengan "syarat nilai minimal" tapi tidak
> sesuai dgn klasifikasinya, mohon pencerahannya
>
> data terlampir
>
> jabat erat
>
> Bow Wow
>
>
>
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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.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 |
+-------------------------------------------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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.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 |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar