Jumat, 14 Oktober 2011

[belajar-excel] Digest Number 1361

Messages In This Digest (19 Messages)

1a.
Form Calender hilang From: -uhr-
1b.
Re: Form Calender hilang From: Onto Seno
2a.
Re: Extract text From: Muhammad HENDRA
2b.
Re: Extract text From: jkssxls Sudarsono
2c.
Re: Extract text From: jkssxls Sudarsono
3a.
Bls: [belajar-excel] Macro excel copy data ke posisi terakhir From: Dewan Deya
3b.
Re: Macro excel copy data ke posisi terakhir From: STDEV(i)
3c.
Re: Macro excel copy data ke posisi terakhir From: STDEV(i)
4a.
Menu Ribbon From: ppc lambda
4b.
Re: Menu Ribbon From: STDEV(i)
4c.
Re: Menu Ribbon From: ppc lambda
4d.
Re: Menu Ribbon From: Haps
5a.
Menyederhanakan File & Rumus From: dicky zulkifli
5b.
Re: Menyederhanakan File & Rumus From: Kid Mr.
6a.
FW: formula data yang  secara Otomatis From: stefen
6b.
Re: FW: formula data yang secara Otomatis From: Haps
6c.
Re: FW: formula data yang secara Otomatis From: Haps
6d.
Re: FW: formula data yang secara Otomatis From: stefen
7a.
Re: Kursus Excel From: Budhi Cahyanto

Messages

1a.

Form Calender hilang

Posted by: "-uhr-" uharyanto@gmail.com   lover_intermezzo

Thu Oct 13, 2011 1:00 pm (PDT)



Selamat malam rekan dan para master excel.

Saya ada permasalahan pada form calender di vba ms excel 2010 dengan pesan
error sbb : "could not load an object because it is not available on this
machine" setelah saya coba cek di vba ternyata form calender hilang,
kemudian saya coba cek lagi di "Tools - Additional Controls" kemudian saya
cari "calender" ternyata tidak ada.

Kiranya para master dapat membantu permasalahan saya.

Oya mohon maaf belum bisa melampirkan file contoh ( kirim email pake HH ).

Salam.
-uhr-
1b.

Re: Form Calender hilang

Posted by: "Onto Seno" ontoseno84@gmail.com   ontoseno84@ymail.com

Thu Oct 13, 2011 4:31 pm (PDT)



Dear Mas Har,

Calendar Control itu mau dipajang di SHEET atau di USERFORM ya mas ?
Dimanapun akan dipajang, kita perlu file pendukung (OCX / activeX
control) namanya *MSCAL.OCX*
OoperatingSystem 32 vs 64 bit sepertinya juga menjadi hal yg harus menjadi
bahan pertimbangan.

3 Gambars berikut ini ingin menjelaskan situasi di* Excel 2007* kalau
Calendar Control belum ada di "More Control" ListBox

[image: ActiveX More ctrl.PNG]

[image: More Ctrl Box.PNG]

Lokasi (path) file MsCal.OCX mungkin bisa berbeda, misalnya di
C:\Windows\System32

[image: File MSCAL_OCX (lokasinya).PNG]

