Sabtu, 12 Mei 2012

[belajar-excel] Digest Number 1610

Messages In This Digest (15 Messages)

Messages

1a.

OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

Posted by: "achmad adi" didon13@ymail.com   didon13@ymail.com

Fri May 11, 2012 2:19 am (PDT)



selamat siang,
para sesepuh excel
 
mohon koreksi untuk makro yang saya buat,,,,
dimana dalam USERFORM terdapat  OPTION BUTTON untuk
menentukan VALUE disimpan menurut pilihan OPTTION BUTON TERSEBUT,,,
1b.

Re: OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

Posted by: "achmad" didon13@ymail.com   didon13@ymail.com

Fri May 11, 2012 9:40 pm (PDT)



mohon maap,,karena masalah koneksi,,jadi kekirik 2 kali,,,

---Mods---
Mohon dibiasakan untuk meletakkan teks diatas quoted text.
----------

--- In belajar-excel@yahoogroups.com, achmad adi <didon13@...> wrote:
>
> selamat siang,
> para sesepuh excel
>  
> mohon koreksi untuk makro yang saya buat,,,,
> dimana dalam USERFORM terdapat  OPTION BUTTON untuk
> menentukan VALUE disimpan menurut pilihan OPTTION BUTON TERSEBUT,,,
>

2a.

Re: Copy Kriteria seleksi ke Sheet Baru

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

Fri May 11, 2012 3:07 am (PDT)



Dear Handaka,
Problem serupa tapi tak sama (mirip) pernah saya upload di 2shared.com dengan nama LapKeu.rar.
Sheetnya bernama Buku Besar (Pakai PivotTable). Programnya dibantu oleh Mr. Kid
Coba main-main ke sana.

Salam,
Hendrik Karnadi

________________________________
From: Handaka Lee <handaka77@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 11 May 2012, 13:30
Subject: [belajar-excel] Copy Kriteria seleksi ke Sheet Baru


 
Dear all Agan & Aganwati Be-Exceller,

Ane mohon bantuannya atas kasus seperti lampiran

Terimakasih banyak,

Salam,
Handaka

3a.

Mencari jumlah huruf

Posted by: "Budhi Cahyanto" budhi.cahyanto@suryajayaenergy.com

Fri May 11, 2012 3:45 am (PDT)



Dear eXLer,

Mohon bantuannya mencari jumlah huruf yang terdapat dalam satu kolom seperti
contoh terlampir.

Misalnya kita ingin mencari jumlah huruf "a" pada kolom B2 - B4, sehingga di
kolom C2 ditemukan jumlah huruf "a" sebanyak 3, dst.

Terima kasih untuk bantuannya.

Rgrds,

Please consider the environment before printing this email.

3b.

Bls: [belajar-excel] Mencari jumlah huruf

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

Fri May 11, 2012 7:49 am (PDT)



seperti dalam contoh di attachment  range A2:B4 berisi data sbb:

A2  berisi data  Bread
A3  berisi data  Roti

A4  berisi data  Kue
B2  berisi data  abc

B3  berisi data  bca

B4  berisi data  fga
secara manual kalau kita hitung jumlah seluruh huruf a yang terdapat pada range tsb diatas ada 4
yaitu pada kata : bread, abc, bca dan fga

kalu kita ingin menghitung dengan formula untuk mencari jumlah huruf a

tempatkan formula pada sebarang cell misalkan di C2  (formula array) yaitu dienter dengan menahan tombol shift

formulanya adalah
{=SUM(LEN(A2:B4))-SUM(LEN(SUBSTITUTE(A2:B5;"a";"")))}

demikian juga untuk mencarai jumlah huruf b maka formulanya adalah :
{=SUM(LEN(A2:B4))-SUM(LEN(SUBSTITUTE(A2:B5;"b";"")))}

wassalam

Ghozi Alkatiri

________________________________
Dari: Budhi Cahyanto <budhi.cahyanto@suryajayaenergy.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 11 Mei 2012 3:36
Judul: [belajar-excel] Mencari jumlah huruf


Dear eXLer,
 
Mohon bantuannya mencari jumlah huruf yang terdapat dalam satu kolom seperti contoh terlampir.
Misalnya kita ingin mencari jumlah huruf “a” pada kolom B2 â€" B4, sehingga di kolom C2 ditemukan jumlah huruf “a” sebanyak 3, dst.
 
