Developer addin not working in network shared drive

[xenos55]

Hi all,

I am a newbie in VBA. I have a addin that count colour cell in a worksheet. It work well in local drive but the formula not working when other user access it in share drive. Even they have the script because the username in the formula is different.

example : me xxxxxxxxxxxxxxxxx

='C:\Users\xxxxxxxxxxxxx\AppData\Roaming\Microsoft\AddIns\countcolour.xlam'!CountCcolor('V:\1.0 CDPU\CDPU Attendance\[Consumer Support 2016.xlsx]Feb'!$AC$9:$AH$9,Sheet3!A1)


when user YYYYYYYYYYYY open the file from the shared drive it not working because it still have the user xxxxxxxxxxxxxxxxxxxxx

='C:\Users\xxxxxxxxxxxxx\AppData\Roaming\Microsoft\AddIns\countcolour.xlam'!CountCcolor('V:\1.0 CDPU\CDPU Attendance\[Consumer Support 2016.xlsx]Feb'!$AC$9:$AH$9,Sheet3!A1)




I tried to install the addin to user y pc and also put the vba code in share drive. Is there any way to work around?


Thank you.

[LordLoki]

could you post that addin? i dont understand what all the path things relate to

By the way there is a simple tutorial from Microsoft explaing exactly this:

https://support.microsoft.com/en-us/kb/2815384

When you do it like they describe there you just need to copy the Xlam file to the addins folder of all users that need it and then activate it. then it shouldnt matter where you put the file as long as they have the Addin activated.

You could also put that code directly into the Workbook where its needed that way you dont need to install it anywehre

[xenos55]

Hi Loki,


Below are addin script. This add in is in my pc. I also add to other PC. but in the formula. It remain ='C:\Users\xxxxxxxxxxxxx\AppData\Roaming\Microsoft\AddIns\countcolour.xlam'!CountCcolor('V:\1.0 CDPU\CDPU Attendance\[Consumer Support 2016.xlsx]Feb'!$AC$9:$AH$9,Sheet3!A1) . So user yyyyyyyyyyyyyyy can't have the formula to run it.

Basically I run the formula above to summarize the count of color cell.


Function CountCcolor(range_data As range, criteria As range) As Long
Dim datax As range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function


Really need help.