file yg siti kirim ternyata bukan file yg terakhir di-recheck ada 1 variable yg belum dideklarasikan yaitu string StrItm
Jadi di Seksi 'Declaring Variables' lengkap, seharusnya seperti ini Dim Tbl As Range, NewTbl As Range Dim n As Long, r As Long, i As Long, tR As Long Dim c As Integer, u As Integer Dim *StrItm As String*, Itm As String *StriItm* disitu digunakan sebgai tempat menampung KodeGaransi *yg pada loop-step* *SEBELUMnya = tidak ada*, sehingga StrItm otomatis berisi Uniq Values) Sekalian minta penjelasan pak jonathan *Tabel Hasil* KOLOM PERTAMA (atau bisa juga dikatakan 3 Kolom Pertama) akan berisi daftar Unique dari KodeGaransi ( bisa juga + Nama + Alamat) dlm contoh : dari 7 records menjadi 3 records (diextrak Nr Garransi yg unik saja) *Yang ingin siti ketahui: * apakah 3 KodeGaransi UNIK itu SUDAH ADA /SUDAH BAPAK SIAPKAN ? (artinya calon penanggap hanya perlu 'bermain mulai Kolom 2 ke kanan", seperti solusi pak Ghozi) atau merupakan HAL YANG INGIN DIOTOMATISKAN (dgn either rumus or makro) ? Makro yg siti ajukan, sudah diberi coding yg berusaha menggenerate Uniqe-List tsb Jadi misalnya Tabel Sumber bapak ganti dgn tabel yg lebih besar (jumlah records nya) maka tidak ada pekerjaan tambahan MENGGANTI ISI KOLOM SATU pada Tabel Hasil. Demikian juga solusi dengan formula yg diajukan olah Pak Kid... (tinggal meluaskan daerah copyan rumus ke bawah, cmiiw...) Seandainya 3 'KodeGaransi' tsb *memang sudah tersedia*, maka rumus maupun makro bisa diperkecil, tidak perlu memikirkan hasil kolom 1) perkerjaan menjadi lebih ringan dan ini tentu akan berakibat positip: kinerja sheet (makro maupun formula) yg lebih cepat. zalam kompakz... siti On Sat, Apr 9, 2011 at 3:56 AM, STDEV(i) <setiyowati.d...@gmail.com> wrote: > kalau tinggal pencet tombol full ostosmastis, bgmana, tidak asik ya... > > Sub AbnormalizeYourTabel() > ' siti Vi / milis belajar-excel / 08 apr 2011 > '------------------------------------------- > Dim Tbl As Range, NewTbl As Range, Itm As String > Dim n As Long, r As Long, i As Long, tR As Long > Dim c As Integer, u As Integer > > End Sub > > kok gag ringkas ya... jelex.. > > > > > 2011/4/8 ***Jonathan*** <jonathan.susa...@gmail.com> > >> Dear All, >> Kasus, data detail bentuknya kebawah. maunya data detail di buat >> kesamping. >> Untuk detail bisa liat attachment. >> Tolong bantu yah.. >> >> Be Happy! >> Jonathan >> >>