Terima kasih untuk bantuannya.

Rgrds,
Please consider the environment before printing this email.
3c.

Re: Mencari jumlah huruf

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

Fri May 11, 2012 3:49 pm (PDT)



Pak Budhi Yth,

Jika huruf "a" tersebut pasti hanya ada 1 disetiap cell data, seperti suatu
sandi item tertentu tertentu di sebuah set kode yang berisi berbagai macam
kriteria penyusun suatu produk misalnya, bisa gunakan CountIF.
=CountIF( b2:b4 , "*a*" )

Wassalam,
Kid.

2012/5/11 Budhi Cahyanto <budhi.cahyanto@suryajayaenergy.com>

> Dear eXLer, ****
>
> ** **
>
> Mohon bantuannya mencari jumlah huruf yang terdapat dalam satu kolom
> seperti contoh terlampir. ****
>
> Misalnya kita ingin mencari jumlah huruf "a" pada kolom B2 – B4, sehingga
> di kolom C2 ditemukan jumlah huruf "a" sebanyak 3, dst. ****
>
> ** **
>
> Terima kasih untuk bantuannya. ****
>
>
> Rgrds, ****
>
> Please consider the environment before printing this email.****
>
> ** **
>
3d.

Re: Mencari jumlah huruf

Posted by: "Budhi Cahyanto" budhi.cahyanto@suryajayaenergy.com

Fri May 11, 2012 6:30 pm (PDT)



Terima kasih Mr. Kid, it works.

Problem solved.

Please consider the environment before printing this email.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Kid Mr.
Sent: 12 Mei 2012 05:49
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mencari jumlah huruf

Pak Budhi Yth,

Jika huruf "a" tersebut pasti hanya ada 1 disetiap cell data, seperti suatu
sandi item tertentu tertentu di sebuah set kode yang berisi berbagai macam
kriteria penyusun suatu produk misalnya, bisa gunakan CountIF.
=CountIF( b2:b4 , "*a*" )

Wassalam,
Kid.

2012/5/11 Budhi Cahyanto <budhi.cahyanto@suryajayaenergy.com>

Dear eXLer,

Mohon bantuannya mencari jumlah huruf yang terdapat dalam satu kolom seperti
contoh terlampir.

Misalnya kita ingin mencari jumlah huruf "a" pada kolom B2 - B4, sehingga di
kolom C2 ditemukan jumlah huruf "a" sebanyak 3, dst.

Terima kasih untuk bantuannya.

Rgrds,

Please consider the environment before printing this email.

3e.

Re: Mencari jumlah huruf

Posted by: "Budhi Cahyanto" budhi.cahyanto@suryajayaenergy.com

Fri May 11, 2012 6:31 pm (PDT)



Terima kasih pak Ghozi, formulanya mantap.

Bisa digunakan.

Salam, Budhi

Please consider the environment before printing this email.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of ghozi alkatiri
Sent: 11 Mei 2012 21:50
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Mencari jumlah huruf

seperti dalam contoh di attachment range A2:B4 berisi data sbb:

A2 berisi data Bread

A3 berisi data Roti

A4 berisi data Kue

B2 berisi data abc

B3 berisi data bca

B4 berisi data fga

secara manual kalau kita hitung jumlah seluruh huruf a yang terdapat pada range tsb diatas ada 4

yaitu pada kata : bread, abc, bca dan fga

kalu kita ingin menghitung dengan formula untuk mencari jumlah huruf a

tempatkan formula pada sebarang cell misalkan di C2 (formula array) yaitu dienter dengan menahan tombol shift

formulanya adalah

{=SUM(LEN(A2:B4))-SUM(LEN(SUBSTITUTE(A2:B5;"a";"")))}

demikian juga untuk mencarai jumlah huruf b maka formulanya adalah :

{=SUM(LEN(A2:B4))-SUM(LEN(SUBSTITUTE(A2:B5;"b";"")))}

wassalam

Ghozi Alkatiri

_____

Dari: Budhi Cahyanto <budhi.cahyanto@suryajayaenergy.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 11 Mei 2012 3:36
Judul: [belajar-excel] Mencari jumlah huruf

Dear eXLer,

Mohon bantuannya mencari jumlah huruf yang terdapat dalam satu kolom seperti contoh terlampir.