di *Excel 2010 *saya kurang paham karena belum menginstallnya. Jika fle
MsCal.OCX nya tidak ada, cobalah cari & download MSCAL.ZIP (berisi
mscal.ocx berbagai versi (97 sampai terbaru) + penjelasan; ada di
http://www.gmayor.com/downloads.htm
sekitar 700 - 800 KB
Sekitar seminggu y.l. saya lihat di OnLineFolder-nya mbak siti (hai mbak
siti..) juga ada copyannya, di sini:
http://www.box.net/shared/zd02z36h7h2pvli9mdrm

Di Internet via Gugel search-engine, dengan kata kunci "Excel 2100 Calendar
Control" akan banyak kita temui penjelasannya.

Mohon maaf jika salah info...

wassalam,
o' Seno
--via my old nokia 5110 powered by alkalin-- :D

2011/10/13 -uhr- <uharyanto@gmail.com>

> **
>
> Selamat malam rekan dan para master excel.
>
> Saya ada permasalahan pada form calender di vba ms excel 2010 dengan pesan
> error sbb : "could not load an object because it is not available on this
> machine" setelah saya coba cek di vba ternyata form calender hilang,
> kemudian saya coba cek lagi di "Tools - Additional Controls" kemudian saya
> cari "calender" ternyata tidak ada.
>
> Kiranya para master dapat membantu permasalahan saya.
>
> Oya mohon maaf belum bisa melampirkan file contoh ( kirim email pake HH ).
>
> Salam.
> -uhr-
>
2a.

Re: Extract text

Posted by: "Muhammad HENDRA" muhammad.hendra@external.total.com

Thu Oct 13, 2011 5:02 pm (PDT)



Aduh…minta maaf sebesar2nya buat Bapak & Ibu Momod jika saya sudah melanggar pasal2 yang ditetapkan.
Insya allah lain waktu akan saya sertakan pertanyaan di badan e-mail

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Undang Satrianie
Sent: Thursday, October 13, 2011 4:15 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Extract text


Aduh Mpok Momod Mengingatkan dirikiwu, Saya Sudah Lebih Dari 1 Kali Loh Lupa Peraturan..He...hee..

=TRIM(LEFT(RIGHT(SUBSTITUTE(A2;"-";REPT(" ";LEN(A2)));2*LEN(A2));LEN(A2)))

________________________________
Dari: Muhammad HENDRA <muhammad.hendra@external.total.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Kamis, 13 Oktober 2011 14:32
Judul: [belajar-excel] Extract text

Dear Be-Excel...
Mohon bantuannya untuk kasus terlampir.
Best regards.
M.Hendra

=============================================
MODS NOTE:
wah.. kok semakin banyak yg gak sempat baca
undang-undang ya.. (selain undang satrianie.. he he.)

baiklah teman,
kepada members lain terutama yg tidak dapat segera
mengakses lampiran karena status membershipnya atau
karena keadaan tertentu, kami beritahukan bahwa
pertanyaannya (yg harusnya digelar di badan email ini)
adalah sbb:

pak M Hendra ingin mengambil subdata (SubString) dari
string seperti contoh di bawah ini
kolom 1 adalah input / sumber data
kolom 2 ada adalah hasil yg diinginkan

KOLOM1------- KOLOM2---

3-G-B20-7002 B20
2-G-B20-7016 B20
3-FG-B25-7009 B25
8-FG-B13-1041 B13
8-FG-A10-1048 A10
8-FW-E10-1042 E10

=================================================

berikut ini kami kutipkan salah satu pasal peraturan milis:

Saran & Tips menulis mail / posting ke milis:
---------------------------------------------
pasal (c)
Terutama pada posting pertanyaan/request, tuliskan masalah
dengan jelas di badan email. Penjelasan lebih rinci dapat
ditulis pada lampiran.
Lampiran sedapat mungkin berupa workbook (file *.xls),
dengan nama-file yang spesifik.
===================================================


2b.

Re: Extract text

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Fri Oct 14, 2011 1:35 am (PDT)





hasil :ketemu "-" kedua dan 3 karantara "-" kedua dan ketigasebelum "-" terakhirB20B20B20B20B20B20B25B25B25B13B13B13A10A10A10E10E10E10F03F03F03B10B10B10B13B13B13B12B12B12A27A27A2710410489A27 rumusnya : ketemu "-" kedua dan 3 kar=MID(A2,FIND("-",A2,FIND("-",A2,1)+1)+1,3)=MID(A3,FIND("-",A3,FIND("-",A3,1)+1)+1,3)=MID(A4,FIND("-",A4,FIND("-",A4,1)+1)+1,3)=MID(A5,FIND("-",A5,FIND("-",A5,1)+1)+1,3)=MID(A6,FIND("-",A6,FIND("-",A6,1)+1)+1,3)=MID(A7,FIND("-",A7,FIND("-",A7,1)+1)+1,3)=MID(A8,FIND("-",A8,FIND("-",A8,1)+1)+1,3)=MID(A9,FIND("-",A9,FIND("-",A9,1)+1)+1,3)=MID(A10,FIND("-",A10,FIND("-",A10,1)+1)+1,3)=MID(A11,FIND("-",A11,FIND("-",A11,1)+1)+1,3)=MID(A12,FIND("-",A12,FIND("-",A12,1)+1)+1,3)=MID(A13,FIND("-",A13,FIND("-",A13,1)+1)+1,3) antara "-" kedua dan ketiga=TRIM(MID(SUBSTITUTE(A2,"-",REPT(" ",LEN(A2))),2*LEN(A2),LEN(A2)))=TRIM(MID(SUBSTITUTE(A3,"-",REPT(" ",LEN(A3))),2*LEN(A3),LEN(A3)))=TRIM(MID(SUBSTITUTE(A4,"-",REPT(" ",LEN(A4))),2*LEN(A4),LEN(A4)))=TRIM(MID(SUBSTITUTE(A5,"-",REPT(" ",LEN(A5))),2*LEN(A5),LEN(A5)))=TRIM(MID(SUBSTITUTE(A6,"-",REPT(" ",LEN(A6))),2*LEN(A6),LEN(A6)))=TRIM(MID(SUBSTITUTE(A7,"-",REPT(" ",LEN(A7))),2*LEN(A7),LEN(A7)))=TRIM(MID(SUBSTITUTE(A8,"-",REPT(" ",LEN(A8))),2*LEN(A8),LEN(A8)))=TRIM(MID(SUBSTITUTE(A9,"-",REPT(" ",LEN(A9))),2*LEN(A9),LEN(A9)))=TRIM(MID(SUBSTITUTE(A10,"-",REPT(" ",LEN(A10))),2*LEN(A10),LEN(A10)))=TRIM(MID(SUBSTITUTE(A11,"-",REPT(" ",LEN(A11))),2*LEN(A11),LEN(A11)))=TRIM(MID(SUBSTITUTE(A12,"-",REPT(" ",LEN(A12))),2*LEN(A12),LEN(A12)))=TRIM(MID(SUBSTITUTE(A13,"-",REPT(" ",LEN(A13))),2*LEN(A13),LEN(A13))) sebelum "-" terakhir=TRIM(LEFT(RIGHT(SUBSTITUTE(A2,"-",REPT(" ",LEN(A2))),2*LEN(A2)),LEN(A2)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A3,"-",REPT(" ",LEN(A3))),2*LEN(A3)),LEN(A3)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A4,"-",REPT(" ",LEN(A4))),2*LEN(A4)),LEN(A4)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A5,"-",REPT(" ",LEN(A5))),2*LEN(A5)),LEN(A5)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A6,"-",REPT(" ",LEN(A6))),2*LEN(A6)),LEN(A6)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A7,"-",REPT(" ",LEN(A7))),2*LEN(A7)),LEN(A7)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A8,"-",REPT(" ",LEN(A8))),2*LEN(A8)),LEN(A8)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A9,"-",REPT(" ",LEN(A9))),2*LEN(A9)),LEN(A9)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A10,"-",REPT(" ",LEN(A10))),2*LEN(A10)),LEN(A10)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A11,"-",REPT(" ",LEN(A11))),2*LEN(A11)),LEN(A11)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A12,"-",REPT(" ",LEN(A12))),2*LEN(A12)),LEN(A12)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A13,"-",REPT(" ",LEN(A13))),2*LEN(A13)),LEN(A13)))
To: belajar-excel@yahoogroups.com
From: muhammad.hendra@external.total.com
Date: Thu, 13 Oct 2011 15:32:47 +0800
Subject: [belajar-excel] Extract text

Dear Be-Excel...

Mohon bantuannya untuk kasus terlampir.

Best regards.

M.Hendra

=============================================

MODS NOTE:

wah.. kok semakin banyak yg gak sempat baca

undang-undang ya.. (selain undang satrianie.. he he.)

baiklah teman,

kepada members lain terutama yg tidak dapat segera

mengakses lampiran karena status membershipnya atau

karena keadaan tertentu, kami beritahukan bahwa

pertanyaannya (yg harusnya digelar di badan email ini)

adalah sbb:

pak M Hendra ingin mengambil subdata (SubString) dari

string seperti contoh di bawah ini

kolom 1 adalah input / sumber data

kolom 2 ada adalah hasil yg diinginkan

KOLOM1------- KOLOM2---

3-G-B20-7002 B20

2-G-B20-7016 B20

3-FG-B25-7009 B25

8-FG-B13-1041 B13

8-FG-A10-1048 A10

8-FW-E10-1042 E10

=================================================

