Wa'alaikumussalam wr wb
Hai Haris,
Coba hapus bagian yang berbunyi :
= FormulaR1C1
pada baris yang berbunyi :
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))"
agar TIDAK terbentuk proses perbandingan yang berbunyi :
FormulaR1C1 = _
"=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"
Karena jika ada bunyi proses perbandingan yang berbunyi :
FormulaR1C1 = _
"=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"
tersebut, maka hasil perbandingan tersebutlah yang akan dimasukkan sebagai
hasil ke dalam proses set nilai yang sisi kirinya berbunyi :
Worksheets("DataBatch").Cells(BatchRow, 1).Value =
Jika secara utuh, perhatikan hal berikut :
1. Ingin memasukkan nilai ke suatu cells, maka bagian penunjuk lokasi cell
dan proses penulisan nilainya :
Worksheets("DataBatch").Cells(BatchRow, 1).Value =
2. nilai yang akan dimasukkan ke cell tersebut berbunyi :
"=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"
3. jika nomor 1 dan nomor 2 ingin dijadikan satu, maka menjadi :
Worksheets("DataBatch").Cells(BatchRow, 1).Value =
"=IF(RC[1]="""","""",IF((R[-1]C[1]-RC[1])>15,R[-1]C+1,R[-1]C))"
Semoga lebih berhati-hati dalam melakukan copy paste.
Kehati-hatian akan mudah tercapai jika ada ilmu yang dipahami sebagai
landasannya.
Semoga tetap semangat dalam belajar.
Wassalamu'alaikum wr wb
Kid.
2014-12-17 17:45 GMT+11:00 ris ha [email protected] [belajar-excel] <
[email protected]>:
>
>
>
> 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 With
> End If
>
> Macro yg berwarna hijau harapannya pada cell A608 keluar formula di excel
> seperti pada gambar dibawah
> tetapi hasilnya malah keluar tulisan FALSE
> Kemudian 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
>
>
>