Misalnya kita ingin mencari jumlah huruf “a” pada kolom B2 â€" B4, sehingga di kolom C2 ditemukan jumlah huruf “a” sebanyak 3, dst.

Terima kasih untuk bantuannya.

Rgrds,

Please consider the environment before printing this email.

4a.

Warna cell berubah mengikut department

Posted by: "Emi" emilestariklcc@yahoo.com   emilestariklcc

Fri May 11, 2012 6:49 pm (PDT)



Para suhu dan teman BeExcel,

Saya ingin mempraktik Conditional Formatting untuk memberi warna meja setiap karyawan sesuai dengan nama departmentnya.
Setiap department diberi warna khusus seperti di kolum B.
Bila nomor meja ditentukan departmentnya, warna akan berubah di meja tersebut..
Silahkan lihat file di lampiran.

Terima kasih.

Emi Lestari

Bogor.
4b.

Re: Warna cell berubah mengikut department

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

Fri May 11, 2012 6:53 pm (PDT)



Dengan syarat tabel data terurut Asc berdasar No Meja, formula dalam CF
yang bisa digunakan untuk department Operation :
=LOOKUP(F4,$A$3:$A$49&"-"&$C$3:$C$49,$B$3:$B$49)="Operation"

Terapkan CF hanya pada cell yang membutuhkan. Terlalu luas area CF, akan
memberatkan kerja Excel karena sifat volatile-nya.

Wassalam,
Kid.

2012/5/12 Emi <emilestariklcc@yahoo.com>

> **
>
>
> Para suhu dan teman BeExcel,
>
> Saya ingin mempraktik Conditional Formatting untuk memberi warna meja
> setiap karyawan sesuai dengan nama departmentnya.
> Setiap department diberi warna khusus seperti di kolum B.
> Bila nomor meja ditentukan departmentnya, warna akan berubah di meja
> tersebut..
> Silahkan lihat file di lampiran.
>
> Terima kasih.
>
> Emi Lestari
> Bogor.
>
>
>
>
5a.

Bls: [belajar-excel] STUDI KASUS DATABASE

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Fri May 11, 2012 8:38 pm (PDT)



Dear BeExceller,

@ -dwint- Kalau dikerjakan secara manual, jangat menyita waktu karena banyaknya data.

@Neza: Penjelasannya sbb:
Dari database terlampir, pada kolom A2 hanya tercantum tulisan "NAMA" sementara yang diinginkan adalah dari kolom A2 s/d A13 sebagaimana tabel dibawahnya.

Mohon infonya.

Regards,

Harry

________________________________
Dari: dwint ruswanto <dwint.ruswanto@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 10 Mei 2012 14:33
Judul: Re: [belajar-excel] STUDI KASUS DATABASE


 
coba bantu untuk solusi secara manual.

1. klik formula bar
2. copy seluruh isi data di dalam formula bar, jangan melakukan copy cell
3. paste di tempat yang anda inginkan

semoga solusinya sesuai dengan keinginan

wassalam,

-dwint-

Pada 10 Mei 2012 07:19, neza ibaneza <nezaibaneza@yahoo.co.id> menulis:


>dear mas HArry
>mungkin saya kurang mengerti dengan pertanyaannya atau lampirannya mohon diperjelas model lampirannya
>
>
>salam
>neza
>
>
>________________________________
> Dari: Harry <hariansyahptk@yahoo.com>
>Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Dikirim: Rabu, 9 Mei 2012 21:59
>Judul: [belajar-excel] STUDI KASUS DATABASE
>
>
>
>
>
>
>Dear BeExceller,
>
>
>Sebagaimana studi kasus database terlampir, saya mendapat database yang masih harus saya kelola (Edit) lagi. Adapun database tersebut sangat banyak sehingga sulit buat saya (memakan waktu yang lumayan lama) untuk mengedit data tersebut secara manual.
>Pertanyaan saya adalah: Bagaimana caranya supaya database tersebut (SITUASI SEKARANG) dapat disusun sebagaimana studi kasus terlampir (SITUASI YAG DIINGINKAN).
>
>
>Terima kasih atas berkenan ilmu dan informasinya.
>
>
>Regards,
>
>
>
>
>Harry
>
>
>Note: Mohon output yang dihasilkan tidak hasil dari rumus tetapi berbentuk data
>
>
>
>
>

5b.

Re: STUDI KASUS DATABASE

Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com

Fri May 11, 2012 9:05 pm (PDT)



