Messages In This Digest (5 Messages)

1a.: Re: Mengelompokkan Sheet Berdasakan Salah Satu Kolom From: siti_vi

2a.: Re: Macro untuk perhitungan uang makan From: STDEV(i)

3a.: Re: jika data error From: Mr. Kid

4a.: Bls: ]] XL-mania [[ jika data error From: Endut Karim

5.: mengganti dummy dengan cara lain From: Andre Monte

View All Topics | Create New Topic

Messages

1a.: Re: Mengelompokkan Sheet Berdasakan Salah Satu Kolom

Posted by: "siti_vi" setiyowati.devi@gmail.com siti_vi

Fri Jun 24, 2011 6:59 pm (PDT)

ralat / koreksi dikitts..

baris ke 38 / 39

CurRnge.Select

seharusnya tidak ada / harap dihapus
karena berpotensi memperlama proses dan juga
timbulnya error jika sheet induk CrRnge sedang tidak aktif

perintah itu dulunya dibuat hanya untuk keperluan test

--- In XL-mania@yahoogroups.com, "STDEV(i)" <setiyowati.devi@...> wrote:
>
> Sub Du_Sam_Ting()
> '------------------------------
> ' bluewater, 23 jun 2011
> '------------------------------
> Dim UnxFood(), AllData(), ArrShtNm()
> Dim CurRnge As Range, NewRnge As Range, NewHead As Range
> Dim NewBook As Workbook, CurBook As Workbook
> Dim ShtInBook As Integer, st As Integer
> Dim i As Long, n As Long, r As Long
> Dim FSO As Object, FOL As Object, F As Object
> Dim PathDirNm As String
> End Sub
> '-----------------------------------
>
>
> 2011/6/22 akbar arsyad <akbar_arsyad@...>
> > Dear All,
> > Saya mempunyai permasalahan, saya punya beberapa file, yaitu file tahun
> > 2003.xls, 2004.xls, dan 2005.xls
> > Masing-masing berisi satu sheet
> >
> > Saya ingin menggenerate file2 yang judulnya berdasarkan makanannya, jadi
> > ada file Ikan.xls, wortel.wls, rumput.xls, daging.xls, tulang.xls, dan
> > jagung.xls.
> > Masing2 file terdiri dari tiga sheet, yaitu 2003, 2004, dan 2005. Isin
> > rownya hanya header dan row yang pada kolom makanan sesuai dengan nama
> > filenya.
> > Terima Kasih,
> > Akbar Jamaluddin Arsyad

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

2a.: Re: Macro untuk perhitungan uang makan

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Fri Jun 24, 2011 6:59 pm (PDT)

Posting dari Pak A. Only ini seperti bukan Posting ASLI ya ?
(seperti Reply-an atau Forward-an mail yg sudah pernah dikirim ke suatu
tujuan)
[image: Posting merusak Threads.GIF]
'==========================================================
' http://tech.groups.yahoo.com/group/XL-mania/message/18696
'==========================================================

' ---( UDF 1 )------------------------------------
' meniru =IF(ISNUMBER(SEARCH("Jakarta",$H3)),1,2)
' mencari nila AREA
' tambahan: kalau NmCabang = blank, Area = 0
'-------------------------------------------------

Function Area(NmCabang As String) As Integer
' coded by: siti Vi; bluewater, 25 Jun 2011
'-----------------------------------------
If Len(NmCabang) > 0 Then
If InStr(1, LCase(NmCabang), "jakarta") > 0 Then
Area = 1
Else
Area = 2
End If
End If
End Function

' ---( UDF 2 )-----------------------------------------------------
' meniru
' =ROUND((IF($I2="Karyawan lapangan",0,IF($B2=1,5000,4500))*D2),-1)
' mencari nilai Meal Allowance
'----------------------------------------------------------

Function MealAlw(Area As Integer, _
JmlUM As Integer, _
Kategori As String) As Long
' coded by: siti Vi; bluewater, 25 Jun 2011
'-----------------------------------------

Dim Rp As Single

If LCase(Kategori) = "karyawan lapangan" Then
Rp = 0
Else
If Area = 1 Then Rp = 5000 Else Rp = 4500
End If

MealAlw = CLng(Round(Rp * JmlUM))

End Function

' ---( UDF 2 )---------------------------------------------
' meniru
' =ROUND(IF($I5="Karyawan KANTOR",0,IF($B5=1,10000,8000))
' * F5 * IF(C5>4,100/85,100/95),-1)
' mencari nilai Field All ( opo maneh ? to iki ?)
'----------------------------------------------------------

Function FieldAll(Area As Integer, _
Level As Integer, _
JmlField As Integer, _
Kategori As String) As Long
' coded by: siti Vi; bluewater, 25 Jun 2011
'-----------------------------------------

Dim vArea As Single, vLevel As Single

If LCase(Kategori) = "karyawan kantor" Then
vArea = 0
' Jika hasil vArea = eNol maka
' hasil perkalian selanjutnya tidak ada gunanya lagi, ya ndak ??
' so.. kenafa ndak exit function saja?
*Exit Function*
Else
If Area = 1 Then vArea = 10000 Else vArea = 8000
End If

If Level > 4 Then vLevel = 100 / 85 Else vLevel = 100 / 95

' di VBA fungsi Round agak lain dgn ROUND yg ada di worksheet
' di VBA tidak ada Number_Desimal_Places NEGATIF, adanya Positip
' maka pembuatannya pakai INT( N/10) * 10 boleh ndak ??
FieldAll = CLng(*Int((vArea * JmlField * vLevel) / 10) * 10*)

End Function

'---------------------------------------------------------
' note:
'---------------------------------------------------------
' di VBA: Deklarasi prosedur Sub maupun prosedur Fungsi
' dengan Keyword Public adalah DEFAULT-nya
' Jadi kalau ditulis PUBLIC atau tidak ditulis PUBLIC
' hasilnya sami mawon = SAMA SAJA
' so .. KAMU jangan merasa "orang lain salah" jika
' UDF nya hanya ditulis: Function NamaFungsi()
' sedangkan kamu pakai : Public Function NamaFungsi()
' ~~~~~~
' --ctv--
'---------------------------------------------------------

CMIIW
~siti~

2011/6/24 Ahmad Only <ahmad_twofive@yahoo.com>
>
>> Dear Master Xl-mania,
>>
>> Saya membuat perhitungan untuk perhitungan uang makan dll
dengan menggunakan formula, tetapi saya ingin mencoba dengan macro atau vba
karena saat ini saya baru belajar jadi belum pernah berhasil, mohon
pencerahannya. Atas perhatiannya saya ucapkan terima kasih.
>>
>> Best regards,
>>
>> Ahmad

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3a.: Re: jika data error

Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com

Fri Jun 24, 2011 7:00 pm (PDT)

Hai Ardi,

Bagaimana jika formula kolom B diganti menjadi formula biasa (bukan array
formula) :
=IF(COUNTIF(buyer!$B$4:$B$54,LEFT(C7,FIND("-",C7&"-")-1)),LEFT(C7,FIND("-",C7&"-")-1),"")
Bagian CountIF untuk cek ada atau tidaknya di daftar shipment id.

Untuk filtering, dengan array formula :
=SMALL(IF(*B$7:B$98*=E$7,ROW(*$A$7:$A$98*)-ROW($A$6)),ROW()-ROW($F$6))
Yang di-bold adalah range data yang harus sama dimensinya.

Untuk pengambilan data hasil filtering menggunakan formula biasa :
=IF(ISNUMBER($F7),INDEX($B$7:$B$98,$F7),"")
IsNumber untuk cek hasil array fprmula filtering.

Kid.

2011/6/24 Ardi Tussiam <ardi.tussiam@live.com>

> **
>
>
>
> formula apakah yang paling tepat untuk mengatasi masalah saya, jika
> ditemukan N/A dalam data, karena saya sudah menggunakan IFERROR, namun hasil
> yang keluar seperti hasil terlampir.
>
> Please help me para Master Excel.
>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

4a.: Bls: ]] XL-mania [[ jika data error

Posted by: "Endut Karim" endutkarim@yahoo.co.id endutkarim

Fri Jun 24, 2011 7:02 pm (PDT)

Dear Mr Ardi Tussiam

Coba dengan Rumus : =IF(ISERROR(Rumus asli);0;Rumus asli)
0 bisa diganti dengan "" atau lainnya

semoga bermanfaat

________________________________
Dari: Ardi Tussiam <ardi.tussiam@live.com>
Kepada: xl mania <xl-mania@yahoogroups.com>
Terkirim: Jum, 24 Juni, 2011 08:44:45
Judul: ]] XL-mania [[ jika data error

formula apakah yang paling tepat untuk mengatasi masalah saya, jika ditemukan
N/A dalam data, karena saya sudah menggunakan IFERROR, namun hasil yang keluar
seperti hasil terlampir.

Please help me para Master Excel.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

5.: mengganti dummy dengan cara lain

Posted by: "Andre Monte" andrepri.monte@gmail.com qlick2001

Fri Jun 24, 2011 7:02 pm (PDT)

Dear Teman2 XL-Mania
Tanggal 23 Juni saya sudah posting (masalah yang sama), tapi sampai hari ini
belum masuk juga, jadi saya posting ulang, maaf jika akhir-nya posting
terdahulu masuk juga.

Saya mempunyai sebuah sheet untuk progress monitoring, mohon pencerahannya.
1. Apakah bisa dibuat tanpa dummy cell (DO6:GG26) untuk mengisi kolom DA yg
berisi keterangan

persentase progres?
2. Pada kolom X6:CP26 ada beberapa yg menggunakan conditional formatting,
jika kondisi terpenuhi

warna menjadi abu2, apakah yg warna abu2 bisa di lock cell-nya (menjadi
tidak bisa diisi/di edit)?
3. Pada point 2 (conditional formatting) masih ada 1 kriteria lagi (yaitu
exist./site existing/colocation),

jika terpenuhi yg tidak abu2 adalah pekerjaan: shelter foundation, shelter
installation, Earthing & PLN,

bagaimana menambah formulanya
- Apakah ada cara/usulan yang dapat membuat sheet saya menjadi lebih baik?
Terima kasih atas bantuannya.

Wass.
andrepri

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Create New Topic | Visit Your Group on the Web

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tiap tanggal gajian, order buku "mengapa boss benci chart anda    |
| membludak :) ayo2 pesan yang belum punya....                      |
| 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              |
+-------------------------------------------------------------------+

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

EXCEL FEED

Sabtu, 25 Juni 2011

]] XL-mania [[ Digest Number 2192

Messages In This Digest (5 Messages)

Messages

Re: Mengelompokkan Sheet Berdasakan Salah Satu Kolom

Posted by: "siti_vi" setiyowati.devi@gmail.com siti_vi

Fri Jun 24, 2011 6:59 pm (PDT)

Re: Macro untuk perhitungan uang makan

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Fri Jun 24, 2011 6:59 pm (PDT)

Re: jika data error

Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com

Fri Jun 24, 2011 7:00 pm (PDT)

Bls: ]] XL-mania [[ jika data error

Posted by: "Endut Karim" endutkarim@yahoo.co.id endutkarim

Fri Jun 24, 2011 7:02 pm (PDT)

mengganti dummy dengan cara lain

Posted by: "Andre Monte" andrepri.monte@gmail.com qlick2001

Fri Jun 24, 2011 7:02 pm (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me