berikut ini kami kutipkan salah satu pasal peraturan milis:

Saran & Tips menulis mail / posting ke milis:

---------------------------------------------

pasal (c)

Terutama pada posting pertanyaan/request, tuliskan masalah

dengan jelas di badan email. Penjelasan lebih rinci dapat

ditulis pada lampiran.

Lampiran sedapat mungkin berupa workbook (file *.xls),

dengan nama-file yang spesifik.

===================================================

2c.

Re: Extract text

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Fri Oct 14, 2011 1:42 am (PDT)




karena data belum di tampilkan saya kirim data dan hasil ( 3 rumus berbeda ) :

Number
ketemu
"-" kedua dan 3 kar
antara
"-" kedua dan ketiga
sebelum
"-" terakhir


3-G-B20-7002
B20
B20
B20


2-G-B20-7016
B20
B20
B20


3-FG-B25-7009
B25
B25
B25


8-FG-B13-1041
B13
B13
B13


8-FG-A10-1048
A10
A10
A10


8-FW-E10-1042
E10
E10
E10


8-L-F03-1043
F03
F03
F03


8-FG-B10-1044
B10
B10
B10


8-FG-B13-1047
B13
B13
B13


1_25-FG-B12-10482
B12
B12
B12


0_375-FG-A27-10489
A27
A27
A27


FG-A27-10489
104
10489
A27


A27-10489
#VALUE!

A27


To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Fri, 14 Oct 2011 08:34:42 +0000
Subject: RE: [belajar-excel] Extract text

hasil :
ketemu "-" kedua dan 3 karantara "-" kedua dan ketigasebelum "-" terakhirB20B20B20B20B20B20B25B25B25B13B13B13A10A10A10E10E10E10F03F03F03B10B10B10B13B13B13B12B12B12A27A27A2710410489A27 rumusnya : ketemu "-" kedua dan 3 kar=MID(A2,FIND("-",A2,FIND("-",A2,1)+1)+1,3)=MID(A3,FIND("-",A3,FIND("-",A3,1)+1)+1,3)=MID(A4,FIND("-",A4,FIND("-",A4,1)+1)+1,3)=MID(A5,FIND("-",A5,FIND("-",A5,1)+1)+1,3)=MID(A6,FIND("-",A6,FIND("-",A6,1)+1)+1,3)=MID(A7,FIND("-",A7,FIND("-",A7,1)+1)+1,3)=MID(A8,FIND("-",A8,FIND("-",A8,1)+1)+1,3)=MID(A9,FIND("-",A9,FIND("-",A9,1)+1)+1,3)=MID(A10,FIND("-",A10,FIND("-",A10,1)+1)+1,3)=MID(A11,FIND("-",A11,FIND("-",A11,1)+1)+1,3)=MID(A12,FIND("-",A12,FIND("-",A12,1)+1)+1,3)=MID(A13,FIND("-",A13,FIND("-",A13,1)+1)+1,3) antara "-" kedua dan ketiga=TRIM(MID(SUBSTITUTE(A2,"-",REPT(" ",LEN(A2))),2*LEN(A2),LEN(A2)))=TRIM(MID(SUBSTITUTE(A3,"-",REPT(" ",LEN(A3))),2*LEN(A3),LEN(A3)))=TRIM(MID(SUBSTITUTE(A4,"-",REPT(" ",LEN(A4))),2*LEN(A4),LEN(A4)))=TRIM(MID(SUBSTITUTE(A5,"-",REPT(" ",LEN(A5))),2*LEN(A5),LEN(A5)))=TRIM(MID(SUBSTITUTE(A6,"-",REPT(" ",LEN(A6))),2*LEN(A6),LEN(A6)))=TRIM(MID(SUBSTITUTE(A7,"-",REPT(" ",LEN(A7))),2*LEN(A7),LEN(A7)))=TRIM(MID(SUBSTITUTE(A8,"-",REPT(" ",LEN(A8))),2*LEN(A8),LEN(A8)))=TRIM(MID(SUBSTITUTE(A9,"-",REPT(" ",LEN(A9))),2*LEN(A9),LEN(A9)))=TRIM(MID(SUBSTITUTE(A10,"-",REPT(" ",LEN(A10))),2*LEN(A10),LEN(A10)))=TRIM(MID(SUBSTITUTE(A11,"-",REPT(" ",LEN(A11))),2*LEN(A11),LEN(A11)))=TRIM(MID(SUBSTITUTE(A12,"-",REPT(" ",LEN(A12))),2*LEN(A12),LEN(A12)))=TRIM(MID(SUBSTITUTE(A13,"-",REPT(" ",LEN(A13))),2*LEN(A13),LEN(A13))) sebelum "-" terakhir=TRIM(LEFT(RIGHT(SUBSTITUTE(A2,"-",REPT(" ",LEN(A2))),2*LEN(A2)),LEN(A2)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A3,"-",REPT(" ",LEN(A3))),2*LEN(A3)),LEN(A3)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A4,"-",REPT(" ",LEN(A4))),2*LEN(A4)),LEN(A4)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A5,"-",REPT(" ",LEN(A5))),2*LEN(A5)),LEN(A5)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A6,"-",REPT(" ",LEN(A6))),2*LEN(A6)),LEN(A6)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A7,"-",REPT(" ",LEN(A7))),2*LEN(A7)),LEN(A7)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A8,"-",REPT(" ",LEN(A8))),2*LEN(A8)),LEN(A8)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A9,"-",REPT(" ",LEN(A9))),2*LEN(A9)),LEN(A9)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A10,"-",REPT(" ",LEN(A10))),2*LEN(A10)),LEN(A10)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A11,"-",REPT(" ",LEN(A11))),2*LEN(A11)),LEN(A11)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A12,"-",REPT(" ",LEN(A12))),2*LEN(A12)),LEN(A12)))=TRIM(LEFT(RIGHT(SUBSTITUTE(A13,"-",REPT(" ",LEN(A13))),2*LEN(A13)),LEN(A13)))

To: belajar-excel@yahoogroups.com
From: muhammad.hendra@external.total.com
Date: Thu, 13 Oct 2011 15:32:47 +0800
Subject: [belajar-excel] Extract text

Dear Be-Excel...

Mohon bantuannya untuk kasus terlampir.

Best regards.

M.Hendra

=============================================

MODS NOTE:

wah.. kok semakin banyak yg gak sempat baca

undang-undang ya.. (selain undang satrianie.. he he.)

baiklah teman,

kepada members lain terutama yg tidak dapat segera

mengakses lampiran karena status membershipnya atau

karena keadaan tertentu, kami beritahukan bahwa

pertanyaannya (yg harusnya digelar di badan email ini)

adalah sbb:

pak M Hendra ingin mengambil subdata (SubString) dari

string seperti contoh di bawah ini

kolom 1 adalah input / sumber data

kolom 2 ada adalah hasil yg diinginkan

KOLOM1------- KOLOM2---

3-G-B20-7002 B20

2-G-B20-7016 B20

3-FG-B25-7009 B25

8-FG-B13-1041 B13

8-FG-A10-1048 A10

8-FW-E10-1042 E10

=================================================

berikut ini kami kutipkan salah satu pasal peraturan milis:

Saran & Tips menulis mail / posting ke milis:

---------------------------------------------

pasal (c)

Terutama pada posting pertanyaan/request, tuliskan masalah

dengan jelas di badan email. Penjelasan lebih rinci dapat

ditulis pada lampiran.

Lampiran sedapat mungkin berupa workbook (file *.xls),

dengan nama-file yang spesifik.

===================================================



3a.

Bls: [belajar-excel] Macro excel copy data ke posisi terakhir

Posted by: "Dewan Deya" dwanxls@yahoo.co.id   dwanxls

Thu Oct 13, 2011 8:46 pm (PDT)



Terimakasih B' Devi atas penjelasannya...Sangat gamblang sekali, sehingga saya yang tidak begitu paham banyak tentang macro, bisa ngerti seraca jelas. Hanya ada yang ingin saya tanyakan untuk statement dari B' Devi dibawah ini:

jadi dengan asumsi : mulai dari C3  dan cells dibawahnya masih kosong
Sheet2.Range("C65536").End(xlUp)
akan memindahkan cellpointer ke C2

Asumsi cel C3 berisi data (misalkan huruf atau angka) dan cell dibawahnya masih kosong.

Saya coba letakkan kursor  di cell C65536, kemudian saya tekan tombol End dan tombol panah Up. Ternyata hasilnya kursor berada di C3, bukan C2.

Terimakasih atas penjelasannya & kesabarannya, mau menjelaskan dengan begitu rincinya.

Semoga terus bisa berbagi

________________________________
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 13 Oktober 2011 18:12
Judul: Re: [belajar-excel] Macro excel copy data ke posisi terakhir

 
Penjelasan yg diberikan kemarin itu kurang lengkap
Lengkapnya Di Sheet1 CELL C2 harus sudah berisi data apa saja 
Maksudnya untuk menghasilkan C4 terhadap statement spt di bawah ini.
Set CellTujuan= Sheet2.Cells(Rows.Count, 3).End(xlUp).Offset(2, 0)

Rows 
adalah object koleksi (sekumpulan) Row (baris dlm sheet)jika didepannya tidak disebutkan expresi yg menghasilkan OBJECT  apapun
maka dia ROW tsb menginduk ke Sheet Aktif

Count 
adalah property untuk mengetahui Jumlah suatu object koleksi

Jadi Rows.Count adalah jumlah baris dalam sheet aktif. 
( Bedakan dengan  Range("A1:A100").Rows.Countyg menghasilkan 100 . jumlah baris
pada Range A1:A100 ))

Jika excel yg dipakai = excel 2003 maka RowsCountakan menghasilkan 65536

Cells adalah Property milik Range 
Jika disebutkan Sheet2.Cells(1, 2)
Ekspresi itu  akan merujuk (menghasilkan object Range berupa cell tunggal)
yg (jika dilihat dati cell pertama pada sheet1) berada di baris 1 di kolom 2 atau 
kita kenal dengan B1

Sekarang kalau Sheet2.Cells(Rows.Count, 3)
bisakah anda menebaknya,  cell manakah itu ?
Jika belum bisa menebak : dia adalah cell di baris ke 65536 (baris paling 
bawah jika excelnya versi 2003)  dan dikolom 3  atau kolom C.
Singkatnya ekspresi itu menghasilkan object Range berupa cell tunggal C65536

Dengan kata lain Sheet2.Cells(Rows.count, 3) dapat pula dituliskan
Range("C65536")   kalau kita pasti bahwa makro akan dipkai di excel 2003
PemakaianRows.Count menggantikan 65536 adalah dengan maksud agar makro
juga bia digunakan di excel 2007 tanpa masalah.

Jawaban berikut ini sebetulnya tidk anda tanyakan tetapi tetap kami tulis
agar kalimatnya selesai

Sheet2.Cells(Rows.Count, 3).End(xlUp).Offset(2, 0)
Bagian MERAH sudah dijelaskan dan dapat dianggap Range("C65536")

jadi statement tsb di atas dapat dituliskanSheet2.Range("C65536").End(xlUp).Offset(2, 0)

Method  End(xlUp)
jika dipraktekkan secara nteraktif di sheet
aktifkan C65536 lalu tekan  [End] + [PanahAtas]
hasilnya cell pointer akan menuju ke atas tetap di kolom c
dengan dua kemungkinan 

* kalau cell C65536 berisi data maka cel pointer akan berhenti pada 
   cell kosong pertama yg ditemui
* kalau cell C65536 berupa cell kosong maka cellpointer akan berhenti pada
   cell BERISI DATA yg pertama kali ditemui

jadi dengan asumsi : mulai dari C3  dan cells dibawahnya masih kosong
Sheet2.Range("C65536").End(xlUp)
akan memindahkan cellpointer ke C2

Sheet2.Cells(Rows.Count, 3).End(xlUp).Offset(2, 0)
akan memindahkan cellpointer ke C4(yaitu C2 turun 2baris, ke kanan 0baris)
Hasil tetap 1 cell (C4) karena object Asalnya juga berupa 1 cell (C2)

Set CellTujuan = Sheet2.Cells(Rows.Count, 3).End(xlUp).Offset(2, 0)
akan menghasilkan 
Variableobject Range CellTujuanakan mewakili cell C4
CellTujuan inilah tempat teratas akan ditempelkannya hasil copy-an dari sheet1.

