Rabu, 29 Juni 2011

[belajar-excel] Digest Number 1219

Messages In This Digest (5 Messages)

Messages

1a.

Re: Misterius Text Box

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Tue Jun 28, 2011 8:20 am (PDT)



Terima kasih rekan2 semua.

Saya sudah lakukan 2 cara, yaitu menghapus shape dengan macro dan melakukan copy paste value datanya ke worksheet baru (worksheet lama saya hapus).

Text Box nya sudah masuk Kotak dan tidak misterius lagi.

Sekali lagi, terima kasih.

Salam,
Hendrik Karnadi

--- On Tue, 28/6/11, Sudarsono Suhenk <jkssbma@live.com> wrote:

From: Sudarsono Suhenk <jkssbma@live.com>
Subject: RE: [belajar-excel] Re: Misterius Text Box
To: "belajar excel yahoo.com" <belajar-excel@yahoogroups.com>
Date: Tuesday, 28 June, 2011, 3:03 PM

 

beberapa yang akan di hapus :
1. bingkai shape
2. text box
3. comment
4. ...  ( yang lain belum di coba )
 
yang tidak dihapus :
1. data validation
2. .... ( yang lain belum di coba )
 
'=========
 To: belajar-excel@yahoogroups.com
From: summonery@yahoo.com
Date: Tue, 28 Jun 2011 07:40:24 +0000
Subject: [belajar-excel] Re: Misterius Text Box

 

Hati2, Comment & Data Validation akan ikut terhapus

--- In belajar-excel@yahoogroups.com, Sudarsono Suhenk <jkssbma@...> wrote:

>

>

> coba gunakan makro ini untuk hapus semua shape : Sub hapus_shape()

> Dim wsh As Worksheet

> Dim sh As Shape

> Set wsh = Worksheets("jurnal")

> For Each sh In wsh.Shapes

> sh.Delete

> Next

> End Sub semoga membantu....

> To: belajar-excel@yahoogroups.com

> From: mr.nmkid@...

> Date: Tue, 28 Jun 2011 13:15:41 +0700

> Subject: Re: [belajar-excel] Re: Misterius Text Box

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

> Jika seluruh shape boleh hilang, coba tambahkan ekstensi zip dan cari folder drawing didalam zip

> hapus file yang ada di dalam folder drawing.

> keluar dari zip, dan hilangkan ekstensi .zip

> buka file, save as nama lain.

>

>

>

> Kid.

>

> 2011/6/28 summonery <summonery@...>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

> Dear pak Hendrik,

>

>

>

> Saya pernah mendapat kasus seperti ini juga dari rekan kerja, curhat bahwa file nya lambat sewaktu opening, saving, calculating

>

> setelah diselikidi ternyata ada textbox yang beranak pinak di sheetnya, si empunya file tidak merasa pernah menginsert textbox tsb.

>

>

>

> Object yang sangat banyak tersebut membuat file membengkak dan lambat dalam prosesnya,

>

>

>

> Coba pak,,

>

>

>

> Delete Object:

>

> Dari pengalaman saya di kasus seperti ini, delete object cukup menyita waktu dan harus sabar menunggu.

>

>

>

> Menggunakan Workbook baru:

>

> Copy paste seluruh data yang ada pada file/sheet tersebut ke Workbook yang baru, gunakan Copy Paste Special ALL.

>

> Object yang ada tidak akan ikut ter-copy dan workbook baru anda ukurannya jauh lebih kecil dan tidak lambat lagi, semoga.

>

>

>

> Selamat menempati "rumah" baru untuk data anda :)

>

>

>

> >semoga bermanfaat

>

>

>

> --- In belajar-excel@yahoogroups.com, hendrik karnadi <hendrikkarnadi@> wrote:

>

> >

>

> > Saya punya file Excel yang "kemasukan misterius text box" yang tidak jelas asal usulnya (pada kolom tanggal), sehingga membuat Excel jadi lemot.

>

> >

>

> > Mohon bantuan/solusi dari teman2 yang pernah mengalamai hal serupa.

>

> >

>

> > Terima kasih.

>

> >

>

> > Salam,

>

> > Hendrik Karnadi

>

> >

