Hello all
I'm trying to set up a new spreadsheet for compiling quotes for my company. I've next to never used VBA before so this might as well be Greek to me. I'm trying to get two buttons to work
The first, being the "Save Workbook As". I found the code below and copy/pasted and it seems to work nicely, except for the fact it's only grabbing the name of what's in "B7". I can't find out what I should be changing that to for it to go down the list (in this case B7 to B16 until it sees a blank cell and stops. Any advice?
I'm also still on the hunt to get the "Generate Quote Email" button to do....anything really. To sum that one up: I want to be able to click that button and have it open a new email, BCC filled out, subject filled out as "RFQ: \list of part numbers/, then copy/paste a portion of the table starting at B7 to D7 and down as far as the fields are filled out.
Sub filesave()
Dim IntialName As String
Dim fileSaveName As Variant
InitialName = Range("B7")
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
fileFilter:="Excel Files (*.xlsm), *.xlsm")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If
End Sub
I'm trying to set up a new spreadsheet for compiling quotes for my company. I've next to never used VBA before so this might as well be Greek to me. I'm trying to get two buttons to work
The first, being the "Save Workbook As". I found the code below and copy/pasted and it seems to work nicely, except for the fact it's only grabbing the name of what's in "B7". I can't find out what I should be changing that to for it to go down the list (in this case B7 to B16 until it sees a blank cell and stops. Any advice?
I'm also still on the hunt to get the "Generate Quote Email" button to do....anything really. To sum that one up: I want to be able to click that button and have it open a new email, BCC filled out, subject filled out as "RFQ: \list of part numbers/, then copy/paste a portion of the table starting at B7 to D7 and down as far as the fields are filled out.
Sub filesave()
Dim IntialName As String
Dim fileSaveName As Variant
InitialName = Range("B7")
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
fileFilter:="Excel Files (*.xlsm), *.xlsm")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If
End Sub