I need my SQL server query to update with names from a range. e.g. pinnog as shown below is a name defined range called Name1 and smithb will be Name 2.
Can someone with me with this code as I am not sur ehow to lookup ranges in VBA.
My code is below ...
Code:
Sheets(Array("Sheet 1", "Sheet 2")).Visible = False
How do I convert the above to using Sheet Codes Names, Sheet1 and Sheet2?
Want to ensure my code will work if the user changes the sheet name.
I am making a macro to update the data on a bunch of charts. This is what I got from the macro recorder when I selected the data manually.
Code:
Sub testthree()
ActiveWorkbook.Charts("Julian's Words").Select
ActiveChart.SetSourceData Source:=Sheets("Super Sight Chart Data").Range( _
"C1:H1,C5:H5"), PlotBy:=xlRows
End Sub
I have created the part of the macro that will go to the data table and define the two ranges I need to use.
Code:
Sub Adjust_Graphs()
Dim lastdate As String
Dim daterange As Range
[Code] .....
However, this code is selecting the entire range C1:H5. How can I get the code to take JUST the two lines I need?
Exmaple: The X axis needs to be C1:H1, and the Y axis needs to be C5:H5.
I also tried this, without success:
Code:
Dim combrange As Range
Set combrange = Union(daterange, wordrange)
ActiveWorkbook.Charts("Julian's Words").SetSourceData Source:=Sheets("Super Sight Chart Data").Range( _
combrange), PlotBy:=xlRows
I want to update a number of charts using data that covers a rolling 12 months - this will be amended each month by addition of new data but I will be retaining the full history. I thought the easiest and quickest way would be to name the data range and just amend it each month as I added new data. However, when I use the named range in the chart wizard it is replaced by direct cell references. Can anyone suggest how I can retain the name in the chart or suggest an easy alternative method?
View 9 Replies View RelatedI am using Excel 2003.
I have a column. D3-D7 have numbers in them and I want to add them. I put a formula in D8 to SUM all the Cells From D3-D7. No problems there.
When I insert a row above D8 the range for the SUM is not expanding, and if I do put info in the cell a box comes up asking if I want to update the formula.
Is there a way to insert a new row and have it be included in a range?
i am trying to assign names to my ranges using VBA. i am doing it through the following but seems like it does not work.
Sub MakeName()
ActiveWorkbook.Names.Add Name:="ACCOUNT", RefersTo:="GL_Details!$J$2:INDEX(GL_Details!$J:$J,LastRow_GL)"
End Sub
>Workbook Defined NamesNameRefers To
ACCOUNT=GL_Details!$J$2:INDEX(GL_Details!$J:$J,LastRow_GL)
ACCOUNTING_PERIOD=GL_Details!$C$2:INDEX(GL_Details!$C:$C,LastRow_GL)
BUDGET_YEAR=Expenditure_Details!$BF$2:INDEX(Expenditure_Details!$BF:$BF,LastRow_Exp)
[Code] ........
I tried a simple for I loop to remove all Named Ranges in a workbook, Unforunately I got a subscript out of Range Error. Is anybody aware of a way this can be done with code?
For i = 1 To 4
ActiveWorkbook.Names(i).Delete
Next i
peice of code which can look down a column, which contains named ranges, and output all the named ranges to a Listbox, and doesnt add the normal text also in the column?
View 9 Replies View RelatedIs there a way to automatically create list of the Tab names, and have it automatically update when new tabs are added?
View 2 Replies View RelatedI am using find and replace to change file names and ranges in vlookup formulas. The files are on a remote server and I don't want the Update Values dialog box to display.
Can I disable this before starting the find and replace?
in A1 there will be a box with LinkedCell set to A1 and ListFillRange set to B1:B5. I now want a similar box in A2, with A2 as LinkedCell. However, when I copy paste the box in A1, it still refers to A1 and B1:B5 (the last part is ok). I can easily change A1 to A2 by just changing it in the properties, but the thing is that I also need these boxes in A3:A100. Someone else helped me out by writing some code, but this is not working correctly yet, probably because I'm doing something wrong.
Also, the ListFillRange might expand in the future. Therefor I would like to know if its possible to select the boxes in A1:A100 and change the ListFillRange to B1:B6 for all at once, or even have a piece of code attached to a command button that recognizes the expanded range and updates it.
I couldn't attach the file because it was to big, therefor I uploaded it with yousendit:
[url]
So in short: I would like all the comboboxes in column E to be linked to the cell underneath and have and option to adjust the listfillrange. The same for column F, but for this one the listfillrange needs to be O8:O11.
I have 2 ranges named MASTER and SUBSET and 1 range named ANSWER. I want to compare ranges MASTER and SUBSET and copy the difference to ANSWER. The ranges have the same number of columns but different number of rows. Sample data is below.
Ideally, I would like a VBA solution executed from a userform button.
Example:
MASTER
aaa apple
aab banana
aac grape
SUBSET
aab banana
ANSWER
aaa apple
aac grape
The combobox is on a userform. This is the code I'm using to populate the Combobox
For Each nName In ThisWorkbook. Names
ComboBox3.AddItem nName.Name
Next nName
I tried to your reply but i get a object error
Can I stop the displaying of the name of the named area when I am zoomed out of a worksheet? I can not see an option on the Tools > Options > View menu.
A workaround, found by accident, is to make the named area have more than one area.
Cells in row C have numbers (number of days between date a and date b)
I want to group the days so I can run a usable pivot table as follows:
Up to 7 days between update date and today (ie 1 week) 8-14 days between update date and today (ie 2 weeks) 15-21 days (ie 3 weeks) 4 weeks +
My attempt is as follows but only give two results and not 4?
=IF(OR(C2<=7),"1-7days",IF(OR(C2>=8,C2<=14),"8-14days",IF(OR(C2<=21,C2>=15),"15-21days","Over4weeks")))
I have two workbooks I am using. Essentially I am copying values out of one workbook, opening a second workbook, manipulating data and pasting it. Everything is working great but one issue! The first workbook has named ranges in it that I don't want in the second workbook (just values). I don't want them because when I try this operation the second time it asks if I want to use the same name or choose a different name. For some reason it is still copying over all the named ranges (all 343 of them!). Is there a way to not allow it to do that or simply just delete the names before I close the second workbook?
Win 7 64, Office 2010
Sub CopytoDB()
Application.ScreenUpdating = False
Worksheets("Setup").Select
Range("A2:A766").Select
Selection.Copy
Workbooks.Open Filename:="D:Server MirrorDatabaseSetup Database.xlsm"
Worksheets("Database").Select
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
[code].....
I am trying to enter only the named ranges in the active worksheet into an Array.
The amount of named ranges can be from 4 to 7 per sheet.
I'm self taught at VB (This posts on this forum have taught me - thank you!) and have got the below code working on a Workbook - but not on a worksheet level.
ActiveSheet.Names.Count returns nothing, changing to ThisWorkBook.Names.Count returns the sum of all .Names in the workbook.
Sub aTest()
Dim sArray() As String
Dim sJoin As String
Dim y As Long
x = 1
y = ActiveSheet.Names.Count
z = ActiveSheet.Name
I need to write code to automatically update a user's add-in if a newer version is available. Here are the specifics. The add-in is installed on multiple users c:drives. In the add-in code, there is a constant, Version_Nbr. On the network drive, I have a text file containing the most up-to- date version number. When the user opens the add-in file, the code compares the Version_Nbr to the text file on the network drive. If the version on the network is higher, I prompt the user with "A new version is available. Would you like to download it now?"
I have a seperate download program which will automatically download the new add-in to the user's local drive. Here's where I run into problems. I cannot replace the add-in file with a newer version when the add-in is open. The add-in is always open because it's the add-in that determines if a newer version is available. So how do I do this? It seems to me I need to launch the download program from the add-in and then have the add-in close itself before the download program executes.
On a weekly basis I record payment terms updates and do this process manually. I compare 2008 terms against 2009 terms for any status update. I would like to provide a button to do the work for me. Can anyone provide code please?
I currently use this "IF Statement" =IF(C2=D2,"No Change",IF(C2D2,"Reduced")))
My find and replace code is going to all the tabs in my workbook, but I want it to stop in my current spreadsheet I am on. Here is my
View 14 Replies View RelatedI have a time sheet which is used by around 15 people. Part of the timesheet is a userform which adds a new sheet and names it with the seleted month and year. I have made a few changes to my timesheet which I wish to update on other peoples sheets. I am going to send out a speadsheet with a macro that people can run and it will automatically make the changes to their timesheet. I have done all the work for updating the various formats and formuals but I have hit a bit of a brick wall when trying to change the code on a user form via a macro.
It would be great if I could either overwrite all of it or add a some lines of code from a specific line number.
I'm trying to write a VBA code to automatically update using a vlookup but I seem to be running into trouble, partically with the lookup value part of my vlookup. I basically have a range of dates in column B and want the values to appear in column C. Yes, I know I just type the forumla in column C and drag it down, but I really need to do it in VBA, as I want this to update when additional dates are added.
This is what I have thus far. The code keeps looping at i = i +1 and doesn't stop unless interuppted.
Sub update()
Dim i As Integer, L() As Range, s As Integer, V As Double
Sheets(1).Activate
s = Range("D:D").Select
On Error Resume Next
While s ""
i = i + 1
ReDim Preserve L(i To 1)
L(i) = s
Wend
If i = 0 Then
MsgBox "No dates found"
End If
Exit Sub
For i = 1 To UBound(L)
V = WorksheetFunction.VLookup(s, Range("Inputs"), 2, 0)
Next i
End Sub
I need to have multiple (up to 6) pivot tables on the spreadsheet with shared external data source. As a data source i have a csv file. Also, i need to be able to load data file on demand. I have created a button on the sheet that would load File dialog and let user select whatever csv data file they need. Then the idea was to update pivot cache connection and command properties using VBA with new file name. Here is the code :
Dim pc As PivotCache
Set pc = ActiveWorkbook.PivotCaches(1)
Dim ODBC_CONNECT_STRING As String
' FullFilename is a new absolute path to selected csv file
ODBC_CONNECT_STRING = "ODBC;DBQ=" & FullFilename & ";" & _
"DefaultDir=" & FullFilename & ";" & _
"Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"DriverId=27;FIL=text;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;" & _
"SafeTransactions=0;Threads=3;UserCommitSync=Yes;".................
I have created a pivotchart and placed it on (say) sheet " GRAPH". Excel has created the associated pivottable and stored it on (say) sheet "PIVOT".
Because the formating of the graph is lost each time the pivotgraph is refreshed i.e page fields changed, i have written a small macro to reformat it which i have put in the "Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)" event in the "PIVOT" sheet. All appeared to work well.
However, on closer investigation, i noticed that the pivotchart wasn't being updated (even though the source pivottable was set to refresh on open - another problem for another day?) so on the pivotchart sheet i had to press the little red exclamation mark to update it and the chart changed before my eyes. I thought I would then record a macro to see what i had to do.
The code the macro recorder gave was "ActiveChart.PivotLayout.PivotTable.RefreshTable" so i simply inserted this into the chart.activate event of the "GRAPH" sheet and assumed it would kick in everytime the graph was activated.
However, it crashes everytime with an error message "unable to get the pivotfields propety of the pivottable class". If I put an msgbox in the relevant "Sub Worksheet_PivotTableUpdate" to display the target. name, its blank!
I've tried all sorts of work arounds like trying to update the pivottable in the graph activate event:-
dim pt as pivottable : set pt = ......... : pt.refreshtable etc
select the sheet before hand etc, etc but no joy.
Following the code through debug it always crashes with the same message. If I manually update the pivottable on the PIVOT sheet (right click "refresh data") the table gets refreshed which then triggers my graph reformat code and everything is fine.
I'm sure i'm doing something wrong but it doesn't appear to like the chart and table being on different sheets?
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
msgbox Target.name <---------ERROR (Blank!)
If Target.PivotFields("BusinessArea").CurrentPage = "XXXXXX" And _
(Target.PivotFields("BM").CurrentPage = "AAA" Or _
Target.PivotFields("BM").CurrentPage = "BBB" Or _
Target.PivotFields("BM").CurrentPage = "CCC" Or _
Target.PivotFields("BM").CurrentPage = "DDD") Then
MsgBox "Error - " & Target.PivotFields("BM").CurrentPage & " is not a valid Business Manager of " & UCase(Target.PivotFields("BusinessArea").CurrentPage) & vbCr & vbCr & "Please try again!!", vbCritical, "Error"
Exit Sub
End If
..graph reformat code (irelevant because even If i delete this it still bombs out!"
End Sub
I have multi- sheet workbook that opens to a specific ws and to a specific cell.
Application.Goto Reference:=Worksheets("Menu").Range("A1"), _
One of the several ws is a form; when the user saves it, all other ws are deleted and the wb is saved as a new file name. (Need to retain other macros for future functionality, seems easiest to just delete the unneeded sheets).
Is their a way to modify the sheet reference from "menu" to "sheet-name" (will be a constant). Because it is likely that additional sheets will be added in the future to this new wb, I'd like for it to open to a specific ws.
As my VBA skills are "in development" (basement level, just now), please provide a complete answer (assuming this can be done).
I have a 15 excel files which are part of the forecast system. There is another file MASTER which is the host file for the macro. Every months multiple users are asked to update their forecast in the 15 excel files .As these files also display actuals, so they are linked to bunch of other files. The links to the files should not be updated unless I run my macro from MASTER to do the series of tasks.
Everytime these users open the files , they are asked to update links.
Is there a way for me to stop this warning and still able to update the links only when i run my macro from the Master.
I have a spread sheet where I've got to change the names, eg The name Paul Dechristian with this formula: .......
View 9 Replies View RelatedI can easily use VBA to update a column's next cell with a value from a static cell. As easy as this may be for most, I seem to be struggling!
For example, I would like cell B3 (then B4, B5, B6 etc) to update, according to a value (time frame in seconds) in cell C3, with a value from the cell D3.
The below is a data sheet which is going to be designed to keep the records of "sending and receiving" details of wash-garments from a garment factory.
Descriptions;
01. Starting from B12, the dates of sending and receiving are entered in the sequence they occur. Both sending and receiving can occur on the same date.
02. Starting from C12, there are reference codes related to the activity, if Sending the letter is entered as "S", and if receiving it is entered as "R". I included this for the calculation or sorting purpose.
03. Columns D to J includes the break down of sizes of the quantities sent or received.
04. column K simply calculates the totals of the columns from D to J.
Requirement : I need to have the totals of each size wise quantities sent and received in the "summary table" as follows;
>> Size wise totals of "sent qtys" to be shown in D5 to J5(referring to the code "S")
>> Size wise totals of "received qtys" to be shown in D6 to J6(referring to the code "R")
>> The dates to be updated and displayed"automatically" in the rows of the column B, when the code letters("S" or "R") is entered in the column "C"
Special Remarks : The last date of sending or receiving cannot be predefined, the rows(dates)will be kept adding according to the way sending and receiving may occur.
I have a ton of cells that contain formulas with arrays. How can I update these without:
clicking the cell
clicking the formula bar
then hitting CTRL+SHIFT+ENTER