@Ctv
@Mr.Kid
@Ghozi
Di coba dulu yah..
Thanks
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
On Sat, Apr 9, 2011 at 3:56 AM, STDEV(i) <setiyowati.d...@gmail.com
<mailto: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
<mailto: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
,___
