Oke, Makasih ya mas, tapi kok di password mas ??
________________________________ Dari: o' Seno <[email protected]> Dikirim: Selasa, 28 Februari 2012 1:44 Hai Ridwan, Hai Kurrei recca, Hai yusajing ehm, bgmana kabar kalian bertiga, baik bukan ? Sub MingguanTotal() Dim Station, Daft As Range, Hsil As Range, Found As Boolean Dim i As Integer, x As Integer, r As Integer Station = Split("RCTI,SCTV,IVM,MNCTV,TVRI1,TRANS7,TRANS,GTV,ANTV,TVONE,METRO", ",") Set Daft = Sheets("Makro").Range("A4") Set Daft = Range(Daft, Daft.End(xlDown)) Set Hsil = Daft.Offset(0, 4) For x = 1 To Daft.Rows.Count Found = False For i = 0 To UBound(Station) If Daft(x, 1) = Station(i) Then r = r + 1 Found = True Hsil(r, 1) = Daft(x, 1) Exit For End If Next i If Not Found Then r = r + 1 Hsil(r, 1) = "Other" End If Next x Hsil.CurrentRegion.Offset(2, 0).Name = "xhsl" End Sub wassalam..o'Seno