Pada proses kedua
karena C4 sudah diberi data 4 cell kebawah (C4:C8)
maka 
Set CellTujuan = Sheet2.Cells(Rows.Count, 3).End(xlUp).Offset(2, 0)
menghasilkan object rangeCell C10

Di cell 10 inilah data baru akan ditempelkan (C10:C14)

Jika terjadi proses pengCopy-an berikutnya anda harusnya sudah dapat membayangkan

Hal yang ingin dicapai oleh makro berikut ini:

  Dim CellTujuan As Range  Set CellTujuan = _
    Sheet2.Cells(Rows.Count, 3).End(xlUp).Offset(2, 0)Sheet1.Range("D4:D8").Copy  CellTujuan.PasteSpecial xlPasteValuesAndNumberFormats  Set CellTujuan = _
    Sheet2.Cells(Rows.Count, 3).End(xlUp).Offset(2, 0)Sheet1.Range("D16:D20").Copy  CellTujuan.PasteSpecial xlPasteValuesAndNumberFormats
adalah proses berlanjut dengan setiap proses: range tujuan berpindah ke bawah
sesuai data terakhir (turun dua baris); tetapi perintahnya tetap hanya itu itu saja..

Mudah mudahan penjelasan ngawur-ngawuran ini tidak membuat semaNGkin binun'..
Mohon maaf karena tentu ada istilah2 yg kurang tepat.. dan menungu koreksi 
dari rekan2 lain.

Akan lebih baik lagi kalau bapak membaca-baca help VBA khususnya di bab 
Object RANGE, dengan seluruh members nya 

3b.

Re: Macro excel copy data ke posisi terakhir

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

Thu Oct 13, 2011 8:59 pm (PDT)



ya benar pak
itu memang terjadi salah / (kekuranga jelasan) kata-kata saya

*ASUMSI YG BENAR*
pada saat belum pernah terjadi pengCopy-an data

C2 harusnya *berisi data* (apa saja, mungkin Judul Kolom)
*C3 sampai C65536 = kosong*

maksudnya
agar kalau terjadi *[End] +[Up] dari C65536*, cell pointer berhenti C2
dan karena akan di *OFFSET(2, 0)* maka cell popinter akan bepindah ke C4
C4 ini adalah cell yg dlm pertanyaan sudah bapak tentukan itu.

demikian pak..
mohon dicoba coba lagi

~siti

2011/10/14 Dewan Deya <dwanxls@yahoo.co.id>

> Terimakasih B' Devi atas penjelasannya...Sangat gamblang sekali, sehingga
> saya yang tidak begitu paham banyak tentang macro, bisa ngerti seraca jelas.
> Hanya ada yang ingin saya tanyakan untuk statement dari B' Devi dibawah ini:
>
> jadi dengan asumsi : mulai dari C3 dan cells dibawahnya masih kosong
> Sheet2.Range("C65536").End(xlUp)
> akan memindahkan cellpointer ke *C2
>
> *
> Asumsi cel C3 berisi data (misalkan huruf atau angka) dan cell dibawahnya
> masih kosong.
> Saya coba letakkan kursor di cell C65536, kemudian saya tekan tombol End
> dan tombol panah Up. Ternyata hasilnya kursor berada di C3, bukan C2.
>
> Terimakasih atas penjelasannya & kesabarannya, mau menjelaskan dengan
> begitu rincinya.
>
> Semoga terus bisa berbagi
>
>
> ------------------------------
> *Dari:* STDEV(i) <setiyowati.devi@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 13 Oktober 2011 18:12
>
> *Judul:* Re: [belajar-excel] Macro excel copy data ke posisi terakhir
>
> Penjelasan yg diberikan kemarin itu kurang lengkap
> Lengkapnya Di Sheet1 CELL C2 harus sudah berisi data apa saja
> Maksudnya untuk menghasilkan C4 terhadap statement spt di bawah ini.
>
> *Set CellTujuan* = Sheet2.Cells(Rows.Count, 3).End(xlUp).Offset(2, 0)
> ----cut----
>
3c.

Re: Macro excel copy data ke posisi terakhir

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

Thu Oct 13, 2011 9:08 pm (PDT)



Tambahan agar tidak binin'...
Perintah lengkapnya
Sheet2.Cells(Rows.Count, 3).End(xlUp).*Offset(2, 0)*
'-- yg dicapai adalah *C4*
*
*
*bukan hanya*
Sheet2.Cells(Rows.Count, 3).End(xlUp)
'-- yg dicapai adalah *C2*

kalau yg dicapai *C3* kemungkinan besar:
cell C3 ada / berisi *data yg tidak tampak*
misalnya *SPASI *
atau data ex *Char(160)*
atau *data diformat sewarna dengan background*
atau *data yg diformat number custom = ;;;*

mohon di cek dan kami ingin mendengar khabarnya...

2011/10/14 STDEV(i) <setiyowati.devi@gmail.com>

> ya benar pak
> itu memang terjadi salah / (kekuranga jelasan) kata-kata saya
>
> *ASUMSI YG BENAR*
> pada saat belum pernah terjadi pengCopy-an data
>
> C2 harusnya *berisi data* (apa saja, mungkin Judul Kolom)
> *C3 sampai C65536 = kosong*
>
> maksudnya
> agar kalau terjadi *[End] +[Up] dari C65536*, cell pointer berhenti C2
> dan karena akan di *OFFSET(2, 0)* maka cell popinter akan bepindah ke C4
> C4 ini adalah cell yg dlm pertanyaan sudah bapak tentukan itu.
>
> demikian pak..
> mohon dicoba coba lagi
>
> ~siti
>
>
> 2011/10/14 Dewan Deya <dwanxls@yahoo.co.id>
>
>> Terimakasih B' Devi atas penjelasannya...Sangat gamblang sekali, sehingga
>> saya yang tidak begitu paham banyak tentang macro, bisa ngerti seraca jelas.
>> Hanya ada yang ingin saya tanyakan untuk statement dari B' Devi dibawah ini:
>>
>> jadi dengan asumsi : mulai dari C3 dan cells dibawahnya masih kosong
>> Sheet2.Range("C65536").End(xlUp)
>> akan memindahkan cellpointer ke *C2
>>
>> *
>> Asumsi cel C3 berisi data (misalkan huruf atau angka) dan cell dibawahnya
>> masih kosong.
>> Saya coba letakkan kursor di cell C65536, kemudian saya tekan tombol
>> End dan tombol panah Up. Ternyata hasilnya kursor berada di C3, bukan C2.
>>
>> Terimakasih atas penjelasannya & kesabarannya, mau menjelaskan dengan
>> begitu rincinya.
>>
>> Semoga terus bisa berbagi
>>
>>
4a.

