Hi sorry i forgot to mention that, I want to attach the code to a record in access. And i'd like to have the entire file content saved so the user can just, for example, click on the file name in the database and then click open to open the file. But it may be easier to just have the filename...
Hi, I am wanting to attach a file to a record. I want the user to be able to click a button, select a file and click save, just like attaching a file to an email, then the file to be saved / linked to the record.
I've searched all over the internet for this but keep coming up with "How to...
This is the code I have:
Sub Filter()
Dim FilterCriteria
Dim CurrentFileName As String
Dim NewFileName As String
Dim foldername As String
For n = 2 To Application.CountA (Sheets("Sheet1").Range("A:A"))
foldername = "C:\Documents and Settings\cwalsh\My Documents\storage\Testing\" & "Reports...
Getting there. Just one more little query, I have my main spreadsheet with all my data on i want to filter, and on another sheet (Sheet1) I have a list of all the different filter criteria.
In my code i want to say:
For n = 2 to 10
Filtercriteria = "Sheet1!" & cells(n,2)
Selection.AutoFilter...
Basically I'm doing it manually at the minute, but know there's got to be a way of doing it automatically. Just spent quite a while looking in the FAQs but can't seem to see anything (or part of anything) I could use.
Anyone point me to an FAQ or Post please?
Chris
Hi,
I've been looking all over the internet and can't find what I'm looking for.....So I thought i'd try here :D No doubt someone can help!
Basically I have a spreadsheet, see attached. I want to click a button and a filter to be ran, the filter will filter through the list of names (column...
Hi, I have a graph with various pieces of data on it (Series 1, Series 2 etc)
I want to have check boxes next to the graph so when I tick them the data is visible on the graph and when I untick them I want the data on the graph not to be visible.
I don't want to use:
column(x).hidden = false...
Sorry to keep asking all these questions, but this method is proving very very useful!
How would I put a variant in the above?
At the minute the code is putting the same formula into each cell e.g
in cell AF1 --> =if(D1="test","1","2")
in cell AF2 --> =if(D1="test","1","2")
in cell AF3 -->...
Sorry I didn't explain very well, basically I want the code to do the following
if cell x = a then put formulaA in cell y
if cell x = b then put formulaB in cell y
the above code is FormulaA in all the cells, then overwriting the same cells with FormulaB. I need all cells that = a to have...
Last question!
Could you correct this anyone?
Private Sub CommandButton1_Click()
For r = 4 To 10
Dim FormulaA As String
Dim FormulaB As String
FormulaA = XXXXX
FormulaB = XXXXX
If Cells(r, "W") = "A" Then
With Range("AF4:AF10")
.Formula = FormulaA
.Copy
.PasteSpecial xlValues...
Thanks for that Gavona, very useful. Just going back to Xlbo's comment, everytime i enter:
dim strForm as string
strForm = "=IF(W4="A",IF(ABS etc..."
with Range("D2:D10000")
.formula = strForm
.copy
.pastespecial xlvalues
application.cutcopymode = false
end with
I get a Syntax...
Thanks Geoff.
Basically I have a spreadsheet with 1000's of lines in, and the function in each of the lines is...
=IF(W4="A",IF(ABS(IF(AND(X4<VLOOKUP(J4,data,3,FALSE),(X4/0.84)<=VLOOKUP(J4,
data,3,FALSE),(X4/0.8)>=VLOOKUP(J4,data,3,FALSE)),X4/0.9,IF(AND(X4<VLOOKUP...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.