XL-mania : Messages : 19972-20001 of 22153

misal di A1:

=trim(left(right(substitute(trim(a1)," ",rept(" ",len(a1))),2*len(a1)),len(a1)))

angka 2 berwarna merah dapat diganti jika menginginkan kata ke - N dari kalimat di A1.

blessings,

tomz

----- Original Message -----

From: Andre

To: XL-mania@yahoogroups.com

Sent: Friday, February 17, 2012 1:08 PM

Subject: ]] XL-mania [[ Mengambil suku kata kedua dalam kalimat

Slm bahagia, Para XL-Mania.
Aku mau tnya nih. Aku punya sebuah alamat, misalnya Jl.Jeruk 123 RT.001 RW.003 Jatitenan Surabaya.

Aku pengin ngambil kata kedua dari belakang kalimat, yaitu "Jatitenan".
Bagaimana ya caranya ?

Terima kasih,

#19973

From: wiadnyana i dw pt <wiadnyana06@...>
Date: Mon Feb 20, 2012 2:46 am
Subject: Update Combobox

wiadnyana06

Dears Pakar

Saya ingin mengupdate salah satu combobox denagan nilai pada salah satu combobox.

Maksudnya kitika nilai salah satu combobox1 diklick maka yang tampil di combobox2 adalah group item tertentu

begitu juga saat nilai combobox1 berubah maka nilai pada combobox2 akan berubah. Sudah saya coba pakai function if tapi mengalami kendala juga sudah saya coba pakai select case juga tidak bisa tolong dibantu sempurnakan makro saya sesuai dengan data terlampir

Terimakasih

#19974

From: i Haps <hapsari.stlizbeth@...>
Date: Mon Feb 20, 2012 4:32 am
Subject: Re: ]] XL-mania [[ Membuat sheet baru dari master sheet yang sudah ada

liz_indri_haps

hai gentayangan.. (ich syeremm..)

mungkin listing vba-code - nya seperti ini

Private Sub CmdCreate_Click()

' vba coded by: indri hapsari 20 feb 2012

'----------------------------------------

Dim NewSht As Worksheet, ShName As String

If CboMonth.ListIndex >= 0 Then

If IsNumeric(TxtYear) Then

If Len(TxtYear) = 4 Then

ShName = CboMonth & "-" & TxtYear

If SheetFound(ShName) Then

MsgBox "Jangan membuat sheet baru yg NAMANYA sudah ada!!", 48

Sheets(ShName).Activate

ListBox01.Selected(Sheets(ShName).Index - 1) = True

Exit Sub

Else

Set NewSht = Worksheets.Add(After:=Sheets(Sheets.Count))

NewSht.Name = ShName

Sheets("Master").Range("A1:G1").Copy NewSht.Range("A1:G1")

ListBox01.AddItem NewSht.Name

ListBox01.ListIndex = ListBox01.ListCount - 1

End If

End Sub

'--------------------------

- iHaps

2012/2/19 Genta Yangan <genta_yangan92@...>

Dear master excel
salam kenal dari saya genta.
mohon bantuannya dalam membangun data membuat sheet baru dengan menggunakan master form yang menjadi acuan serta melistkan kedalam vb

data terlampir
salam
genta

#19975

From: Lia Namaku <lia.namaku@...>
Date: Mon Feb 20, 2012 10:38 am
Subject: Bagaimana membuat 2 chart berhubungan dari 1 data

lia.namaku

http://flavors.me/lianamaku

Dear para suhu Excel,

mohon bantuannya boleh?

saya ingin membuat pie chart, 2 pie chart dari 1 data.

Maunya, di pie chart yang pertama, data Bali disatukan. di pie chart yang kedua, adalah data detail dari Bali itu terdiri atas apa saja.

Nah, ini yang saya kesulitan:

1. begitu saya lakukan pemrosesan pembuatan pie chart, langsung otomatis si excel memilih data yang mau di pie chart yang kedua, padahal bukan data itu yang saya maksud untuk di pie chart kedua. Saya maunya yang di pie chart kedua adalah data Gianyar, Denpasar, Jembrana - Singaraja dan Jembrana - Buleleng

2. Nah saya mau mengganti datanya tapi nggak ngerti cara dan formatnya :(

adakah yang bersedia menolong saya?

tolooong banget :)

thank you very much para suhu...

cheers,

Lia

http://proresensi.com

http://childrenmediaworkshop.com

twitter: @lianamaku

#19976

From: ivan jaya <jayaivan@...>
Date: Tue Feb 21, 2012 2:52 am
Subject: Ambil 2 sampel dari setiap lokasi

jayaivan

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

Blog: *http://www.ivanjaya.net*

PIN : *2212b7f4*

#19977

From: Reddy Sufriyanto <reddy.sufriyanto@...>
Date: Tue Feb 21, 2012 3:48 am
Subject: Membuat Ranking sesuai data dan tidak ada ranking double

reddy.sufriyanto@...

Dear Para Pakar Excel

ane mau minta solusinya

ane punya data yang harus di ranking,,tetapi apabila data itu sama ranking jd
double dan rangking berikutnya tidak muncul

keterangan ada di data terlampir ,,,apakah ada rumus atau solusi untuk itu

Terima Kasih

#19978

From: Firsty Relia Renata <firsty@...>
Date: Mon Feb 20, 2012 7:17 pm
Subject: gabung 3 kas

firsty.2402

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..

#19979

From: anton suryadi <summonery@...>
Date: Mon Feb 20, 2012 10:47 pm
Subject: Re: ]] XL-mania [[ Menjumlahkan kolom sesuai dengan kriteria bulan

summonery

Saya tambahkan ya ki,,

=INDEX(SUM(((--$B$2:$M$2)<=$O$1)*($B3:$M3)),)
=SUM(INDEX(((--$B$2:$M$2)<=$O$1)*($B3:$M3),))
=SUM($B3:INDEX($B3:$M3,$O$1))
=SUM(OFFSET($B3,,,,$O$1))
=SUM($B3:$M3 OFFSET($B3,,,,$O$1))
=SUM($B:$M OFFSET(3:3,,,,$O$1+COLUMN($B3)-1))
=SUM(OFFSET(3:3  $B:$B,,,,$O$1))
=SUM(3:3  OFFSET($B:$B,,,,$O$1))
(dan masih banyak varian lainnya yang dapat digunakan)

File terlampir


>semoga
bermanfaat


   From: Ki Semprul <semprul.ki@...>
 To: XL-mania@yahoogroups.com 
 Sent: Monday, February 20, 2012 5:33 AM
 Subject: Re: ]] XL-mania [[ Menjumlahkan kolom sesuai dengan kriteria bulan
  

 salah satu cara :

( 1 ) Array Formula di cell O3=SUM(IF(--($B$2:$M$2)<=$O$1,$B3:$M3))

( 2 ) selain itu ada lagi  (formula biasa..)
=SUM(OFFSET($A3,0,1,1,$O$1))

( 2a ) malah karena adanya sifat optional pada beberapa arguments-nya, 
rumus tsb masih bisa dipangkas menjadi lebih pendek dan kekar spt ini
  / recommended karena pendek-nya
=SUM(OFFSET($A3,,1,,$O$1)

( 3 ) zamproduct ..?? juga ike..
=SUMPRODUCT((--$B$2:$M$2<=$O$1)*B3:M3)

( 4 ) masih bisa dicoba formula:
=SUM(INDEX($B3:$N3,1):INDEX($B3:$N3,$O$1))

( 5 )  selain itu kalau mau ber-rumit-ria, sambil belajar fungsi INDIRECT & ADDRESS
mumpung ada kasusnya
=SUM(INDIRECT(ADDRESS(ROW(),2)&":"&ADDRESS(ROW(),$O$1+1)))

( 6 )  Seandainya Baris B2:N2 berisi angka urut 1 sd 12 
       (bukan berupa data text tetapi data  Numners / Bilangan), maka rumusnya lebih  sederhana
=SUMIF($B$19:$M$19, "<=" & $O$1, $B3:$M3)



2012/2/17 Agus Iriyanto <agus.parepare@...>
> To.. XL-Mania..

> mohon bisa dibantu, formula yang tepat untuk menjumlahkan sejumlah kolom sesui dengan kriteria bulan. 
> lebih jelas ada di sisipan. terimakasih.

#19980

From: dayadevi88@...
Date: Tue Feb 21, 2012 12:46 am
Subject: File di taskbar tdk bisa di buka

dayadevi88

Dear, Master xl
Saya bekerja buka lebih dari satu file yaitu : file excel & program GL.Kenapa
saat ingin lihat file yg lain, ketika klik file di taskbar sering tdk bisa
jalan/tdk bisa buka?
Mohon solusi dari pakar2 xl.
Thanks

Rgrd,
Devi

Sent from my AXIS Worry Free BlackBerry� smartphone

Reply | Messages in this Topic (1)

#19981

From: poltak marasi <pmloebis@...>
Date: Tue Feb 21, 2012 7:48 pm
Subject: Re: ]] XL-mania [[ Bagaimana membuat 2 chart berhubungan dari 1 data

pmloebis

Hi Lia,

Coba ubah referensi data seriesnya dari
sebelumnya: SERIES(,'24-31 Jan'!$B$3:$C$9,'24-31 Jan'!$D$3:$D$6,1)
menjadi SERIES(,'24-31 Jan'!$B$3:$C$6,'24-31 Jan'!$D$3:$D$6,1)

Semoga membantu....

Rgds,
pml

--- On Mon, 2/20/12, Lia Namaku <lia.namaku@...> wrote:

From: Lia Namaku <lia.namaku@...>
Subject: ]] XL-mania [[ Bagaimana membuat 2 chart berhubungan dari 1 data
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Date: Monday, February 20, 2012, 5:38 AM

Dear para suhu Excel,

mohon bantuannya boleh?

saya ingin membuat pie chart, 2 pie chart dari 1 data.
Maunya, di pie chart yang pertama, data Bali disatukan. di pie chart yang kedua, adalah data detail dari Bali itu terdiri atas apa saja.

Nah, ini yang saya kesulitan:
1. begitu saya lakukan pemrosesan pembuatan pie chart, langsung otomatis si excel memilih data yang mau di pie chart yang kedua, padahal bukan data itu yang saya maksud untuk di pie chart kedua. Saya maunya yang di pie chart kedua adalah data Gianyar, Denpasar, Jembrana - Singaraja dan Jembrana - Buleleng
2. Nah saya mau mengganti datanya tapi nggak ngerti cara dan formatnya :(

adakah yang bersedia menolong saya?

tolooong banget :)

thank you very much para suhu...

cheers,
Lia

http://flavors.me/lianamaku

http://proresensi.com
http://childrenmediaworkshop.com

twitter: @lianamaku

#19982

From: "Tommy" <tomz.zlow@...>
Date: Wed Feb 22, 2012 12:28 am
Subject: Re: ]] XL-mania [[ Membuat Ranking sesuai data dan tidak ada ranking double

tomz_aja

Berhubung acuannya hanya satu, tambahkan saja fungsi countif

di cell F7, masukan formula:

=COUNTIF($L$6:L6,L7)+RANK($L7,$L$7:$L$63)

blessings,

tomz

----- Original Message -----

From: Reddy Sufriyanto

To: XL-mania@yahoogroups.com

Sent: Tuesday, February 21, 2012 12:48 PM

Subject: ]] XL-mania [[ Membuat Ranking sesuai data dan tidak ada ranking double

Dear Para Pakar Excel

ane mau minta solusinya

ane punya data yang harus di ranking,,tetapi apabila data itu sama ranking jd double dan rangking berikutnya tidak muncul

keterangan ada di data terlampir ,,,apakah ada rumus atau solusi untuk itu

Terima Kasih

#19983

From: "Tommy" <tomz.zlow@...>
Date: Wed Feb 22, 2012 12:32 am
Subject: Re: ]] XL-mania [[ Ambil 2 sampel dari setiap lokasi

tomz_aja

Coba formula berikut:

=INDEX($C$4:$C$23,MATCH(F6,$B$4:$B$23,)+COUNTIF($F$5:F5,F6))

copy paste ke bawah..

bisa juga menggunakan fungsi offset (sebagai ganti index)

blessings,

tomz

----- Original Message -----

From: ivan jaya

To: XL-mania

Sent: Tuesday, February 21, 2012 11:52 AM

Subject: ]] XL-mania [[ Ambil 2 sampel dari setiap lokasi

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

Blog: *http://www.ivanjaya.net*

PIN : *2212b7f4*

#19984

From: ghozi alkatiri <ghozialkatiri@...>
Date: Wed Feb 22, 2012 12:52 am
Subject: Bls: ]] XL-mania [[ Ambil 2 sampel dari setiap lokasi

ghozialkatiri

untuk mengisi kolom NO formulanya:
=TRUNC((ROW(1:1)-1)/2)+1
copy ke bawah dst

untuk mengisi kolom Lokasi formulanya:
=IFERROR(IF(ROWS(F$5:F5)=1;INDEX($B$4:$B$23;1);IF(COUNTIF(F$5:F5;F5)<2;F5;INDEX($B$4:$B$23;MATCH(F5;$B$4:$B$23;0)+COUNTIF($B$4:$B$23;F5))));"")
copy ke bawah dst.

untuk mengisi kolom Item formulanya:
=IFERROR(INDEX($C$4:$C$23;MATCH(F6;$B$4:$B$23;0)+MOD(ROW(1:1)-1;2));"")
copy ke bawah dst

wassalam

Ghozi Alkatiri

--- Pada Sel, 21/2/12, ivan jaya <jayaivan@...> menulis:

Dari: ivan jaya <jayaivan@...>
Judul: ]] XL-mania [[ Ambil 2 sampel dari setiap lokasi
Kepada: "XL-mania" <XL-mania@yahoogroups.com>
Tanggal: Selasa, 21 Februari, 2012, 9:52 AM

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

Blog: *http://www.ivanjaya.net*

PIN : *2212b7f4*

Reply | Messages in this Topic (1)

#19985

From: ghozi alkatiri <ghozialkatiri@...>
Date: Wed Feb 22, 2012 1:06 am
Subject: Bls: ]] XL-mania [[ Membuat Ranking sesuai data dan tidak ada ranking double

ghozialkatiri

tambahkan rumus yang sebelumnya
=RANK(L7;$L$7:$L$63)
menjadi
=RANK(L7;$L$7:$L$63)+COUNTIF(L$7:L7;L7)-1
copy ke bawah

wassalam

Ghozi Alkatiri

--- Pada Sel, 21/2/12, Reddy Sufriyanto <reddy.sufriyanto@...> menulis:

Dari: Reddy Sufriyanto <reddy.sufriyanto@...>
Judul: ]] XL-mania [[ Membuat Ranking sesuai data dan tidak ada ranking double
Kepada: XL-mania@yahoogroups.com
Tanggal: Selasa, 21 Februari, 2012, 10:48 AM

Dear Para Pakar Excel

ane mau minta solusinya

ane punya data yang harus di ranking,,tetapi apabila data itu sama ranking jd double dan rangking berikutnya tidak muncul

keterangan ada di data terlampir ,,,apakah ada rumus atau solusi untuk itu

Terima Kasih

Reply | Messages in this Topic (1)

#19986

From: Ayiekosing Osing <ayiekosing@...>
Date: Wed Feb 22, 2012 3:50 am
Subject: Update Stock Harian

ayiekosing@...

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

#19987

From: HRD Ampuh <hrd_advisor@...>
Date: Wed Feb 22, 2012 1:19 pm
Subject: Selisih Pembulatannya berapa boss? hiiikss....

hrd_advisor

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...

#19988

From: "Ridwan" <ridwan@...>
Date: Thu Feb 23, 2012 2:22 am
Subject: RE: ]] XL-mania [[ Bagaimana membuat 2 chart berhubungan dari 1 data

ridwan_tamil

http://flavors.me/lianamaku

Dear Lia,

Kalau dilihat attachmentnya sepertinya Lia menggunakan office 2003. Saya menggunakan office 2007, tapi mudah2an bisa digunakan juga di office 2003.

Buat tabel data, dengan kota bali berada diurutan terakhir :

Bondowoso	2072
Probolinggo - Lumajang	185
Banyuwangi	30
Bali - Denpasar	9639
Bali - Jembrana - Singaraja	1026
Bali - Gianyar	602
Bali - Jembrana - Buleleng	5355

Insert Pie of Pie Chart, klik kanan pada chart. Kemudian pilih Format Data Series.

Kemudian setting seperti gambar berikut :

Selesai. Semoga seperti yang diinginkan.

Ridwan.

From: Lia Namaku [mailto:lia.namaku@...]
Sent: Monday, February 20, 2012 5:38 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ Bagaimana membuat 2 chart berhubungan dari 1 data

Dear para suhu Excel,

mohon bantuannya boleh?

saya ingin membuat pie chart, 2 pie chart dari 1 data.

Maunya, di pie chart yang pertama, data Bali disatukan. di pie chart yang kedua, adalah data detail dari Bali itu terdiri atas apa saja.

Nah, ini yang saya kesulitan:

2. Nah saya mau mengganti datanya tapi nggak ngerti cara dan formatnya :(

adakah yang bersedia menolong saya?

tolooong banget :)

thank you very much para suhu...

cheers,

Lia

http://proresensi.com

http://childrenmediaworkshop.com

twitter: @lianamaku

#19989

From: "Kid Mr." <mr.nmkid@...>
Date: Thu Feb 23, 2012 2:15 am
Subject: Re: ]] XL-mania [[ Update Combobox

Hai Yana,

File terlampir memanfaatkan data dalam sebuah worksheet.

Regards.
Kid.

On Mon, Feb 20, 2012 at 09:46, wiadnyana i dw pt <wiadnyana06@...> wrote:

�

Dears Pakar

Saya ingin mengupdate salah satu combobox denagan nilai pada salah satu combobox.
Maksudnya kitika nilai salah satu combobox1 diklick maka yang tampil di combobox2 adalah group item tertentu
begitu juga saat nilai combobox1 berubah maka nilai pada combobox2 akan berubah. Sudah saya coba pakai function if tapi mengalami kendala juga sudah saya coba pakai select case juga tidak bisa tolong dibantu sempurnakan makro saya sesuai dengan data terlampir

Terimakasih

#19990

From: "Kid Mr." <mr.nmkid@...>
Date: Thu Feb 23, 2012 2:30 am
Subject: Re: ]] XL-mania [[ Ambil 2 sampel dari setiap lokasi

Waalaikumussalam Wr. Wb.

Pak Ivan,

Silakan dicoba :
1. Kolom No (Column E)
=CEILING(ROW(1:1)/2,1)

2. Kolom Lokasi (Column F) -> Array formula unique list (akhiri penulisan formula dengan menekan Ctrl Shift Enter bersamaan) :
=IF(E6=E5,F5,INDEX($B$4:$B$23,MATCH(0,COUNTIF(F$5:F5,$B$4:$B$23),0)))

3. Kolom Item (Column G) -> Array formula
=INDEX($C$4:$C$23,SMALL(IF($B$4:$B$23=F6,$A$4:$A$23),1+(E6=E5)))

Wassalamualaikum Wr. Wb.
Kid.

On Tue, Feb 21, 2012 at 09:52, ivan jaya <jayaivan@...> wrote:

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

Blog: *http://www.ivanjaya.net*

PIN : *2212b7f4*

#19991

From: "Kid Mr." <mr.nmkid@...>
Date: Thu Feb 23, 2012 2:33 am
Subject: Re: ]] XL-mania [[ Membuat Ranking sesuai data dan tidak ada ranking double

Dear Reddy,

Coba :
=RANK($L22,$L$7:$L$63)+COUNTIF(L$7:L22,L22)-1

Regards.
Kid.

On Tue, Feb 21, 2012 at 10:48, Reddy Sufriyanto <reddy.sufriyanto@...> wrote:

�

Dear Para Pakar Excel

ane mau minta solusinya

ane punya data yang harus di ranking,,tetapi apabila data itu sama ranking jd double dan rangking berikutnya tidak muncul

keterangan ada di data terlampir ,,,apakah ada rumus atau solusi untuk itu

Terima Kasih

#19992

From: HerrSoe <herrsoe@...>
Date: Thu Feb 23, 2012 4:03 pm
Subject: Re: ]] XL-mania [[ Ambil 2 sampel dari setiap lokasi

herrsoe

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@...>

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

#19993

From: Ki Semprul <semprul.ki@...>
Date: Thu Feb 23, 2012 4:22 pm
Subject: Re: ]] XL-mania [[ Tanya Macro Simpan Inputan Data ke Sheet yang Lain

ki_semprull

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").ClearContents

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@...>

---------------------------------------------------
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

#19994

From: "Kid Mr." <mr.nmkid@...>
Date: Thu Feb 23, 2012 5:42 pm
Subject: Re: ]] XL-mania [[ Selisih Pembulatannya berapa boss? hiiikss....

Coba formula

=(MOD(F2,100)>0)*100-MOD(F2,100)

Regards.
Kid.

On Wed, Feb 22, 2012 at 20:19, HRD Ampuh <hrd_advisor@...> 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...

#19995

From: Ki Semprul <semprul.ki@...>
Date: Thu Feb 23, 2012 5:50 pm
Subject: Re: ]] XL-mania [[ Selisih Pembulatannya berapa boss? hiiikss....

ki_semprull

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@...>

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....

#19996

From: Ki Semprul <semprul.ki@...>
Date: Thu Feb 23, 2012 6:17 pm
Subject: Re: ]] XL-mania [[ Selisih Pembulatannya berapa boss? hiiikss....

ki_semprull

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@...>

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@...>

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!

#19997

From: raya hidayat <raya.hidayat@...>
Date: Fri Feb 24, 2012 1:46 am
Subject: Re: ]] XL-mania [[ Selisih Pembulatannya berapa boss? hiiikss....

raya.hidayat@...

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@...>

�

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

#19998

From: hendrik karnadi <hendrikkarnadi@...>
Date: Fri Feb 24, 2012 1:52 am
Subject: Re: ]] XL-mania [[ Selisih Pembulatannya berapa boss? hiiikss....

hendrikkarnadi

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@...>
To: XL-mania@yahoogroups.com
Sent: Wednesday, 22 February 2012, 20:19
Subject: ]] XL-mania [[ Selisih Pembulatannya berapa boss? hiiikss....

#19999

From: "Tommy" <tomz.zlow@...>
Date: Fri Feb 24, 2012 2:01 am
Subject: Re: ]] XL-mania [[ Update Stock Harian

tomz_aja

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

#20000

From: NANG Agus <nangagus@...>
Date: Fri Feb 24, 2012 3:08 am
Subject: Re: ]] XL-mania [[ Selisih Pembulatannya berapa boss? hiiikss....

nangagus@...

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@...>

�

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...

#20001

From: "o' Seno" <ontoseno84@...>
Date: Fri Feb 24, 2012 4:02 am
Subject: Re: ]] XL-mania [[ gabung 3 kas

o_s_e_n_o

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@...>
>
> 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..