Menu Ribbon

Posted by: "ppc lambda" ppc_03@sami.co.id

Thu Oct 13, 2011 9:52 pm (PDT)



Maize

be-Exceller
ada yang tau code membuat ribbon baru di excel 2007 ga'???
please bagi-2 dooong

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
Sidoel
4b.

Re: Menu Ribbon

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

Thu Oct 13, 2011 10:14 pm (PDT)



gak ada

2011/10/14 ppc lambda <ppc_03@sami.co.id>
>
> be-Exceller
> ada yang tau code membuat ribbon baru di excel 2007 ga'???
> please bagi-2 dooong
>
> Terimakasih
> Best Regard
> Sidoel

Mungkin PC si Doel ndak ada Google-Search-Engine-nya atau engine lain...

ini Doel daftar untuk di kunjungi
yg aku senangi:
chadoo, msdn, rondebruin, mrexcel, word_mpv

http://chandoo.org/wp/2010/05/20/make-new-ribbons-in-excel/
http://msdn.microsoft.com/en-us/library/aa338202(v=office.12).aspx
http://office.microsoft.com/en-us/excel-help/can-i-customize-the-ribbon-HA010227754.aspx
http://www.rondebruin.nl/ribbon.htm
http://www.xtremevbtalk.com/showthread.php?t=265636
http://www.mrexcel.com/classicexcelmenu.html
http://fracta.net/fractor/edforum/excel-vba-forum-3/customizing-excel-2007-ribbon-menu-by-adding-your-own-tab-button-to-6.html
http://word.mvps.org/faqs/customization/customizeribbon.htm
http://www.tvmcalcs.com/blog/comments/modifying_the_ribbon_in_excel_2007/

buku:
http://www.amazon.com/RibbonX-Customizing-Office-2007-Ribbon/dp/0470191112

2011/10/14 ppc lambda <ppc_03@sami.co.id>
>
> be-Exceller
> ada yang tau code membuat ribbon baru di excel 2007 ga'???
> please bagi-2 dooong
>
> Terimakasih
> Best Regard
> Sidoel
4c.

Re: Menu Ribbon

Posted by: "ppc lambda" ppc_03@sami.co.id

Fri Oct 14, 2011 12:40 am (PDT)



saya mendapatkan file dari internet
namun saya bingung gimana cara buatnya sedangkan file yang aku dapatkan terprotec
dengan semangat belajar VBA namun sampai sekarang aku belum menemukan jawabannya
sudilah kiranya temen-2 be-Exceller membantu permasalahan ini
tercantum gambar contoh Ribbon

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel
----- Original Message -----
From: STDEV(i)
To: belajar-excel@yahoogroups.com
Sent: Friday, October 14, 2011 12:14 PM
Subject: Re: [belajar-excel] Menu Ribbon

gak ada

2011/10/14 ppc lambda <ppc_03@sami.co.id>
>
> be-Exceller
> ada yang tau code membuat ribbon baru di excel 2007 ga'???
> please bagi-2 dooong
>
> Terimakasih
> Best Regard
> Sidoel

Mungkin PC si Doel ndak ada Google-Search-Engine-nya atau engine lain...

ini Doel daftar untuk di kunjungi
yg aku senangi:
chadoo, msdn, rondebruin, mrexcel, word_mpv

http://chandoo.org/wp/2010/05/20/make-new-ribbons-in-excel/
http://msdn.microsoft.com/en-us/library/aa338202(v=office.12).aspx
http://office.microsoft.com/en-us/excel-help/can-i-customize-the-ribbon-HA010227754.aspx
http://www.rondebruin.nl/ribbon.htm
http://www.xtremevbtalk.com/showthread.php?t=265636
http://www.mrexcel.com/classicexcelmenu.html
http://fracta.net/fractor/edforum/excel-vba-forum-3/customizing-excel-2007-ribbon-menu-by-adding-your-own-tab-button-to-6.html
http://word.mvps.org/faqs/customization/customizeribbon.htm
http://www.tvmcalcs.com/blog/comments/modifying_the_ribbon_in_excel_2007/

buku:
http://www.amazon.com/RibbonX-Customizing-Office-2007-Ribbon/dp/0470191112

2011/10/14 ppc lambda <ppc_03@sami.co.id>
>
> be-Exceller
> ada yang tau code membuat ribbon baru di excel 2007 ga'???
> please bagi-2 dooong
>
> Terimakasih
> Best Regard
> Sidoel

4d.

Re: Menu Ribbon

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Oct 14, 2011 2:57 am (PDT)



1.
apakah situs yg* links-nya diberikan* pada jawaban tadi (* 10 URL* )
*sudah* di kunjungi dan dibaca

2.
mengapa anda *melampirkan gambar yg besarnya 1.6 MEGA*
yaitu 5.5 kali lebih besar dari peraturan yg sudah kita sepakati ?

2011/10/14 ppc lambda <ppc_03@sami.co.id>

> **
>
> saya mendapatkan file dari internet
> namun saya bingung gimana cara buatnya sedangkan file yang aku dapatkan
> terprotec
> dengan semangat belajar VBA namun sampai sekarang aku belum menemukan
> jawabannya
> sudilah kiranya temen-2 be-Exceller membantu permasalahan ini
> tercantum gambar contoh Ribbon
>
>
> Terimakasih
> Best Regard
> <>.<>.<>.<>.<>.<>.
> sidoel
>
> ----- Original Message -----
> *From:* STDEV(i) <setiyowati.devi@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, October 14, 2011 12:14 PM
> *Subject:* Re: [belajar-excel] Menu Ribbon
>
> gak ada
>
> Mungkin PC si Doel ndak ada Google-Search-Engine-nya atau engine lain...
>
> ini Doel daftar untuk di kunjungi
> yg aku senangi:
> chadoo, msdn, rondebruin, mrexcel, word_mpv
>
> http://chandoo.org/wp/2010/05/20/make-new-ribbons-in-excel/
> http://msdn.microsoft.com/en-us/library/aa338202(v=office.12).aspx
>
> http://office.microsoft.com/en-us/excel-help/can-i-customize-the-ribbon-HA010227754.aspx
> http://www.rondebruin.nl/ribbon.htm
> http://www.xtremevbtalk.com/showthread.php?t=265636
> http://www.mrexcel.com/classicexcelmenu.html
>
> http://fracta.net/fractor/edforum/excel-vba-forum-3/customizing-excel-2007-ribbon-menu-by-adding-your-own-tab-button-to-6.html
> http://word.mvps.org/faqs/customization/customizeribbon.htm
> http://www.tvmcalcs.com/blog/comments/modifying_the_ribbon_in_excel_2007/
>
> buku:
> http://www.amazon.com/RibbonX-Customizing-Office-2007-Ribbon/dp/0470191112
>
>
>
> 2011/10/14 ppc lambda <ppc_03@sami.co.id>
> >
> > be-Exceller
> > ada yang tau code membuat ribbon baru di excel 2007 ga'???
> > please bagi-2 dooong
> >
> > Terimakasih
> > Best Regard
> > Sidoel
>
>
5a.

