RE: [belajar-excel] mengubah format table megggunakan macro [1 Attachment]

mas opic,

silahkan menggunakan code di bawah, semoga sesuai yang diharapkan:

Sub RightArrow1_Click()

Dim rgTujuan As Range, rgModel As Range

Set rgTujuan = Range("R3:U3")

Set rgModel = Range("D3:I3")



'menulis judul atau field

rgTujuan = Array("Model", "Part No", "Part Name", "QTY")

'letak kolom

'Part No(1),Part Name(2),AYAM(3),KAMBING SAPI(4),BEBEK(5),KUDA(6),KIJANG(7)



Dim rgDataAwal As Range

Set rgDataAwal = Range("B4") 'cell pertama berisi data di ranga asal

'menghitung jumlah record awal dimulau dari [B4] ke bawah

Dim nDataAwal As Integer

nDataAwal = Range(rgDataAwal, rgDataAwal.End(xlDown)).Rows.Count



Dim rgDatawal As Range, cr As Range, i As Integer, j As Integer, rgQtt As Range

Dim partNo As String, partName As String, sModel As String, qtt As Double

Dim TabelBaru() As Variant





Set rgDataAwal = rgDataAwal.Resize(nDataAwal, 8)

j = -1

For Each cr In rgDataAwal.Columns(1).Cells 'look up data di kolom 1 (Part No)

With cr

partNo = .Value

partName = .Offset(0, 1)

For i = 1 To 6 '6=jumlah model

Set rgQtt = .Offset(0, i + 1)

If Not IsEmpty(rgQtt) Then 'diproses yang quantitynya>0

j = j + 1

sModel = Application.WorksheetFunction.Index(rgModel, i)

qtt = rgQtt.Value

ReDim Preserve TabelBaru(3, j)

TabelBaru(0, j) = sModel

TabelBaru(1, j) = partNo

TabelBaru(2, j) = partName

TabelBaru(3, j) = qtt

End If

Next i

End With

Next

'cetak hasil

'menghapus hasil sebelumnya

rgTujuan.Offset(1, 0).Resize(10000, 6).Clear

With rgTujuan.Offset(1, 0).Resize(j, 4)

.Value = WorksheetFunction.Transpose(TabelBaru)

.Sort Key1:=Range("R3") 'sort data

End With

End Sub



From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of opic_city@yahoo.com

Sent: Thursday, October 24, 2013 11:13 PM

To: belajar-excel@yahoogroups.com

Subject: [belajar-excel] mengubah format table megggunakan macro [1 Attachment]





dear para master xl,



langsung aja, bagaimana merubah database menjadi part list menggunakan bu macro xl.

Mohon lihat lampirannya.





<*> View Attachments on Web http://groups.yahoo.com/group/belajar-excel/attachments/folder/1263753786/item/list

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



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

Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.

Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).

Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.

Link untuk menuangkan seluruh uneg-uneg tersebut ada di :

http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3

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

Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.

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



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

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

---------------------------------------------------------------------Yahoo! Groups Links



<*> To visit your group on the web, go to:

http://groups.yahoo.com/group/belajar-excel/



<*> Your email settings:

Individual Email | Traditional



<*> To change settings online go to:

http://groups.yahoo.com/group/belajar-excel/join

(Yahoo! ID required)



<*> To change settings via email:

belajar-excel-digest@yahoogroups.com

belajar-excel-fullfeatured@yahoogroups.com



<*> To unsubscribe from this group, send an email to:

belajar-excel-unsubscribe@yahoogroups.com



<*> Your use of Yahoo! Groups is subject to:

http://info.yahoo.com/legal/us/yahoo/utos/terms/