Home Creators Posts Import Register Favorites Logout

Downloads

Content

Hello Members!

In this week’s Feature, Fix, or Focus, we have a very special bonus for our members. I am giving away a free, pre-release of my incredible Excel AI-Toolpack, absolutely free to all members. 

So what's inside? Check out the full preview video and download the add-in now!

Thank you so much for your continued support.

Files

Comments

Peter Kind

I get the message 'You exceeded your current quota' in the debug window. What is wrong?

Excel For Freelancers

Hi Peter, each new account is given a certain free quota, once you have exceeded this, you will receive this message. You will want to check your open AI account for details on that and may want to upgrade to a paid account. I hope this helps and thanks so much. You can check here: https://platform.openai.com/account/usage

Peter Kind

Ok, thank you for your response.

Whunt

Hi Randy, I’m not able to download the excel file.

Whunt

My apologies, yes, I’m trying to download the “Excel AI Tool-pack New” (Excel add-in) from Patreon and haven’t been able too. Thanks

Excel For Freelancers

HI when i click above on that Excel_AI_Tookpack_New.xlam, it downloads right away. Can you try another browser?

Whunt

Thanks it worked.

p l

Hi Randy, thx for this. amazing add-in..... when I first tried it I received an error in the ChatGP_Function macro, ParsedAnswer line of code, and I noticed that in "InStrRev(ParsedAnser" had received a message back from open ai telling me my account had expired. I presume the reply was incomplete from the perspective of your parse engine code and caused an error. My free account had expired, I upgraded to a paid account and the add-in works fine now. is there a way to receive the status of the account message without triggering a macro error? Sorry, did not document the error report specifics from the pop-up and can't reproduce the error since my account it ok now

Excel For Freelancers

Hi and thanks so much. Yes i do understand about the issue. You can add something like this into the code If InStr(Response, "expired") > 0 Then 'Content submitted is too large MsgBox "Your account has expired and should be renewed or upgraded to a paid plan" End Exit Sub End If I hope this helps and thanks so much.

Martin Rini

Hi Randy, using the AI function, some features I'd like to see: Marty I'd like to set up a series of those in a row so that the answer from the 1st question in the series fed the second, etc. ChatGPT(" example Question") ChatGPT ( answer 1cell ) ChatGPT ( answer 2 cell) etc. Also, for the ask it anything button, I'd like for it to store the response in a cell, new cell for every question.

Excel For Freelancers

Hi Martin, thank so much for your idea. They are all really good. I will see that I can incorporate those into a new training the next time we do a ChatGPT training. Thanks for your continued support

Martin Rini

Above is wrong...here is better example: ChatGPT(" example Question") ChatGPT ( "question2", answer 1cell ) ChatGPT ("question3", answer 2 cell) etc. Using template questions to accept preceding answer. Example: What is a hot Youtube Video Topic? What would be a good eye-catching title for _________ Write and into paragraph for ________ Write a script for ________ Create a project plan for ____________ Create an effort estimate for ___________ Used for repetitive process

Excel For Freelancers

HI Martin, yes that makes sense. These would be great ideas for a new ChatGPT Function

Korina Katsani

Very grateful! I made the change for ChatGPT version >= 3.5. The change had to be made in two places. '-----1----' ' oXMLHTTP.Open "POST", "https://api.openai.com/v1/completions", False 'Set Open Posts For Text ' AIBody = "{""model"": """ & Model & """, ""prompt"": """ & Context & Prompt & """, ""temperature"": " & Temp & " , ""max_tokens"": 3500}" 'Request Body For Text Response oXMLHTTP.Open "POST", "https://api.openai.com/v1/chat/completions", False 'Set Open Posts For Text AIBody = "{""model"": """ & Model & """, ""messages"": [{""role"": ""user"", ""content"": """ & Prompt & """}], ""temperature"": " & Temp & ", ""max_tokens"": 3500}" And '---------2-------' Dim startPos As Integer Dim endPos As Integer Dim content As String startPos = InStr(Response, """content"": """) + Len("""content"": """) endPos = InStr(startPos, Response, """") content = Mid(Response, startPos, endPos - startPos) content = Replace(content, "\n", ",") content = Replace(content, "1) ", "") content = Replace(content, "2) ", "") ParsedAnswer = content ' ParsedAnswer = Right(Response, Len(Response) - InStrRev(Response, "[{" & Chr(34) & "text" & Chr(34) & ":" & Chr(34)) - 9) ' ParsedAnswer = Left(ParsedAnswer, InStrRev(ParsedAnswer, Chr(34) & "," & Chr(34) & "index") - 1) ' ParsedAnswer = Replace(Replace(ParsedAnswer, "\n", vbNewLine), "\" & Chr(34), Chr(34))

Excel For Freelancers

Ah yes so true, very well done. I also had to make the change to my Excel AI Addin application for the new model. I just can't quite get to updating all of the old templates used in the trainings for new models. I think we just have to accept making regular code updates. Very well done on the update and great to have you here Korina