Sub MengubahStrukturTabel() '~Rara - XL-mania #20790 - 11 Juli 2012 '-------------------------------------- For c = 1 To dTbl.Columns.Count For r = 2 To dTbl.Columns.Count If dTbl(r, c + 1).Value <> 0 Then i = i + 1 End If Next r Next c End Sub
lengkapnya lihat gambar di bawah ini [image: Inline image 1] ~Rr *2012/7/10 Dwi Suprayogi <[email protected]> > Mohon bantuannya untuk advice ketika data harus dirubah dari urutan item material menjadi urutan per tanggal transaksi (seperti terlampir). > Terima kasih sebelumnya. > Salam, > Dwi*
<<mengUBAH_Struktur_Tabel.PNG>>