Menyederhanakan File & Rumus

Posted by: "dicky zulkifli" dicky.zulkifli@yahoo.co.id   dicky.zulkifli

Fri Oct 14, 2011 12:00 am (PDT)



Dear master Excel yang baik hati,

Saya ada file yang membutuhkan penyempurnaan, baik cara penyusunan maupun Rumusnya.
Untuk jelasnya saya lampirkan file yang dimaksud.
Mohon pencerahannya agar rumusnya lebih sederhana lagi.
Atas bantuan dan solusinya saya ucapkan banyak terimakasih.

Salam Excell.
5b.

Re: Menyederhanakan File & Rumus

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

Fri Oct 14, 2011 12:49 am (PDT)



Pertanyaan 1 :
ada rumus yg lebih sederhana ga untuk cell dikolom Y
"isi kolom Y" :
=((F12*$D$6+F12*10%*$E$6+F12*90%*$F$6+$D$8*$D$7)+((J12*$H$6)+((J12*10%)*$I$6)+((J12*90%)*$J$6)+($H$8*$H$7))+((N12*$L$6)+((N12*10%)*$M$6)+((N12*90%)*$N$6)+($L$8*$L$7))+((R12*$P$6)+((R12*10%)*$Q$6)+((R12*90%)*$R$6)+($P$8*$P$7))+((V12*$T$6)+((V12*10%)*$U$6)+((V12*90%)*$V$6)+($T$8*$T$7))+((F32*$D$26)+((F32*10%)*$E$26)+((F32*90%)*$F$26)+($D$28*$D$27))+((J32*$H$26)+((J32*10%)*$I$26)+((J32*90%)*$J$26)+($H$28*$H$27))+((N32*$L$26)+((N32*10%)*$M$26)+((N32*90%)*$N$26)+($L$28*$L$27))+((R32*$P$26)+((R32*10%)*$Q$26)+((R32*90%)*$R$26)+($P$28*$P$27))+((V32*$T$26)+((V32*10%)*$U$26)+((V32*90%)*$V$26)+($T$28*$T$27))+((F52*$D$46)+((F52*10%)*$E$46)+((F52*90%)*$F$46)+($D$48*$D$47))+((J52*$H$46)+((J52*10%)*$I$46)+((J52*90%)*$J$46)+($H$48*$H$47))+((N52*$L$46)+((N52*10%)*$M$46)+((N52*90%)*$N$46)+($L$48*$L$47))+((R52*$P$46)+((R52*10%)*$Q$46)+((R52*90%)*$R$46)+($P$48*$P$47))+((V52*$T$46)+((V52*10%)*$U$46)+((V52*90%)*$V$46)+($T$48*$T$47)))*103%

>> coba array formula :
=SUM(SUM($F12:$V12*($F$10:$V$10=$F$10)*($D$6:$T$6+10%*$E$6:$U$6+90%*$F$6:$V$6),$D$8:$T$8*$D$7:$T$7*($F$10:$V$10=$V$10)),SUM($F32:$V32*($F$10:$V$10=$F$10)*($D$26:$T$26+10%*$E$26:$U$26+90%*$F$26:$V$26),$D$28:$T$28*$D$27:$T$27*($F$10:$V$10=$V$10)),SUM($F52:$V52*($F$10:$V$10=$F$10)*($D$46:$T$46+10%*$E$46:$U$46+90%*$F$46:$V$46),$D$48:$T$48*$D$47:$T$47*($F$10:$V$10=$V$10)))*103%

Pertanyaan 2 :
gmn caranya bisa dapat nilai rata2 cell X24 yg cmn menyertain nilai pada
kolom X yg memiliki nilai besar dari 0

>> Coba formula :
=IF(COUNTIF(X12:X23,">0"),*SUMIF(X12:X23,">0")/COUNTIF(X12:X23,">0")*,"")
Yang di-*bold *adalah inti dari formula average dengan 1 kondisi. Yang
lainnya adalah error trap.

Pertanyaan 3 :
gmn caranya kalo X18 =0 maka scr ototmatis Y18=0

>> jadi formula yang panjang banget di pertanyaan 1 dihitung *jika *kolom X
> 0
Jadi array formula pertanyaan 1 *diberi kondisi x>0 *menjadi :
=SUM(SUM($F12:$V12*($F$10:$V$10=$F$10)*($D$6:$T$6+10%*$E$6:$U$6+90%*$F$6:$V$6),$D$8:$T$8*$D$7:$T$7*($F$10:$V$10=$V$10)),SUM($F32:$V32*($F$10:$V$10=$F$10)*($D$26:$T$26+10%*$E$26:$U$26+90%*$F$26:$V$26),$D$28:$T$28*$D$27:$T$27*($F$10:$V$10=$V$10)),SUM($F52:$V52*($F$10:$V$10=$F$10)*($D$46:$T$46+10%*$E$46:$U$46+90%*$F$46:$V$46),$D$48:$T$48*$D$47:$T$47*($F$10:$V$10=$V$10)))*103%*
*(X12>0)*

Regards.
Kid.

2011/10/14 dicky zulkifli <dicky.zulkifli@yahoo.co.id>

