Ejucie calculator (added quantity calculations)

[tolip]

Where is the editbutton?

On the DIY cost calculator page, in the 'Cost to make a 30 ml bottle' area,
shouldn't that read
'Final E-Juice @ 6mg'
instead of
'Final E-Juice @ 6ml'
???

tolip

[The_janty_Misfit]

I.... I think I've got it.

By George! I think Iv'e got it. I found myself pounding away on that formula trying to figure it out and getting part of it (x+y)/2 and then slamming head first into the "mandoIsuckatmath" wall.

Thanks for the equation. I'll plug some numbers in and get nicked to the gills in your name! :-)

[The_janty_Misfit]

Now, can anyone tell me how I get my juices sweeter to the taste? I'd love to know what on earth they do to RY4 so I could stop using it as the base for things I'm working on.

Thanks in advance.

[Scubabatdan]

Originally Posted by tolip

Where is the editbutton?

On the DIY cost calculator page, in the 'Cost to make a 30 ml bottle' area,
shouldn't that read
'Final E-Juice @ 6mg'
instead of
'Final E-Juice @ 6ml'
???

tolip

You are correct, good catch, I will fix it now.
Thanks!
Dan

Added:
It has been corrected and replaced.
Thanks again!

[Scubabatdan]

Originally Posted by The_janty_Misfit

I.... I think I've got it.

By George! I think Iv'e got it. I found myself pounding away on that formula trying to figure it out and getting part of it (x+y)/2 and then slamming head first into the "mandoIsuckatmath" wall.

Thanks for the equation. I'll plug some numbers in and get nicked to the gills in your name! :-)

Your welcome!

Originally Posted by The_janty_Misfit

Now, can anyone tell me how I get my juices sweeter to the taste? I'd love to know what on earth they do to RY4 so I could stop using it as the base for things I'm working on.

Thanks in advance.

Try adding marshmallow I heard it sweetens juices up with out adding alot of flavor.
Dan

[Scubabatdan]

Hey everyone,
I have added a new sheet entitled "Additional Help with Mixing" This sheet contains how to make menthol drops from menthol crystals and how use tobacco absolute as well as using seedmans flavorings. I added links to the web sites for the materials you will need to make your own.
Hope this helps.
Dan

As always the download link is in my sig.

[Scubabatdan]

Ok I was bored so I added a button beside the recipe inprogress list. Once you are happy with the your final recipe, click the button and it will look for the first open line in the A column on the recipe sheet, it will then copy the name and all of the flavors and percents to the recipe sheet and prompt you to enter your name.

Here is the link to it:
ejuice calculator v8

I know a couple have asked for it so here it is. V7 will be available for a couple more days and then I will be changing my sig to reflect v8.
Dan

[Scottes]

Did you do this with an Excel macro, a Ooo macro, or somehow manage to get both to work on a single button???

[Scubabatdan]

Originally Posted by Scottes

Did you do this with an Excel macro, a Ooo macro, or somehow manage to get both to work on a single button???

I used a macro/vba, here is the code:

Sub AddRecipe()
'
' AddRecipe Macro
'
'
Dim cell
cell = 45

Repeat:
cell = cell + 1
cella = "A" & cell
cellc = "C" & cell
celld = "D" & cell
celle = "E" & cell
cellf = "F" & cell
cellg = "G" & cell
cellh = "H" & cell
celli = "I" & cell
cellj = "J" & cell
cellk = "K" & cell
celll = "L" & cell
cellm = "M" & cell
Sheets("Recipes").Select
Range(cella).Select

If IsEmpty(Range(cella).Value) Then
Sheets("Calculator").Select
Range("E35").Select
Selection.Copy
Sheets("Recipes").Select
Range(cella).Select
ActiveSheet.Paste

Sheets("Calculator").Select
Range("E37").Select
Selection.Copy
Sheets("Recipes").Select
Range(cellc).Select
ActiveSheet.Paste

Sheets("Calculator").Select
Range("I37").Copy
Sheets("Recipes").Select
Range(celld).PasteSpecial xlPasteValues

Sheets("Calculator").Select
Range("E38").Select
Selection.Copy
Sheets("Recipes").Select
Range(celle).Select
ActiveSheet.Paste

Sheets("Calculator").Select
Range("I38").Copy
Sheets("Recipes").Select
Range(cellf).PasteSpecial xlPasteValues

Sheets("Calculator").Select
Range("E39").Select
Selection.Copy
Sheets("Recipes").Select
Range(cellg).Select
ActiveSheet.Paste

Sheets("Calculator").Select
Range("I39").Copy
Sheets("Recipes").Select
Range(cellh).PasteSpecial xlPasteValues

Sheets("Calculator").Select
Range("E40").Select
Selection.Copy
Sheets("Recipes").Select
Range(celli).Select
ActiveSheet.Paste

Sheets("Calculator").Select
Range("I40").Copy
Sheets("Recipes").Select
Range(cellj).PasteSpecial xlPasteValues

Sheets("Calculator").Select
Range("E41").Select
Selection.Copy
Sheets("Recipes").Select
Range(cellk).Select
ActiveSheet.Paste

Sheets("Calculator").Select
Range("I41").Copy
Sheets("Recipes").Select
Range(celll).PasteSpecial xlPasteValues

Sheets("Recipes").Select
Range(cellm).Select

MsgBox "Enter your name in the highlighted contributers field and claim your recipe"

Else: GoTo Repeat

End If

End Sub

If you know a better way so the screen does not flip back and forth I would love to see it. I know there is, I was just lazy I guess hehehehe
Hey at least it works LOL
The hard part was getting the formulas to paste as values and not as formulas, but I figured that one out.
Dan

[Scottes]

Originally Posted by Scubabatdan

If you know a better way so the screen does not flip back and forth I would love to see it.

Application.ScreenUpdating = False

will suppress screen activity. Set it back to True at the end.