Re: ]] XL-mania [[ Belajar membuat data base

 

Private Sub CommandButton1_Click()

   ' siti Vi / 21 juli 2011

   ' XL-mania #??? 

   ' (di mesage-List kok ndak ada ya )

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

   SeleRec As Range, matt, 

   Dim Tbl As Range, n As Integer, i As Long

   matt = Array("Carbon Steel", "Stainless Steel 304", "Stainless Steel 316", "dlsbg")

   Set Tbl = Range("B5").CurrentRegion

   For i = Tbl.Rows.Count To 2 Step -1

      Set SeleRec = Tbl(i, 1).Resize(1, Tbl.Columns.Count)

      For n = 0 To UBound(matt)

         If n < UBound(matt) Then _

            SeleRec.Offset(n + 1, 0).Insert Shift:=xlDown

         SeleRec.Copy SeleRec(n + 1, 1)

         SeleRec(n + 1, 4) = matt(n)

      Next n

   Next

   Application.CutCopyMode = False

End Sub

2011/7/20 Sri Yansen Tanjung <sri.yansen@gmail.com>

Selamat Sore XL-Mania,

Saya dapat tugas dari kantor untuk membuat data base harga material. 

Setiap material tersebut jenisnya bisa terdiri dari beberapa buah. Salah satu contoh misalnya: untuk Monitor Regulator, sizenya terdiri dari: 2,3,4,6,8,10 dst, class/ratingnya terdiri dari 150,300,600,900 dst dan materialnya bisa terdiri dari Carbon Steel, Stainless Steel 304, Stainless Steel 316 dlsbg. Mohon bantuannya bagaimana caranya agar membuat data basenya?

terlampir data yang sudah saya buat..tetapi saya ada masalah dalam mengisikan data material dan juga vendornya. Karena jenis material dan vendor ini lebih dari satu.

wassalam, 

-- 
Sri Yansen

Phone: +62 21 2904 6471

mobile: +62 811 938974
Taman Serua RT03/RW08

Blok D3/12 A

Serua, Bojongsari,Depok

Jawa Barat 16517

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 78

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tiap tanggal gajian, order buku "mengapa boss benci chart anda    |
| membludak :) ayo2 pesan yang belum punya....                      |
| www.facebook.com/pages/XL-mania/104233892978057                   |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___