>

> >

>

> >

>



2a.

Bls: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung cel

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Tue Jun 28, 2011 8:39 am (PDT)



nimbrung

wassalam

Ghozi Alkatiri

--- Pada Sel, 28/6/11, akbar arsyad <akbar_arsyad@yahoo.co.id> menulis:

Dari: akbar arsyad <akbar_arsyad@yahoo.co.id>
Judul: Bls: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B
Kepada: belajar-excel@yahoogroups.com
Tanggal: Selasa, 28 Juni, 2011, 9:43 PM

Thanks all, saya pake macro dari juragan STDEV(i) dan bekerja sesuai dengan yang saya inginkan, semua data yang duplikat telah saya sort terlebih dahulu sehingga tidak ada kata yang rancu. Terima kasih semua. Senang bergabung dengan milis ini :)
 
Terima Kasih,
Akbar Jamaluddin Arsyad

Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Terkirim: Sel, 28 Juni, 2011 21:31:05
Judul: Re: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B

 

Ganti lookup value 1 menjadi 2 (angka 1 setelah lookup dan sebelum IF)
=IF(LEN(F2),LOOKUP(2,IF($A$2:$A$10=F2,1),$C$2:$C$10),"")

Kid

2011/6/28 Sudarsono Suhenk <jkssbma@live.com>

 

kalau saya coba
karena F2  berisi kuda
{=IF(LEN(F2),LOOKUP(1,IF($A$2:$A$10=F2,1),$C$2:$C$10),"")}
akan menghasilkan pencarian nilai berikutnya , misal
kuda : maka akan di temukan kuda kedua yang berisi  biji, bijian jerami, dan ( C7 )
padahal data kuda yang terakhir berisi : biji, bijian jerami, dan Rumput, jagung, ( C9 )
 
sekali lagi data masih tak valid. Benarkah ? Semoga bisa di maklumi
 
'======

 
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Tue, 28 Jun 2011 19:47:56 +0700

Subject: Re: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B

File terlampir menambahkan cek supaya gak muncul error value di summay kolom hewan yang menggunakan array formula unique list.
Cek tidak menggunakan IFError, untuk memenuhi kebutuhan BeExceler yang masih setia dengan xl2003.

Kid.

2011/6/28 Mr. Kid <mr.nmkid@gmail.com>

Oh iya silakan.
Ada yang salah ya... hehehe maaf kalo salah formulanya.
Makasih udah di koreksi kesalahannya.

Kid.

2011/6/28 Sudarsono Suhenk <jkssbma@live.com>

 

Maaf Mr Kid, saya korerksi sedikit rumus di G2 :
    {=IF(ISERROR(F2),"",LOOKUP(1,IF($A$2:$A$10=F2,1),$C$2:$C$10))}
ganti menjadi
    {=IFERROR(INDEX($C$2:$C$10,LARGE(IF($A$2:$A$10=F2,ROW($1:$9),""),1)),"")}
 
Semoga berkenan.
 

To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Tue, 28 Jun 2011 17:50:16 +0700
Subject: Re: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B

Assalamualaikum Wr. Wb.

Pak Arsyad,

File terlampir mencoba dengan bantuan sebuah kolom, dan memanfaatkan array formula untuk summary.
Jika datanya tidak urut, masih bisa tapi susunan kalimat hasil penggabungannya jadi agak aneh.

Wassalamualaikum Wr. Wb.
Kid.

2011/6/28 akbar arsyad <akbar_arsyad@yahoo.co.id>

Maaf mod, lampirannya ketinggalan

 Terima Kasih,
Akbar Jamaluddin Arsyad

----- Pesan Diteruskan ----
Dari: akbar arsyad <akbar_arsyad@yahoo.co.id>
Kepada: Excel gogo <belajar-excel@yahoogroups.com>
Terkirim: Sel, 28 Juni, 2011 16:21:11
Judul: Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B

Dear all

Saya minta tolong, saya punya permasalahan dimana saya mempunyai tabel seperti dibawah ini

Hewan
Makanannya

Kucing
Daging dan

Kucing
Ikan

Anjing
Tulang, Ayam,

Anjing
dan Daging

Kelinci
Rumput

Kuda
Rumput, jagung,

Kuda
jerami, dan

Kuda
biji, bijian

Sapi
Jagung
Saya ingin membuat sheet baru yang menghapus nama hewan yang sama, misal kucing dibaris kedua dan ketiga, menjadi hanya satu barsi saja dengan makanannya hanya satu baris saja yang merupakan gabungan dari cell "daging dan" serta cell "Ikan"

Terima Kasih,
Akbar Jamaluddin Arsyad

3a.

Re: Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B

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

Tue Jun 28, 2011 8:49 am (PDT)



Sepertinya lookup memang agak gak persist kalau gak sorted. Kalau gitu pakai
Index(Match) saja.
Contoh dengan index(match) : (array formula)
=IF(LEN(F2),INDEX($C$2:$C$10,MATCH(2,IF($A$2:$A$10=F2,1),1)),"")

Kid.

2011/6/28 Sudarsono Suhenk <jkssbma@live.com>

> **
>
>
> Ternyata jika diberi angka 2, 3 atau lebih hasilnya data terakhir .
> Ternyata lokup vektor agak sedikit aneh , seharusnya 1 merupakan angka yang
> ditemukan pada array hasil (if(A2:A10 = F2,1)). Wah secara logika apa yg
> salah ?
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: mr.nmkid@gmail.com
> Date: Tue, 28 Jun 2011 21:46:37 +0700
>
> Subject: Re: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung
> cellnya di kolom B
>
>
> Kalau *semua *kucing diubah jadi Kuda
> bagaimana?
> Apa benar kalau di ganti jadi 2 berarti ambil ke-2 berikutnya ?
>
> Kid.
>
> 2011/6/28 Sudarsono Suhenk <jkssbma@live.com>
>
> **
>
>
>
> dengan mengganti 2 berarti data ke -2 berikutnya . Jika data
> kuda berikutnya tak kita ketahui 1 , 2 atau seterusnya , maka rumus menjadi
> tak valid. Ada baiknya gunakan Large untuk memperoleh posisi baris terbesar
> ( terakhir ) .
> Bagaimana ? OK khan ...
>
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: mr.nmkid@gmail.com
> Date: Tue, 28 Jun 2011 21:31:05 +0700
>
> Subject: Re: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung
> cellnya di kolom B
>
>
> Ganti lookup value 1 menjadi 2 (angka 1 setelah lookup dan sebelum IF)
> =IF(LEN(F2),LOOKUP(2,IF($A$2:$A$10=F2,1),$C$2:$C$10),"")
>
> Kid
>
> 2011/6/28 Sudarsono Suhenk <jkssbma@live.com>
>
> **
>
>
>
> kalau saya coba
> karena F2 berisi kuda
> {=IF(LEN(F2),LOOKUP(1,IF($A$2:$A$10=F2,1),$C$2:$C$10),"")}
> akan menghasilkan pencarian nilai berikutnya , misal
> kuda : maka akan di temukan kuda kedua yang berisi biji, bijian jerami,
> dan ( C7 )
> padahal data kuda yang terakhir berisi : biji, bijian jerami, dan Rumput,
> jagung, ( C9 )
>
> sekali lagi data masih tak valid. Benarkah ? Semoga bisa di maklumi
>
> '======
>
>
> To: belajar-excel@yahoogroups.com
> From: mr.nmkid@gmail.com
> Date: Tue, 28 Jun 2011 19:47:56 +0700
>
> Subject: Re: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung
> cellnya di kolom B
>
> File terlampir menambahkan cek supaya gak muncul error value di summay
> kolom hewan yang menggunakan array formula unique list.
> Cek tidak menggunakan IFError, untuk memenuhi kebutuhan BeExceler yang
> masih setia dengan xl2003.
>
> Kid.
>
>
> 2011/6/28 Mr. Kid <mr.nmkid@gmail.com>
>
> Oh iya silakan.
> Ada yang salah ya... hehehe maaf kalo salah formulanya.
> Makasih udah di koreksi kesalahannya.
>
> Kid.
>
>
> 2011/6/28 Sudarsono Suhenk <jkssbma@live.com>
>
> **
>
>
> Maaf Mr Kid, saya korerksi sedikit rumus di G2 :
> {=IF(ISERROR(F2),"",LOOKUP(1,IF($A$2:$A$10=F2,1),$C$2:$C$10))}
> ganti menjadi
>
> {=IFERROR(INDEX($C$2:$C$10,LARGE(IF($A$2:$A$10=F2,ROW($1:$9),""),1)),"")}
>
> Semoga berkenan.
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: mr.nmkid@gmail.com
> Date: Tue, 28 Jun 2011 17:50:16 +0700
> Subject: Re: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung
> cellnya di kolom B
>
>
> Assalamualaikum Wr. Wb.
>
> Pak Arsyad,
>
> File terlampir mencoba dengan bantuan sebuah kolom, dan memanfaatkan array
> formula untuk summary.
> Jika datanya tidak urut, masih bisa tapi susunan kalimat hasil
> penggabungannya jadi agak aneh.
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
> 2011/6/28 akbar arsyad <akbar_arsyad@yahoo.co.id>
>
> Maaf mod, lampirannya ketinggalan
>
>
> Terima Kasih,
> Akbar Jamaluddin Arsyad
>
>
> ----- Pesan Diteruskan ----
> *Dari:* akbar arsyad <akbar_arsyad@yahoo.co.id>
> *Kepada:* Excel gogo <belajar-excel@yahoogroups.com>
> *Terkirim:* Sel, 28 Juni, 2011 16:21:11
> *Judul:* Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B
>
>
>
> Dear all
>
> Saya minta tolong, saya punya permasalahan dimana saya mempunyai tabel
> seperti dibawah ini
> Hewan Makanannya Kucing Daging dan Kucing Ikan Anjing Tulang, Ayam,
> Anjing dan Daging Kelinci Rumput Kuda Rumput, jagung, Kuda jerami, dan
> Kuda biji, bijian Sapi Jagung
> Saya ingin membuat sheet baru yang menghapus nama hewan yang sama, misal
> kucing dibaris kedua dan ketiga, menjadi hanya satu barsi saja dengan
> makanannya hanya satu baris saja yang merupakan gabungan dari cell "daging
> dan" serta cell "Ikan"
>
> Terima Kasih,
> Akbar Jamaluddin Arsyad
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
3b.

