2 posts / 0 new
Last post
VBA Errors: creating my own map

 
Hi!
 
I've encountered critical problem while creating my own map(South Korea, Asia) with statplanet-create your own map function.
Maybe there are some errors in your VBA coding: StatPlanet_data_editor.xls.
 
When I hit 'Save data' Button, it runs into debug mode and prints compile error.
I found that there are misplaced quotes-marks in your SaveData / Save method.
It needs to be corrected like this, I think.
 
Sub Savedata()
...
As is: Cells.Replace What:="?, Replacement:=" - ", LookAt:=xlPart"
To be: Cells.Replace What:="?", Replacement:=" - ", LookAt:=xlPart
 
Private Sub Save()
...
As is: Cells.Replace What:="?, Replacement:=" '", LookAt:=xlPart 'replace apostrophe with one that is recognized by flash
To be: Cells.Replace What:="?", Replacement:=" '", LookAt:=xlPart 'replace apostrophe with one that is recognized by flash
 
 
So I corrected these errors for myself, but still it doesn't work.
There's no error anymore, but 'Data' sheet is filled with apostrophes after running 'Save data' macro.
I didn't even changed data or region settings yet.
 
Is there any solution?
 
I'm running your macro in Excel 2010.
Thank you for your kind response in advance.

StatSilk's picture

Hi,

Sorry to hear about your problem. These are not actual errors in the coding. These are errors which appeared due to a different language version of Excel, which must have replaced existing characters with incorrect ones unfortunately. 

The question mark symbol should not be there (that must have appeared due to the different langauge version). The actual version is as follows (this is the correct code in the English language version of Excel):

Cells.Replace What:="’", Replacement:="'", LookAt:=xlPart 'replace apostrophe with one that is recognized by flash
Cells.Replace What:="""", Replacement:=" '", LookAt:=xlPart 'replace quotation marks

None of these lines are essential, so perhaps the easiest way to resolve the issue is simply to remove the above lines causing problems. I hope that works out.

Best,

Frank

USER LOGIN