makasih Mr. KID besok saya coba, emailnya baru masuk..
________________________________ Dari: Mr. Kid <[email protected]> Kepada: BeExcel <[email protected]> Dikirim: Jumat, 6 September 2013 17:39 Judul: Re: [belajar-excel] rumus yang tidak running Hai Neza, baris kode yang merah salah dalam penggunaan. bagian merah tersebut adalah proses memasang formula ke cell aktif dan bukan mengambil nilai. Coba event click tombolnya diisi dengan script berikut : Dim lRecords As Long, rng As Range Dim sFormula As String Application.Calculation = xlCalculationAutomatic 'jumlah record lRecords = Range("a4").Value If lRecords < 1 Then Exit Sub End If 'susun formula untuk u6 Select Case Range("u5").Value Case "No. NPB" 'pakai kolom B sFormula = "=Rept(B6 & -COUNTIF(B$6:B6,B6),Len(B6)>0)" Case "No. PR" 'pakai kolom J sFormula = "=Rept(J6 & -COUNTIF(J$6:J6,J6),Len(J6)>0)" Case "No. PO" 'pakai kolom P sFormula = "=Rept(P6 & -COUNTIF(P$6:P6,P6),Len(P6)>0)" Case Else Exit Sub End Select 'set range yang akan diberi formula 'mulai u6 diperluas lRecords baris dan 1 kolom Set rng = Range("u6").Resize(lRecords, 1) 'pasang formula rng.Formula = sFormula 'divalueskan rng.Value = rng.Value 'pesan MsgBox "Done.", vbInformation, "Nilai kolom U" Wassalam, Kid. 2013/9/6 neza ibaneza <[email protected]> > >Salam B-Excel > > >Master-master yang baik hati, saya coba buat rumus VBA, tp kok ada sebagian >yang tidak running >masalahnya dimana ya? > > >Salam >Neza