kalo data nya banyak, satu-satunya cara cepat adalah menggunakan macro,
berhubung saya belum ahli dalam macro jadi kita tunggu bantuan dari member
millis yang lain untuk membuatkan macro Text To Rows (yang sudah ada di
Excel baru Text to Columns)

Atau bisa dicoba dulu menggunakan fasilitas Text To Columns bawaan Excel
lalu dicopas dalam bentuk Transpose.

wassalam,

-dwint-

Pada 12 Mei 2012 10:38, Harry <hariansyahptk@yahoo.com> menulis:

> **
>
>
> Dear BeExceller,
>
> @ -dwint- Kalau dikerjakan secara manual, jangat menyita waktu karena
> banyaknya data.
>
> @Neza: Penjelasannya sbb:
> Dari database terlampir, pada kolom A2 hanya tercantum tulisan "NAMA"
> sementara yang diinginkan adalah dari kolom A2 s/d A13 sebagaimana tabel
> dibawahnya.
>
> Mohon infonya.
>
> Regards,
>
>
> Harry
>
> ------------------------------
> *Dari:* dwint ruswanto <dwint.ruswanto@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 10 Mei 2012 14:33
> *Judul:* Re: [belajar-excel] STUDI KASUS DATABASE
>
>
> coba bantu untuk solusi secara manual.
>
> 1. klik formula bar
> 2. copy seluruh isi data di dalam formula bar, jangan melakukan copy cell
> 3. paste di tempat yang anda inginkan
>
> semoga solusinya sesuai dengan keinginan
>
> wassalam,
>
> -dwint-
>
> Pada 10 Mei 2012 07:19, neza ibaneza <nezaibaneza@yahoo.co.id> menulis:
>
> **
>
> dear mas HArry
> mungkin saya kurang mengerti dengan pertanyaannya atau lampirannya mohon
> diperjelas model lampirannya
>
> salam
> neza
> ------------------------------
> *Dari:* Harry <hariansyahptk@yahoo.com>
> *Kepada:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Dikirim:* Rabu, 9 Mei 2012 21:59
> *Judul:* [belajar-excel] STUDI KASUS DATABASE
>
>
>
> Dear BeExceller,
>
> Sebagaimana studi kasus database terlampir, saya mendapat database yang
> masih harus saya kelola (Edit) lagi. Adapun database tersebut sangat banyak
> sehingga sulit buat saya (memakan waktu yang lumayan lama) untuk mengedit
> data tersebut secara manual.
> Pertanyaan saya adalah: Bagaimana caranya supaya database tersebut
> (SITUASI SEKARANG) dapat disusun sebagaimana studi kasus terlampir (SITUASI
> YAG DIINGINKAN).
>
> Terima kasih atas berkenan ilmu dan informasinya.
>
> Regards,
>
>
> Harry
>
> Note: Mohon output yang dihasilkan tidak hasil dari rumus tetapi berbentuk
> data
>
>
>
>
>
>
>
>
>
5c.

Re: STUDI KASUS DATABASE

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

Fri May 11, 2012 9:13 pm (PDT)



Mungkin yang diminta oleh Pak Neza adalah :
1. Data ada di sheet apa seperti apa bentuknya
2. Proses yang dimaksud edit itu seperti apa detil langkahnya, misal : saya
harus cari dulu data yang begini begitu lalu saya edit nilai ini dan itu
gak peduli sisi gitunya. Atau semua yang ada di database langsung saya
ganti isinya jadi begini dan begitu.
3. Dilakukan disheet apa, langsung di sheet data atau ada sheet khusus
editnya.
4. mungkin masih ada yang belum bisa diduga dari permintaan Pak Neza yang
bisa jadi semua itu juga jadi permintaan dari BeExceler yang ingin membantu.

Penjelasan secara detil pokok alur proses disertai data dan contoh
pengerjaan manual dari bentuk sebelum dan sesudahnya, yang mudah dipahami
orang lain, tidak mudah ditulis. Sayangnya, setiap orang dituntut harus
berusaha untuk bisa melakukannya.

Wassalam,
Kid.

2012/5/12 Harry <hariansyahptk@yahoo.com>

