TheSagaContinues

Quote from: the_new_skynet on May 22, 2015, 11:30:19 pm

Error Report: On the Feats tab, attempting to use the "Collapse" button creates a Microsoft Visual Basic for Applications error that simply reads "400".

It's doing that for me too. I have no idea what's causing it or how to fix it.

Help us Darkwulf Kenobi! Your our only hope!

Just as an update on trying to get some of the issues fixed. I am working with my dad on it and I have also gone to a VBA Excel forum to try and locate someone to help us out. Hopefully we get some progress made. I'll keep you up to date.

Well we had a couple of epic fails. Trying to fix the droid issue caused excel to stop working. We haven't given up and will keep you posted.
On a related note: My dad and brother are both programmers and have expressed interest in rewriting the character generator in C# so that it is independent of excel. Are there any feature requests I should put in beyond just the rules to generate a character?

I got some feedback from another forum about the macros and VBA. I have a lot of leg work to do to clean up the workbook before they start into the core issues. I'll keep you up to date. I may post a cleaned up copy of the sagasheet for testing purposes to ensure that nothing broke that was originally working once I finish the clean up.

While not related to character creation an item creator would be nice. There have been lots of times when I wanted to give a character something which couldn't quite be handled by the character generator Item modifications. This is mostly to do with dual gear and droidification. I know its a whole other system, but one the Character generator is done I think it would be the next logical step.

It does have options for things you mentioned Sparx. However for instance I used it to create Shkop for the Fallen Empire game, the item modification thier for the armor didn't have enough slots for all the mods I fitted to the armor. Things like that and the aforementioned dual gear/droidification are really what I am talking about. It is good for modding items but it is a character creator, the item stuff could use some expansion.

When I try to use the "reset sheet" function on the first tab, an error comes up which says "stack overflow".  The sheet then stops working and crashes. I clicked the debug and copied the section which it highlighted for me. Then once I copied it and closed the debug, reclickling the reset sheet button stated that it could not be run in "break mode"


Private Sub Worksheet_Change(ByVal Target As Range)

If LoadingRace = False And Collapsing = False Then

    'This updates the near-human species abilities validation
    If Not Intersect(Character.Range("NearHumanTraitSkill"), Target) Is Nothing Then
        NearHumanValidationSelect ("NearHumanTraitSkill")
    End If
    If Not Intersect(Character.Range("NearHumanTraitFeat"), Target) Is Nothing Then
        NearHumanValidationSelect ("NearHumanTraitFeat")
    End If

    'When the character's age changes, this changes the age category
    If Not Intersect(Character.Range("CharacterAge"), Target) Is Nothing Then
        CalculateAgeBracket
        If Character.Range("CharacterAge").Value < 0 Then Character.Range("CharacterAge").Value = ""
        If Character.Range("CharacterAge").Value > 998 Then Character.Range("CharacterAge").Value = ""
        If Character.Range("AgeBracket").Value = "()" Then Character.Range("AgeBracket").Value = "(undefined)"
    End If
   
    'If the portrait image's path is a false value, this empties the path box
    If Not Intersect(Character.Range("PortraitPath"), Target) Is Nothing Then
        If Character.Range("PortraitPath").Value = False Then
            Character.Range("PortraitPath").Value = ""
        End If
    End If
   
    'If the Dark side score is greater than the wisdom score, it is reset to the wisdom score, or 0 if no value is set
    If Not Intersect(Character.Range("DSPoints"), Target) Is Nothing Then
        If Target.Value > Abilities.Range("FinalWis").Value Then Target.Value = Abilities.Range("FinalWis").Value
        If Target.Value = "" Then Target.Value = 0
    End If
   
    'When the cmbSpecies combo box was deemed surplus to requirements, this routine replaced its functionality
    If Not Intersect(Target, Character.Range("SpeciesList")) Is Nothing Then
        If Character.Range("SpeciesList").Value <> "" Then
            cmbSpecies_Click
        Else
            Character.Range("SpeciesList").Value = "None"
            cmbSpecies_Click
        End If
        SpeciesCollapse
    End If
   
    'If the offshoot or clone abilities are changed, this redoes the species abilities
    If Not Intersect(Target, Character.Range("OffshootAbility")) Is Nothing Or Not Intersect(Target, Character.Range("OffshootSkill")) Is Nothing Or Not Intersect(Target, Character.Range("CloneAbility")) Is Nothing Or Not Intersect(Target, Character.Range("MrlssiKnowledge")) Is Nothing Then
        If Character.Range("SpeciesList").Value <> "" Then
            cmbSpecies_Click
        End If
    End If
   
    'If the sex of a Devaronian is changed, the ability modifiers are reflected thus
    If Not Intersect(Target, Character.Range("CharacterGender")) Is Nothing Then
        If Character.Range("SpeciesList").Value = "Devaronian" Then
            SpeciesRacialAbilities (Character.Range("SpeciesNo").Value + Data.Range("RaceListStart").row - 1)
        End If
    End If

    'If the Follower talents are changed, this updates the follower accordingly
    If Not Intersect(Target, Character.Range("FollowerInspireLoyalty:FollowerCoordinatedTactics")) Is Nothing Then
        ThisWorkbook.FollowerSkills
    End If
   
    'If the background is changed, this updates the validation of the background cells
    If Not Intersect(Target, Character.Range("Background")) Is Nothing Then
        BackgroundValidation
    ElseIf Not Intersect(Target, Character.Range("BackgroundClassSkill1")) Is Nothing Then
        BackgroundKnowledgeLock
    End If
   
    'If the Total Replacement Cyborg checkbox is changed, this updates the racial abilities
    If Not Intersect(Target, Character.Range("TRC")) Is Nothing Then
        SpeciesRacialAbilities (Character.Range("SpeciesNo").Value + Data.Range("RaceListStart").row - 1)
    End If
   
    'If the near-Human special abilities are changed, this updates the racial abilities
    If Not Intersect(Target, Character.Range("NearHumanTraitSkill:NearHumanTraitFeat")) Is Nothing Or Not Intersect(Target, Character.Range("NearHumanTraitSkillSub1:NearHumanTraitFeatSub2")) Is Nothing Then
        SpeciesRacialAbilities (Character.Range("SpeciesNo").Value + Data.Range("RaceListStart").row - 1)
        SpeciesTrainedSkills (Character.Range("SpeciesNo").Value + Data.Range("RaceListStart").row - 1)
        SpeciesCollapse
    End If
   
    'If the droid special abilities are changed, this updates the racial abilities
    If Not Intersect(Target, Character.Range("AstromechFocus:ServiceDroidTraining")) Is Nothing Then
        SpeciesAbilities
    End If
   
    If Not Intersect(Target, Character.Range("CharBonusTrainedSkill")) Is Nothing Then
        SpeciesTrainedSkills (Character.Range("SpeciesNo").Value + Data.Range("RaceListStart").row - 1)
    End If
End If

End Sub