> **
>
>
> Dear master Excel yang baik hati,
>
> Saya ada file yang membutuhkan penyempurnaan, baik cara penyusunan maupun
> Rumusnya.
> Untuk jelasnya saya lampirkan file yang dimaksud.
> Mohon pencerahannya agar rumusnya lebih sederhana lagi.
> Atas bantuan dan solusinya saya ucapkan banyak terimakasih.
>
> Salam Excell.
>
>
>
6a.

FW: formula data yang  secara Otomatis

Posted by: "stefen" stefen@kofi.co.id

Fri Oct 14, 2011 12:41 am (PDT)



maaaf penumpanggnya ketinggalan nih


_____

From: stefen [mailto:stefen@kofi.co.id]
Sent: 14 October 2011 14:03
To: 'belajar-excel@yahoogroups.com'
Subject: formula data yang secara Otomatis

Dear para suhu Excell yang Excellent mohon pencerahaannya untuk kasus
yang saya hadapi. mungkin ada formulanya yang bisa di share.
terima kasih


6b.

Re: FW: formula data yang secara Otomatis

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Oct 14, 2011 1:36 am (PDT)



Dengan menganggap bahwa susunan data di *B6:B28* sudah* persis sama*
dengan*B34:B56,
*
Rumus di C34 sbb
=SUMPRODUCT( (*FLOOR(COLUMN($C$5:$Q$5),3)/3* = C$33) * ($C6:$Q6) )

bagian formula ini
* FLOOR(COLUMN($C$5:$Q$5),3)/3*
menghasilkan array sebaris :* 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5*
seperti yg digambarkan di baris 1 (C1:Q1)

Data / formula di Baris 1 itu hanya contoh untuk menjelaskan, jadi BOLEH
dihapus
karena bukan dummies / baris bantu

-haps-

2011/10/14 stefen <stefen@kofi.co.id>

> maaaf penumpanggnya ketinggalan nih
>
> From: stefen [mailto:stefen@kofi.co.id]
> Sent: 14 October 2011 14:03
> To: 'belajar-excel@yahoogroups.com'
> Subject: formula data yang secara Otomatis
>
> Dear para suhu Excell yang Excellent mohon pencerahaannya untuk kasus
> yang saya hadapi. mungkin ada formulanya yang bisa di share.
> terima kasih
>
>
6c.

Re: FW: formula data yang secara Otomatis

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Oct 14, 2011 2:10 am (PDT)



bisa juga dengan rumus sederhana
=*SUMIF*( *$C$4:$Q$4, C$33, $C6:$**Q6* )

perhatikan formula seragam di *C4:Q4*
=FLOOR(COLUMN(),3)/3

2011/10/14 stefen <stefen@kofi.co.id>
> maaaf penumpanggnya ketinggalan nih
>
> _____
> From: stefen [mailto:stefen@kofi.co.id]
> Sent: 14 October 2011 14:03
> Dear para suhu Excell yang Excellent mohon pencerahaannya untuk kasus
> yang saya hadapi. mungkin ada formulanya yang bisa di share.
> terima kasih
6d.

Re: FW: formula data yang secara Otomatis

Posted by: "stefen" stefen@kofi.co.id

Fri Oct 14, 2011 2:57 am (PDT)



THANKS A LOT MBAK HAPZARY
RUMUS NE TAJIR TENAN

GHEHEHE GHEHE GHEHEHE
MASUK GROUP BELAJAR EXCELL MAKIN PINTAR EUEYYY


_____

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Haps
Sent: 14 October 2011 15:36
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] FW: formula data yang secara Otomatis

Dengan menganggap bahwa susunan data di B6:B28 sudah persis sama dengan
B34:B56,

Rumus di C34 sbb
=SUMPRODUCT( (FLOOR(COLUMN($C$5:$Q$5),3)/3 = C$33) * ($C6:$Q6) )

bagian formula ini
FLOOR(COLUMN($C$5:$Q$5),3)/3
menghasilkan array sebaris : 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5
seperti yg digambarkan di baris 1 (C1:Q1)

Data / formula di Baris 1 itu hanya contoh untuk menjelaskan, jadi BOLEH
dihapus
karena bukan dummies / baris bantu

-haps-

2011/10/14 stefen <stefen@kofi.co.id>

maaaf penumpanggnya ketinggalan nih

From: stefen [mailto:stefen@kofi.co.id]
Sent: 14 October 2011 14:03
To: 'belajar-excel@yahoogroups.com'
Subject: formula data yang secara Otomatis

Dear para suhu Excell yang Excellent mohon pencerahaannya untuk kasus
yang saya hadapi. mungkin ada formulanya yang bisa di share.
terima kasih

7a.

Re: Kursus Excel

Posted by: "Budhi Cahyanto" budhi.cahyanto@id.certissecurity.com

Fri Oct 14, 2011 4:38 am (PDT)



Bagaimana kalo mba' Siti, pak Kid, pak Ghozi mau membuka kls kursus excel ..
saya mau deh daftar.

Tinggal tentuin aja berapa kontribusi untuk tiap peserta :-)

Jdi bgmana mba' Siti, pak Kid, pak Ghozi ?

_____

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of STDEV(i)
Sent: Thursday, 13 October, 2011 7:32 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kursus Excel

sambil menunggu tanggapan dari anak binus & ui, dll..

coba lia'-lia' ke sinih dulu sekedar info..
(maaf bukan ikut mengiklankan tapi karena infonya mungkin berguna)

http://www.kursuskomputerku.com/Silabus/bisnis/ShortCourse/Silabus_VBAexcel_
SH.htm

http://www.prlog.org/10815839-kursus-komputer-office-word-excel-powerpoint.h
tml

http://serba-serbi.tokobagus.com/kursus-pendidikan/kursus-komputer-ms-office
-word-excel-881242.html

@ Halo Mas Kid..

mungkin ada anak buah yg sudah buka kelas ?

2011/10/13 <irawan94@gmail.com>
> Mau tanya dounk, ane rasa Excel sangat menarik tapi sayang ane hanya
menguasai

> sebagian kecil fungsi Excel. Ada ga ya kursus Excel hingga level Advance
yang bagus di Jabodetabek?

> Apakah UI dan Binus juga ada kursus Excel? Thx b4.
> Wassalamww
> Nurman I.

Recent Activity
Visit Your Group
Yahoo! Groups

Cat Zone

Connect w/ others

who love cats.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Mental Health Zone

Mental Health

Learn More

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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
---------------------------------------------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Tidak ada komentar:

Posting Komentar