Re: Hapus duplicate di kolom A sekaligus gabung cellnya di kolom B

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

Tue Jun 28, 2011 2:48 pm (PDT)



Terima kasih pak Suhenk,

menurut pendapatku :

B.Resize(1, B.Columns.Count).Copy B(*1, 1*)
akan *menimpa* baris data (rekord) pertama yg sudah berhasil dituliskan di
Tabel Hasil

sedangkan
B.Resize(1, A.Columns.Count).Copy B(*0**, 1*)
*tidak* menimpa records pertama di tabel hasil.

A.Resize(1, A.Columns.Count)
adalah baris pertama pada A (Tabel sumber) berupa Column-Heading

sedangan
b(*0**, 1*)
adalah cell *pada baris di-ATAS data pertama* di Range B (Tabel Hasil) satu
cell saja, sbg
Destination.

Penulisan* ColumnHeading* ini memang disengaja dilakukan pada *detik
terakhir,*
agar tabel hasil yg sedang tersusun baris-dem- baris *tidak mengandung
Heading,*
karena setiap loop-step, Range B akan direfresh dengan
*"di-CorrentRegion"* lagi,
demi
mendapat data *dimensi **Range B terakhir yg tepat*, dimana Range B akan
digunakan
oleh COUNTIF & juga MATCH selama loop berjalan.

Sheet2 (terutama di area dimana data akan dituliskan) pada saat makro MULAI
dijalankan
harus kosong (sengaja dikosongkan).
Saya kira dlm makro lengkapnya, hal ini dapat direkayasa dengan mengosongkan
lebih dulu.
dengan : B.CurrentRegion.Clear sebelum loop dimulai.

Saya tetap menyarankan makro sbb: ( ada tambahan mengosongkan area )
'----
Sub Gug_Gug()
' siti Vi / 28 jun 2011
Dim A As Range, B As Range
Dim i As Long, r As Long, p As Long

