Selasa, 17 Juli 2012

[belajar-excel] Digest Number 1692

5 New Messages

Digest #1692

Messages

Mon Jul 16, 2012 2:47 am (PDT) . Posted by:

"Heru Safrudin" superheruu

Dear para Master,

Kenapa hasil recording di Macro1 jika dijalankan tidak seperti saat validasi manual?
contoh terlampir

Mohon pencerahannya

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

Regards,
Heru

Mon Jul 16, 2012 6:00 am (PDT) . Posted by:

"Harry" hariansyahptk

Dear,

Terima kasih atas penjelasan dan lampirannya.
Sangat bermanfaat.

Regards,

Harry

________________________________
Dari: Markonah <markonatul@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 15 Juli 2012 10:55
Judul: Re: [belajar-excel] Memisahkan list data dari satu kolom


 
Kita contohkan 1 (satu) solusi saja yaitu untuk Situasi_01, mudah-mudahan sesuai keinginan.

3 (tiga) Sheet lain punya problem yg sama hanya ada SEDIKIT variant. Jika mau merenung sebentar; makro untuk situasi_1 tinggal di edit SEDIKIT.
(Kalau tidak mau merenung ??...  Ya Gitu Deh..)

Sub Normalkan_Situasi1(SourcTbl As Range)
'--------------------------------------------
' Zr Markonah - BeExcel # 18144 / 2012-07-15
' pinjam "yell-nya Yu siti "Yaa.. Gitu Deh.."
'--------------------------------------------

   Dim KolNama As Range, TbHasil As Range
   Dim ArrNama, n As Long, r As Long
   Dim c As Integer, k As Integer
   
   r = SourcTbl.Rows.Count - 1
   c = SourcTbl.Columns.Count
   Set SourcTbl = SourcTbl.Offset(1, 0).Resize(r, c)
   Set KolNama = SourcTbl.Offset(0, 3).Resize(r, 1)
   Set TbHasil = SourcTbl.Offset(r + 7, 0)
   ArrNama = Split(KolNama(1, 1).Value, Chr(10))
   
   For n = 1 To UBound(ArrNama) + 1
      For k = 1 To 3
         TbHasil(n, k).Value = SourcTbl(1, k).Value
      Next
      TbHasil(n, 4).Value = ArrNama(n - 1)
      For k = 5 To c
         TbHasil(n, k).Value = SourcTbl(1, k).Value
      Next
   Next n

End Sub

Mengapa merujuk elemen di Array ArrNama  harus pakai (n-1), ? Kok bukan (n) saja ?
Karena, katanya, array y gdibentuk dengan fungsi Split selalu dimulai dengan Index 0 (nol)

Kepada sodara-sodaraku yg sedang menyiapkan diti untuk menjadi Soimin dan Soimah, 
saya mengucapkan "Selamat menunaikan ber-ibadah saum"
Dlm rangka menghadapi itu pula; mPok Markonah mohon maaf lahir batin atas kelakuan 
dan ucapan yg tidak berkenan.. selama main di milis kita ini...
(maapin yee...)

-markonah-

2012/7/14 Harry <hariansyahptk@yahoo.com>
>
> Dear BeExceller,
> Kepada rekan-rekan belajar Excel, mohon berkenan solusi akan pertanyaan saya yang terdiri dari 4 pertanyaan (masing-masing dalam sheet yang berbeda) sebagaimana sheets terlampir.
>  
> Sedikit penjelasan dari pertanyaan tersebut adalah:
> Pada sheets terlampir (Situasi 1 s/d Situasi 4), pada Kolom D2 terdapat list data yang seharusnya data-data tersebut dipisahkan sebagaimana Kolom D10 sdt sedangkan data yang lain mengikuti.
> Jika List Data yang ada pada Kolom D2 tersebut dipisahkan / di edit secara manual, akan membutuhkan banyak waktu karena data yang harus dekerjakan sangat banyak.
>  
> Oleh sebab itu, mohon berkenan kepada rekan-rekan belajar Excel untuk dapat memberikan informasi  / berbagi ilmu akan hal tersebut diatas.
> Sebelum dan sesudahnya saya ucapkan banyak terima kasih.
>  
> Regards,
> Harry

Mon Jul 16, 2012 8:09 pm (PDT) . Posted by:

"Susilo A"

Dear para suhu Excel,
Mohon pencerahannya gimana rumusnya memindah data dari vertikal menjadi
horizontal,
Contoh terlampir,

Salam,
Agus

Mon Jul 16, 2012 8:17 pm (PDT) . Posted by:

"M. Ferdiansyah" muh_f3rdi4n5yah

Dear pak agus,

coba dengan rumus ini.

> Dear para suhu Excel,
> Mohon pencerahannya gimana rumusnya memindah data dari vertikal menjadi
> horizontal,
> Contoh terlampir,
>
> Salam,
> Agus
>

____________ _________ _________ _________ _________ _________ _________
Notice : This e-mail (and any attachment) is strictly confidential and
is intended only for the addressee(s)above. Is strictly prohibited to
forward, print, copy, or otherwise reproduce this message that would
allow it to be viewed by any individual not originally listed as
a recipient(s). If you have received this e-mail in error, please
immediately notify the sender and delete this message. The opinions
expressed in this e-mail (and any attachment) are those of the individual
sender and may not necessarily reflect the views of PT Pusri.
____________ _________ _________ _________ _________ _________ _________

Mon Jul 16, 2012 10:30 pm (PDT) . Posted by:

"Susilo A"

Pak Ferdy,
Thanks berat,

Salam,
Agus

On Tue, Jul 17, 2012 at 11:17 AM, M. Ferdiansyah <muh_ferdy@pusri.co.id>wrote:

> **
>
>
> Dear pak agus,
>
> coba dengan rumus ini.
>
>
> > Dear para suhu Excel,
> > Mohon pencerahannya gimana rumusnya memindah data dari vertikal menjadi
> > horizontal,
> > Contoh terlampir,
> >
> > Salam,
> > Agus
> >
>
> ____________ _________ _________ _________ _________ _________ _________
> Notice : This e-mail (and any attachment) is strictly confidential and
> is intended only for the addressee(s)above. Is strictly prohibited to
> forward, print, copy, or otherwise reproduce this message that would
> allow it to be viewed by any individual not originally listed as
> a recipient(s). If you have received this e-mail in error, please
> immediately notify the sender and delete this message. The opinions
> expressed in this e-mail (and any attachment) are those of the individual
> sender and may not necessarily reflect the views of PT Pusri.
> ____________ _________ _________ _________ _________ _________ _________
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 00.22

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)