@-uhr-
@Ctv
makasih telah di ingatkan... mata saya yang jereng.. hahaha..
setelah di update sudah bisa.
sekarang tinggal menyesuaikan dengan the real table...
Mengenai nomor uniq belum di sediakan. jadi tetap butuh di uniq kan..
On 09-04-2011 9:30 AM, STDEV(i) wrote:
file yg siti kirim ternyata bukan file yg terakhir di-recheck
ada 1 variable yg belum dideklarasikan yaitu stringStrItm
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