Set A = Sheet1.Cells(1).CurrentRegion
Set B = Sheet2.Cells(2, 1)
*B.CurrentRegion.Clear*

For i = 2 To a.Rows.Count
Set B = *B.CurrentRegion: *Set B = B.Resize(b.Rows.Count, 1)
If WorksheetFunction.*CountIf(B, A(i, 1)) = 0* Then
r = r + 1
B(r, 1) = A(i, 1): B(r, 2) = A(i, 2)
Else
p = WorksheetFunction.*Match(A(i, 1), B, 0)*
B(p, 2) = B(p, 2) & " " & A(i, 2)
End If
Next

A.Resize(1, A.Columns.Count).Copy *B(0, 1*)

End Sub
'----

CMIIW

-siti-

2011/6/28 Sudarsono Suhenk <jkssbma@live.com>

> **
>
>
> a.Resize(1, a.Columns.Count).Copy b(*0, 1*)
> dapat menimbulkan error 1004 , jika isi sheet2 tak kosong
> saya koreksi ya :
> a.Resize(1, a.Columns.Count).Copy b(*1, 1*)
> saya sudah test menjalankan makro berkal-kali ( ada lebih 5 kali ) ,
> tak muncul error 1004
>
> Semoga dapat diterima , Miss CT
>
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: setiyowati.devi@gmail.com
> Date: Tue, 28 Jun 2011 19:25:26 +0700
> Subject: Re: [belajar-excel] Hapus duplicate di kolom A sekaligus gabung
> cellnya di kolom B
>
> Perbaikan makro untuk menghadapi keadaan tabel
> data hewan yg senama tidak berurutan
>
> Sub Anjing()
> ' siti Vi / 28 jun 2011
> Dim a As Range, b As Range, i As Long, r As Long, p As Long
>
> Set a = Sheet1.Cells(1).CurrentRegion
> Set b = Sheet2.Cells(2, 1)
>
> For i = 2 To a.Rows.Count
> Set b = b.CurrentRegion
> Set b = b.Resize(b.Rows.Count, 1)
> If WorksheetFunction.CountIf(b, a(i, 1)) = 0 Then
> r = r + 1
> b(r, 1) = a(i, 1): b(r, 2) = a(i, 2)
> Else
> p = WorksheetFunction.Match(a(i, 1), b, 0)
> b(p, 2) = b(p, 2) & " " & a(i, 2)
> End If
> Next
> a.Resize(1, a.Columns.Count).Copy b(0, 1)
> End Sub
>
>
>
> 2011/6/28 STDEV(i) <setiyowati.devi@gmail.com>
>
> sebelum ada komplain.., sebaiknya siti mengatakan sekarang:
> bahwa makro tsb berlaku dengan syarat:
> ** *nama Hewan yg SAMA* harus sudah berdekatan/berurutan (sorted)
> seperti tabel contoh yg diajukan.
>
> Jika keadaan records pada tabel di sheet1 bisa sembarang urutan; sehingga
> *nama hewan yg SAMA* tidak berdekatan, maka di dalam* loop *perlu satu
> baris
> perintah mencari index_baris untuk hewan yg sudah ada ditabel hasil, agar
> penambahan *'nama makanan'* di kolom 2 (Sheet2) bisa tepat pada baris
> *'hewan'* yg dituju.
>
> ~siti~
>
>
4a.

Bls: [belajar-excel] Test Your Excel Knowledge

Posted by: "monas monas" jaken_05@yahoo.co.id   jaken_05

Tue Jun 28, 2011 9:20 pm (PDT)



Terima kasih atas info nya bu... Semoga manjadi amal baik Ibu, semoga ilmunya
tambah barokah

________________________________
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: belajar-excel <belajar-excel@yahoogroups.com>
Terkirim: Sel, 28 Juni, 2011 20:43:28
Judul: [belajar-excel] Test Your Excel Knowledge

 
Ingin test Excel online ?  menguji sampai dimana Excel-Level anda ?

coba cek situs ini:
http://www.skills-assessment.net/home/frmindex.aspx

maaf kalau OOT...

Recent Activity
Visit Your Group
Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

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

Tidak ada komentar:

Posting Komentar