Assalamu'alaikum para guru dan master excel. dimana salahnya dari macro saya dibawah ini. Macro ini sy gunakan untuk mengedit data.
If Trim(EditBatch) <> "" Then
With Sheets("DataBatch").Range("C9:C1048576")
Set iBatch = .Find(EditBatch, LookIn:=xlValues)
If Not iBatch Is Nothing Then
BatchRow = iBatch.Row
If BlnBlend.Value = "" Then
Worksheets("DataBatch").Cells(BatchRow, 1).Value = FormulaR1C1
= _
"=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"
Else
Worksheets("DataBatch").Cells(BatchRow, 1).Value =
Me.BlnBlend.Value
End If
End If End WithEnd If
Macro yg berwarna hijau harapannya pada cell A608 keluar formula di excel
seperti pada gambar dibawah
tetapi hasilnya malah keluar tulisan FALSEKemudian makro tsb (yg berwarna
hijau) sy tes di dokumen baru, ternyata berhasil. File terlampir
Apa penyebab macro keluar tulisan FALSE ?
Jazakallahu Khairan Katsira dan Terima Kasih, semoga Alloh Swt membalas dengan
yang lebih baik atas solusi yg diberikan para guru dan master excel semua. Amin
test macro.xlsm
Description: application/download