> **
>
>
> Dear BeExceller,
>
> @ -dwint- Kalau dikerjakan secara manual, jangat menyita waktu karena
> banyaknya data.
>
> @Neza: Penjelasannya sbb:
> Dari database terlampir, pada kolom A2 hanya tercantum tulisan "NAMA"
> sementara yang diinginkan adalah dari kolom A2 s/d A13 sebagaimana tabel
> dibawahnya.
>
> Mohon infonya.
>
> Regards,
>
>
> Harry
>
> ------------------------------
> *Dari:* dwint ruswanto <dwint.ruswanto@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 10 Mei 2012 14:33
> *Judul:* Re: [belajar-excel] STUDI KASUS DATABASE
>
>
> coba bantu untuk solusi secara manual.
>
> 1. klik formula bar
> 2. copy seluruh isi data di dalam formula bar, jangan melakukan copy cell
> 3. paste di tempat yang anda inginkan
>
> semoga solusinya sesuai dengan keinginan
>
> wassalam,
>
> -dwint-
>
> Pada 10 Mei 2012 07:19, neza ibaneza <nezaibaneza@yahoo.co.id> menulis:
>
> **
>
> dear mas HArry
> mungkin saya kurang mengerti dengan pertanyaannya atau lampirannya mohon
> diperjelas model lampirannya
>
> salam
> neza
> ------------------------------
> *Dari:* Harry <hariansyahptk@yahoo.com>
> *Kepada:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Dikirim:* Rabu, 9 Mei 2012 21:59
> *Judul:* [belajar-excel] STUDI KASUS DATABASE
>
>
>
> Dear BeExceller,
>
> Sebagaimana studi kasus database terlampir, saya mendapat database yang
> masih harus saya kelola (Edit) lagi. Adapun database tersebut sangat banyak
> sehingga sulit buat saya (memakan waktu yang lumayan lama) untuk mengedit
> data tersebut secara manual.
> Pertanyaan saya adalah: Bagaimana caranya supaya database tersebut
> (SITUASI SEKARANG) dapat disusun sebagaimana studi kasus terlampir (SITUASI
> YAG DIINGINKAN).
>
> Terima kasih atas berkenan ilmu dan informasinya.
>
> Regards,
>
>
> Harry
>
> Note: Mohon output yang dihasilkan tidak hasil dari rumus tetapi berbentuk
> data
>
>
>
>
>
>
>
>
>
5d.

Bls: [belajar-excel] STUDI KASUS DATABASE

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Fri May 11, 2012 10:46 pm (PDT)



Dear BeExceller,

Mungkin dari lampiran berikut dapat mempermudah pemahaman akan pertanyaan saya.
Mohon dapat diinformasikan cara dan pemecahannya.

Regards,

Harry

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 12 Mei 2012 11:13
Judul: Re: [belajar-excel] STUDI KASUS DATABASE


 
Mungkin yang diminta oleh Pak Neza adalah :
1. Data ada di sheet apa seperti apa bentuknya
2. Proses yang dimaksud edit itu seperti apa detil langkahnya, misal : saya harus cari dulu data yang begini begitu lalu saya edit nilai ini dan itu gak peduli sisi gitunya. Atau semua yang ada di database langsung saya ganti isinya jadi begini dan begitu.
3. Dilakukan disheet apa, langsung di sheet data atau ada sheet khusus editnya.
4. mungkin masih ada yang belum bisa diduga dari permintaan Pak Neza yang bisa jadi semua itu juga jadi permintaan dari BeExceler yang ingin membantu.

Penjelasan secara detil pokok alur proses disertai data dan contoh pengerjaan manual dari bentuk sebelum dan sesudahnya, yang mudah dipahami orang lain, tidak mudah ditulis. Sayangnya, setiap orang dituntut harus berusaha untuk bisa melakukannya.

Wassalam,
Kid.

2012/5/12 Harry <hariansyahptk@yahoo.com>


>Dear BeExceller,
>
>
>@ -dwint- Kalau dikerjakan secara manual, jangat menyita waktu karena banyaknya data.
>
>
>@Neza: Penjelasannya sbb:
>Dari database terlampir, pada kolom A2 hanya tercantum tulisan "NAMA" sementara yang diinginkan adalah dari kolom A2 s/d A13 sebagaimana tabel dibawahnya.
>
>
>Mohon infonya.
>
>
>Regards,
>
>
>
>
>Harry
>
>
>
>
>________________________________
> Dari: dwint ruswanto <dwint.ruswanto@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Kamis, 10 Mei 2012 14:33
>Judul: Re: [belajar-excel] STUDI KASUS DATABASE
>
>
>

