![]() Set ParamsDict = GetDirectionParams(Wrd, SrchRng, DirList(d)) 'Get Parameters: direction, min&max start position, etc. ![]() 'Get the randomized list of possible directions, start with the first and loop through them if needed MyWords = "perception,grandmother,revolution,expression,employment,ambition,promotion,psychology,activity,departure,information,possibility,politics,imagination,negotiation" 'List of words, comma separated, used for testing purposes Rw2 = (, StartInputWords.Column).End(xlUp).RowĪrrWords(Rw - Rw1) = StartInputWords.Offset(Rw - Rw1, 0).Value 'StartInputWords = Worksheets("Input").Range("A2") StartInputWords.Offset(0, 2).Resize(100, 1).ClearContents Set StartInputWords = Worksheets("Input").Range("A2") Set wrdRng = SrchRng.Offset(0, + 2).Resize(1, 1) Set srchSht = ThisWorkbook.Worksheets("WordSearch")
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |