Coba jalan-jalan kesini<http://b-excel.blogspot.com/2013/09/belajarvba-013-range-01-berdasar-alamat.html>. Ndak usah lihat yang aneh-aneh disana<http://b-excel.blogspot.com/2013/09/belajarvba-013-range-01-berdasar-alamat.html>. Cukup fokus pada bagaimana cara menyusun sebuah teks (data string). Ndak usah pengen yang singkat, pakai sebanyak mungkin variabel supaya bisa melihat secara jelas layaknya sedang naik helikopter. Kalau sudah dapat terlihat jelas dan bisa memetakannya dengan nyaman, barulah bersibuk ria untuk menyederhanakan agar tidak pakai variabel yang begitu banyak.
Wassalam, Kid. 2013/9/9 hendrik karnadi <[email protected]> > ** > > > Bola sudah bergulir masuk gawang, dengan satu macro bisa didapat tiga > alternatif input dengan fungsi Match. > Yang sering membuat "bingung" dalam menulis macro adalah kombinasi tanda2 > baca termasuk tanda petik " > > Dalam penulisan fungsi Countif versi Pak De ada tanda petik " pada awal > dan akhir sedangkan versi Pak Dwint hanya pada akhir saja. > > Barangkali wasit (Mr. Kid atau Miss Jan) bisa memberikan kuncinya. > > Terima kasih. > > Salam, > HK > > ------------------------------ > *From:* De Premor <[email protected]> > *To:* [email protected] > *Sent:* Monday, 9 September 2013, 11:25 > > *Subject:* Re: [belajar-excel] rumus yang tidak running > > > Ikutan aah biar bisa mengakomodir jika si kalau memilih No. NPB, No. PO > atau No. PR > > Sub xxx() > Dim Data As Range, Rng As Range > Dim iCol As Integer, lRow As Long > > 'INI BUAT NYARI KOLOM SESUAI YANG DIMAU SI USER > iCol = Evaluate("=MATCH(U5,A5:T5,0)") > > 'INI BUAT MEMILIH DATANYA YANG DIPILIH USER (AGAK BERTELE2 MILIH > DATANYA, MUTER2 :D) > Set Data = Range(Cells(6, iCol), Cells(6, 1).End(xlDown).Offset(, iCol > - 1).Address) > > For Each Rng In Data > Cells(Rng.Row, 22) = Rng & "-" & Evaluate("=COUNTIF(" & Cells(6, > iCol).Address & ":" & Rng.Address & "," & Rng.Address & ")") > Next > End Sub > > > On 09-09-2013 11:06, dwint ruswanto wrote: > > Dim rgNpb As Range, cel As Range > Dim lRow As Long, lCel As Long > > lRow = Cells(Rows.Count, 2).End(xlUp).Row > Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2)) > For Each cel In rgNpb > lCel = cel.Row > cel.Offset(, 20).Value = cel.Value & "-" & Evaluate("=COUNTIF(B$6:B" > & lCel & ",B" & lCel & ")") > Next cel > > > > > >