>coba bantu untuk solusi secara manual.
>
>
>1. klik formula bar
>2. copy seluruh isi data di dalam formula bar, jangan melakukan copy cell
>3. paste di tempat yang anda inginkan
>
>
>semoga solusinya sesuai dengan keinginan
>
>
>wassalam,
>
>
>-dwint-
>
>
>Pada 10 Mei 2012 07:19, neza ibaneza <nezaibaneza@yahoo.co.id> menulis:
>
>
>> 
>>dear mas HArry
>>mungkin saya kurang mengerti dengan pertanyaannya atau lampirannya mohon diperjelas model lampirannya
>>
>>
>>salam
>>neza
>>
>>
>>________________________________
>> Dari: Harry <hariansyahptk@yahoo.com>
>>Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>>Dikirim: Rabu, 9 Mei 2012 21:59
>>Judul: [belajar-excel] STUDI KASUS DATABASE
>>
>>
>>
>>
>>
>>
>>Dear BeExceller,
>>
>>
>>Sebagaimana studi kasus database terlampir, saya mendapat database yang masih harus saya kelola (Edit) lagi. Adapun database tersebut sangat banyak sehingga sulit buat saya (memakan waktu yang lumayan lama) untuk mengedit data tersebut secara manual.
>>Pertanyaan saya adalah: Bagaimana caranya supaya database tersebut (SITUASI SEKARANG) dapat disusun sebagaimana studi kasus terlampir (SITUASI YAG DIINGINKAN).
>>
>>
>>Terima kasih atas berkenan ilmu dan informasinya.
>>
>>
>>Regards,
>>
>>
>>
>>
>>Harry
>>
>>
>>Note: Mohon output yang dihasilkan tidak hasil dari rumus tetapi berbentuk data
>>
>>
>>
>>
>>
>
>
>

5e.

Re: STUDI KASUS DATABASE

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

Sat May 12, 2012 12:01 am (PDT)



Coba prosedur sub dengan isi :
Dim rng As Range, rngTarget As Range, rngData As Range
Dim vIsi As Variant
Dim sIsi As String
Dim lNew As Long, lOffset As Long

Set rngTarget = Sheet2.Range("a1") 'anchor target
lOffset = rngTarget.CurrentRegion.Rows.Count 'baris terisi
data

Set rngData = Sheet1.Range("a1").CurrentRegion.Offset(1, 1).Resize(,
1) 'kolom b data ada isi (1 kolom)
For Each rng In rngData 'loop kolom b data
With rng 'di pointer item loop aktif
If LenB(.Value) <> 0 Then 'cek isi
sIsi = Trim$(Mid$(.Value, InStr(.Value, vbCrLf & " - ") +
5, Len(.Value))) 'ambil isi tanpa item pertama
vIsi = Split(sIsi, vbCrLf & " -
") 'split isi dengan delimiter
'[ENTER] - '
lNew = UBound(vIsi) +
1 'jumlah item (base 0
array)
rngTarget.Offset(lOffset).Resize(lNew).Value =
WorksheetFunction.Transpose(vIsi) 'tulis di multi baris sejumlah jumlah
item dengan transpose array hasil split
rngTarget.Offset(lOffset, 1).Resize(lNew).Value = .Offset(,
1).Value 'yang ini kolom berikutnya dari range loop aktif
rngTarget.Offset(lOffset, 2).Resize(lNew).Value = .Offset(,
2).Value 'yang ini kolom berikutnya lagi dari rang loop aktif
lOffset = lOffset +
lNew 'tambah baris
offset dengan jumlah item yang baru selesai ditambahkan
End If
End With
Next rng

Sesuaikan semua rujukan dalam script dengan kebutuhan.

Wassalam,
Kid.

2012/5/12 Harry <hariansyahptk@yahoo.com>

> **
>
>
> Dear BeExceller,
>
> Mungkin dari lampiran berikut dapat mempermudah pemahaman akan pertanyaan
> saya.
> Mohon dapat diinformasikan cara dan pemecahannya.
>
> Regards,
>
> Harry
>
> ------------------------------
> **
>
>
Recent Activity
Visit Your Group
Yahoo! Groups

Mental Health Zone

Find support for

Mental illnesses

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Cat Group

Join a group for

people who love cats

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