Coming from this formula in vba :
VB:
Dim sh As Worksheet
Set sh = Worksheets("Data helper")
Set Rng = sh.Range("C2:C" & sh.Range("C" & sh.Rows.Count).End(xlUp).row)
I want to translate this to a workbook dependent formula, but I'm not sure what I'm doing wrong
VB:
Dim book1 As Workbook
Dim sh As Worksheet
Dim srchRange As range '(added this line in edit : still not working)
'Set some variables:
[Code] ....
I have two spreadsheets. The sourse spreadsheet already has many named ranges which i would like to use for the main spreadsheet to pick up its information. Is there an easy way when using vlookup or the like to name the range in the other spreadsheet?
View 5 Replies View RelatedCopy data from workbook, open existing workbook, select range and paste. But my copied data is lost.
Sub Select_Copy_Paste()
'
'
Windows("ElektroFunctiesDatabase.xlsm").Activate
Sheets("PowerSupply's").Select
Range("A2:I6").Select
Selection.Copy
[Code] .........
' Here i need to do something to paste data into r.address?
I m not able to use the standard Excel Paste Special function when I copied a range of cells in another Excel workbook opened in a separate instance of Excel. Instead, Paste Special thinks that I have copied some non-Excel objects and gave me the Paste As options. This is not the case if I open both workbook within the same instance of Excel. Could you share with us if there is a trick to trigger the normal Paste Special options in such situations (without having to invoke Macro procedures)?
View 2 Replies View RelatedI have 2 workbooks. 1 is where data is entered called wksPB, the other is like a database workbook. The wksPB has data to be feed from column B to F and there is a dropdown.
what im looking to do is, if the combobox value is selected as Decline then it should display a messagebox that reference value in cell B is denied. if combobox value is Agreed then the macro should search the database workbook for the text entered in column b of wksPB and then copy data of C:E of wksPB to H:J of database sheet where that text is found and also the approver name in wksPB C24 to the approver cell of where that text was found. I've reached till finding the text but what I get my head twiting on is how to copy the text from wksPB column B:F to database sheet column H:K. Im attaching the sample workbooks and the code where ive reached till.
[Code] .....
Attached Files
Replacement Records - 2014.xlsx
forum file.xlsm
what VBA is required to have a combo box in a userform look up data in a different workbook, then populate that data into the drop down list of that combo box for a user to select.
I have managed to successfully create a vlookup for a combo box in a userform that looks up data in a named range in another worksheet within the same workbook and then populate that data into a field in a worksheet within the same workbook. However, I want to change this so the combo box on a userform (in one workbook) will look up data from a named range in a second workbook without opening the second workbook. At the moment, the code I have that will 'submit' the user selected data from the combo box drop down list works.
The code that has worked so far to vlookup data for the combo box from a worksheet within the same workbook is:
Code:
Private Sub UserForm_Initialize()
Dim pName As Range
Dim ws As WorksheetSet ws = Worksheets("vlookupsheet")
For Each pName In ws.Range("ProjectName")
With Me.cboProjectName
.AddItem pName.Value
End WithNext pName
Me.cboProjectName.SetFocus
End Sub
Do I need specify the file path of the second workbook that will contain the data for the combo box as well as the name of the worksheet and named range in that second workbook?
I'll soon have an ETL process that will load about 150K rows into an Excel workbook. On of the columns will be the end user's userid.
I need to autofilter that external workbook based on the end user's userid, copy that range, clear a worksheet on the current workbook, and copy that range to the current worksheet.
For example, see the attached workbooks. I need to replace the data in Source.xlsb!Cases with the data in Output.xlsb!Case_List, filtered on my userid, which we'll call foo.
I have a very brief question
dlgAnswer = Application.Dialogs(xlDialogOpen).Show
Selection.Copy
Windows("Derivative YK pricing Mod G.xls").Activate
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("C5").Select
Application.CutCopyMode = False
Windows("EXPORT1.xls").Activate
ActiveWindow.Close
As you can see, I open a workbook with the dlgAnswer, I was wondering how I could close that opened workbook
Currently I have
Windows("EXPORT1.xls").Activate
ActiveWindow.Close
however the workbook will not always be called export1.xls, I want it to close whichever one I opened earlier.
I am working with multiple workbooks with several tabs in each one. I need the forumula to update the "sheet name" from the source workbook even if the destination workbook is closed.
this is a portion of the forumula I am working with:
=SUM(IF(AND([L2_EI_Phase_II_monitoring_workbook.xlsx]Sheet25!$I$4>=182,[L2_EI_Phase_II_monitoring_workbook.xlsx]Sheet25!$I$4=182,
[L2_EI_Phase_II_monitoring_workbook.xlsx]Sheet26!$I$4=182,
[L2_EI_Phase_II_monitoring_workbook.xlsx]Sheet27!$I$4
I want to do is import a range from this workbook into the workbook attached. In the attached workbook on I have a Import Form where I can select the relevant workbook. I then want to be able to click import and it then goes to the source workbook and imports to the range specified. The code below is what I have got, the problem I have is that it doesnt recognize the range of data to import.
View 4 Replies View RelatedI have created a macro that copys pivot table from one Workbook to new workbook. Problems I am encountering are print selecting from source workbook are not copied to new workbook.
Dim AmountofColumns As Long, AmountofRows As Long
Dim ColumnCount As Long, RowCount As Long
Dim ThisWorkbookName As String, ActiveWorkbookName As String, ActiveSheetName As String
Public Sub CreateGroups()
Application. ScreenUpdating = False
Sheets("Preferences").Select
ThisWorkbookName = ActiveWorkbook. Name
AmountofColumns = Range("A1").End(xlToRight).Column
For ColumnCount = 2 To AmountofColumns......................
I have a formula in the Name Define part of excel in workbook that refers to another workbook. =IF(COUNTIF([DaysWorking.xls]Sunday!$A:$A,'2009'!I1)>0,1,"")
The DaysWorking.xls workbook is a data workbook, users may change the data and after they are done, they may exit the program but not save it. The DaysWorking.xls workbook should always revert back to the original form. I've put a read only property on it, but the problem lies when the user saves the file under Save/As function. Excel then updates the link to whatever the user saves the file as. Is there a way to make sure that the formula never get's changed?
I am creating a formula - that will look up a value within a seperate workbook. I want the workbook reference to change based on a cell which contains the date.
So workbook name is "Report 120309.xls"
Cell: A1 contains the date "120309"
Current formula ='[Report 120309.xls]Sheet 1'!$F$50. Can I replace the data within the formula with the date in the cell.
Trying to copy a range from Sender.xls (sheet) Lists backstage
onto Userform.xls (sheet) Behind the Scenes
When trying to copy the values within a multicell range, the destination cell range (same size) becomes blank.
Background
Excel 2000. I would like to be able to copy a range on worksheet 1 in workbook 1 to a range in worksheet 2 in workbook 2.
Walk - Task described above with all fixed identities.
Double- Can the task be performed using variables (sheets(variablee)) for the worksheets and ranges?
Home Run - Can task be done with variables in workbook, worksheet, and range? Or just recommend a book or link that can get me there.
I have created a spreadsheet some time ago and have been asked to improve on it but I'm rusty with VBA.
I have an automated ordering system that saves each sent order as the date e.g "05-04-2013.xls" but the management team want a graph with the data for the last 4 weeks compared. I have created a seperate workbook called "consumables report.xls" which has a column with the products listed followed by columns "Quantity" and "cost" which is repeated for the 4 weeks of the month.
I want to add a button to prompt the user to choose the saved order e.g "05-04-2013.xls" (all orders saved in same directory) to copy and paste the quantity and cost columns (c8,D69) into "consumables report.xls". I got this to work earlier but it would only paste the formulas and not the values. So I need
A prompt to open workbook
Copy range (c8,d69)
Close work sheet
Paste special .value (c8,D69)
I dont care if it has to open the workbook to copy the data as this will only be used once a month so it dosnt matter how slow the code is.
week 1 week 2 week 3 week 4
Product
quantity
cost
quantity
cost
cost
quantity
cost
1
2
3
4
5
6
7
8
I need a formula that will return the minimum value from a column range that flexs without having to manually go in an change row references. There is a blank row between each section of data in order to separate info. As an example:....
Need to formula to flex to include rows 5 thru 7 in the first section but expand to include rows 9 thru 13 in the second section. =MIN(A5.A7) works but how do I get next section to flex to =MIN(A9.A13) without manually changing the cell references? There is always a blank row in between the sections to separate.
I like to create "templates" for files that I work with on a reoccuring basis, just to make things simpler. The current template I am working on tracks items processed by day and is used for two reporting purposes; 1 totals the pay ending items processed so I have the dates laid out based on the 2 week period with formulas for that. The 2nd way it is reported is by the month. Since this is a template, only the first day of the first pay period for a calendar year needs to be entered and the rest of the dates populate based on that date. What I would now like to do is add columns for January - December monthly totals using a formula that will read something like "if column A (where the date is) contains 1/1/2014 - 1/31/2014, then sum up column L" and than copy that formula for the remaining months.
View 8 Replies View RelatedI have a named range that expands and contracts based upon the amount of data that is in some column. Call it AllData_UsedRange.
I have another named range that actually refers to a range. Call it AllData.
Column A
Row2 56
Row3 44
Row4 65
AllData is a named range that refers to the range A2:A65536
AllData_UsedRange refers to A2:A4 by way of this formula.
=OFFSET(AllData,0,0,COUNTA(AllData))
How to I obtain an address of AllData_UsedRange in VBA code?
These do not work...
ThisWorkbook.Names("AllData_UsedRange").RefersToRange.Address
Evaluate(ThisWorkbook.Names("AllData_UsedRange"))
I am trying to create a graph for a range of data that updates monthly (adding an extra month each time). I wanted the graph source data to update automatically each time the data is refreshed so used an OFFSET formula to identify a named range. I then point the graph to the named range as the source data.
When I enter the range as the source data the graph picks it up. However, when I re-enter the source data option on the graph it has converted the named range into a cell written range (ie. replaces "=QUALITY" with "='Front page'!$B$7:$J$10" - which therefore will not update when the range increases.
I have two workbooks: master and student. I have one spreadsheet in each workbook. Both workbooks contains data in the same range.
master.xls data = B1:B10 (values are integers)
student.xls data = B1:B10 (values are integers)
I want to know how to update(add) the values in master.xls with the values in a closed workbook(student.xls). Basically if master("B3") = 5 and student("B3") = 1, it will update the value in master("B3") = 6.
I have a range of values that are not a constant length. I want a macro that will calculate the range and fill with a formula using the new range. In this example, I need a formula to look at the values in range f464:f471 and calculate the number of values greater than $1000. Column B is a salesman identifier. I can do this manually, but it takes me about 1/2 hour to complete. At every change in "B", I need to place this formula in the open, blank cell in "E" such as highlighted below.
week39
ABCDEF45939SCHTERR-WIEDEMANNDCCDIST-MUSCHANY046039SCHTERR-WIEDEMANNDCCDIST-MUSCHANY046139SCHTERR-WIEDEMANNDCCDIST-MUSCHANY046239SCHTERR-WIEDEMANNDCCDIST-MUSCHANY0463 SCH Total 14042.2146439SCITERR-SULLIVANDCCDIST-MUSCHANY15587.1546539SCITERR-SULLIVANDCCDIST-MUSCHANY7217.2246639SCITERR-SULLIVANDCCDIST-MUSCHANY5316.6246739SCITERR-SULLIVANDCCDIST-MUSCHANY2720.6946839SCITERR-SULLIVANDCCDIST-MUSCHANY520.446939SCITERR-SULLIVANDCCDIST-MUSCHANY195.7147039SCITERR-SULLIVANDCCDIST-MUSCHANY047139SCITERR-SULLIVANDCCDIST-MUSCHANY0472 SCI Total 31557.7947339SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY4190.7147439SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY3219.7647539SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY3187.147639SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY2209.3747739SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY2132.7547839SCJTERR-VANBUSKIRKDCCDIST-MUSCHANY2034.56
Spreadsheet FormulasCellFormulaF463=SUBTOTAL(9,F435:F462)F472=SUBTOTAL(9,F464:F471)
Excel tables to the web >> http://www.excel-jeanie-html.de/index.php?f=1" target="_blank"> Excel Jeanie HTML 4
Save range in a new workbook as .gif
This is the macro :
How to include the workbook name in this piece of code?
Code:
sh1.Range(sh1.Cells(ii, k + 10)).Address
I have two workbooks the first named "number" which just contains the number 50000 on sheet 1 cell A1. This "number" workbook is always closed and saved in c:me"number". The second named "sales" has a form control button with code as follows and is always opened and saved in c:me
Sub next invoice()
range ("A1"). Value= range ("A1"). value+1
End sub
When I press the button this code does not work because I am missing the vba code to find the close file.
I am trying to copy a small range from one sheet in a workbook to another sheet in a different workbook. My ranges are spelled out in the SrcBook and the DestBook in the code below:
Sub CopyData()
Dim SrcBook As Workbook
Dim DestBook As Workbook*
****Application.ScreenUpdating = False
****Set SrcBook = ThisWorkbook
***
*** '*On Error Resume Next
****Set DestBook = Workbooks.Open("E:WIPIWS WIP.xls")
*** '*If Err.Number = 1004 Then
********Set DestBook = Workbooks.Add
********SrcBook.Worksheets(1).Range("D4:D6").Copy
********DestBook.Worksheets(1).Range("C10").PasteSpecial.Values
********Application.CutCopyMode = False
********DestBook.SaveAs ("E:WIPIWS WIP.xls")...........................
I want to copy a range (Columne J: first row to rows.count) from one workbook to another workbook which already exists. The target range is always different. The code I have is:
So far it only copies ONE cell, but even that doesn't work. I would need the whole range to be copied!
Sub FinalImport()
Call WhatRows 'to get the intZeile variable (number) via a inputbox
Workbooks("import.txt").Sheets("Sheet1").Range("J" & Rows.count).Copy _
Workbooks("Air Distance Table.xls").Sheets("Sheet1").Range("D" & intZeile)
End Sub
I am facing a problem in using a dynamic range(name) defined in a different workbook, when that workbook in not open. I have defined a dynamic range, 'complete' , in Main Assumptions.xls as shown below
= offset( sheet1!$A$16, 0,0, counta(sheet1!$A:$A)-6, 5)
I am trying to use 'complete' in another workbook, RCL.xls, as shown below.
=VLOOKUP(C11, 'C:Chein[Main Assumptions.xls]Sheet1'!complete,5)
This works well as long as Main Assumputions.xls and RCL.xls are open. However, When Main Assumptions.xls is closed and I try to open RCL.xls, I get a warning saying, Excel can't find 'complete' in Main Assumptions.xls. There are two possible reasons: 1. the name you specified may not be defined. 2. The name you specified is defined as as something other than a rectangular cell reference. Does that mean that I can't use dynamic ranges defined, in other workbooks?
This happened because I mentioned worksheet instead of workbook. The purpose of my code is as below:
1. Add new workbook (say wb2)
2. Activate the workbook wb2
3. Copy a predefined range from already open workbook (say wb1)
4. Select the target cell in wb2 through user prompt by using mouse or keyboard
5. Paste the copied range from wb1 at the selected location of wb2
I am facing problem in selecting the cell in wb2 as wb1 always remain in foreground and new workbook does not come to foreground even I click on that.
What I wanted to mean by user form is that before the above code runs, another code runs that brings up one user form. In that user form user can select if he/she wants to copy the selected range to a new workbook or an existing workbook. Suppose user selects new workbook. This time the inputbox comes and asks user to select the target cell of the new workbook. The input box pops up but I can not select the cell in new workbook as the user form always stay there and does not allow the second work book to come in front.
I ran the above code seperately without running the user form code and it worked perfectly. Hence I would like to know how to deactivate the user form
I have a fairly simple problem that my typical method of recording a macro and editing it isn't working for. What I'd like to be able to do is point a macro to a certain spreadsheet, and have it reformat the text of that sheet into a new workbook. I get new sheets from a customer each week, so the name of the sheet isn't constant. The process isn't too difficult to do by hand, but the sheet I'm trying to reformat is typically 30 lines or so of data, which is cumbersome to do manually line-by-line.
I've attached a sheet with a sample of what the data starts out looking like and what it should look like in the end. My goal is to take a single row of data and turn it into a check sheet so that there's a check box between each part number and each process. The number of parts can be anywhere from 6 to 17, but the number and types of processes is always the same.