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
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!![]()
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.
Did you do this with an Excel macro, a Ooo macro, or somehow manage to get both to work on a single button???
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
Application.ScreenUpdating = FalseIf 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.
awesome work... i shot you a pm with an idea i had... that i think would be awesome...
putting something of a checklist in there on another tab to check off the flavors that someone has and see what recipes they could try...
I got it, just have been swamped lately. That would work, or should I say it would be easiyer in a database format. But in a spread sheet enviroment it would be difficult at best to do. Unfortunantly I do not have the time to attempt it. If anyone else want to attempt it I will have a look and incorporate it if possible.
Great Idea though!
Dan