Ganti bagian ini :
If not rngfindres is nothing then
rngfindres.offset(0,3).value = rngloopfrm.offset(0,2).value
End if
err.clear
dengan :
dim sMsg as string
If not rngfindres is nothing then
rngfindres.offset(0,3).value = rngloopfrm.offset(0,2).value
else
smsg=smsg & rngloopfrm.value & ", "
err.clear
End if
if lenb(smsg)<>0 then
msgbox "Tidak ada :" & vbcrlf & left$(smsg,len(smsg)-2)
endif
Wassalam,
Kid.
2012/5/3 ChubbyMike <[email protected]>
> If not rngfindres is nothing then
> rngfindres.offset(0,3).value = rngloopfrm.offset(0,2).value
> End if
>
