ikutan bingung.... TS Neza
________________________________ Dari: hendrik karnadi <[email protected]> Kepada: "[email protected]" <[email protected]> Dikirim: Selasa, 10 September 2013 0:07 Judul: Re: [belajar-excel] rumus yang tidak running 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
