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
>
>
>
