Convert Selected Range On All Worksheets To Values
Aug 9, 2007
I have a macro that changes user selection from formulas to values:
Dim vCol As Variant
vCol = Application.InputBox("Select Column", Type:=2)
If vCol = False Or vCol = "" Then Exit Sub
Set UserRange = Range(vCol & "9:" & vCol & "35")
UserRange.Value = UserRange.Value
End Sub
I have several workbooks that use this macro, and the workbooks can include several sheets.
Is there's an easy way to change the macro so the user selection is changed in all sheets in the workbook. E.g. if the user selection is column H, the formula is changed to values in all sheets in the workbook.
View 4 Replies
ADVERTISEMENT
Jun 22, 2008
I have a workbook with 30 some sheets. I would like to have a macro that if i select multiple sheets, will paste the values and formats of those sheets into a new workbook. I would like this to keep the names of the worksheets when transfered to the new workbook.
Thus far, I have been using this code, which does nearly everything i want, but instead of pasting the values, it gives me #VALUE! for nearly all the cells. Most of the cells are using Vlookup and/or Indirect functions to reference other sheets- not sure if this is relevant. The few cells that do paste accurately are either text or simply reference another cell on a different worksheet without a function.
Here's my code.
Sub PasteShtVal()
Dim w As Worksheet
ActiveWindow.SelectedSheets.Copy
For Each w In ActiveWorkbook.Sheets
With w.UsedRange
.Value = .Value
End With
Next w
End Sub
View 9 Replies
View Related
Mar 19, 2007
I'm looking for a way that I could place a button on my workbook that would create a new document from the specified worksheets and convert the formulas to the values.
View 9 Replies
View Related
Oct 12, 2012
Code:
Sub Select_All_Sheets_And_Export()
Dim wsWorksheet As Worksheet, wbNew As Workbook
Worksheets.Select
Cells.Select
Selection.Copy
[Code] ........
I have come up with the above code to select all sheets in my workbook and convert to values and then split and save each worksheet as its worksheet name in the same directory.
View 3 Replies
View Related
Jan 15, 2008
I use the following code to extract a unique list of values and paste the list to a specified range:
Public Sub extract_unique()
Dim a As Range, v As Range, w(), i As Long, r As Range
Set a = Selection
Redim w(1 To a.Count, 1 To 1)
With CreateObject("scripting.dictionary")
.comparemode = vbTextCompare
For Each v In a
If Not IsEmpty(v) And Not .exists(v.Value) Then
i = i + 1: w(i, 1) = v.PrefixCharacter & v.Value
.Add v.Value, Nothing ..............
The code gets interrupted at this line:
If Not r Is Nothing Then
with the following error: "Code execution has been interrupted."
When I click debug, the line above is highlighted. If I click the sideways triangle to resume code execution it finishes normally. What can I do to stop my code from being interrupted?
View 9 Replies
View Related
Jul 13, 2014
I have Excel 2013. I would like to use the code below but I need it to let me select the range instead of specifying it in the code, then pop up a form into which I can fill in what I want it to search and what I need it replaced with.
[Code] ......
View 3 Replies
View Related
May 29, 2008
I want to create a Macro to convert the formula results from a filtered data range to values. I thought to use a simple code to do the copy - paste to value
Sub QuickSaveValue()
Dim r As Range, c As Range
Set r = Selection
For Each c In r.SpecialCells(xlCellTypeFormulas)
c.Copy
c.PasteSpecial xlPasteValues
Next c
Application.CutCopyMode = False
End Sub
But is not good because the range is much to large and i need just a filtered part to be changed and i tried like this:
Sub QuickSaveTV()................
View 4 Replies
View Related
Aug 1, 2008
I'm trying to create a spreadsheet to update daily, whenever our market intelligence arrives by email. I'm not trying to write a macro which can select a range of cells (G:L) relative to the date in Column B, which represents the value in cell P6. In other words:Read the value of cell P6 Find that value in column B (e.g. B646)highlight the cells in columns G through to L on that row (e.g. select G646:L646) I am then aiming to paste the values in that range of cells, so that those stay in the spreadsheet and are not lost when the next lot of figures comes in the following day.
Range("G646:L646").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Application.CutCopyMode = False
ActiveWorkbook.Save
but that's obviously a static range, rather than looking up the date first.
View 2 Replies
View Related
Jul 15, 2014
How can I convert all cell values in active range to text format without losing the actual value.
For Ex.
0123 will remain 0123
07/12/2014 will remain 07/1/2014
3453 will remain 3453
regardless of there previous format. Currently I am doing this manually for every column before creating a load file for SQL database.
View 7 Replies
View Related
Jan 17, 2014
I am trying to use the INDIRECT function to look up values on a range of other worksheets. I have a column of data in col A which is essentially a lot of different worksheet names. On each worksheet I need to use VLOOKUP to find a value.
Easier to show formulas. This is an example of what I want to recreate:
=VLOOKUP(O2, test!B3:C13,2,FALSE)
I want to replace the text "test" with the text in column A. So the first INDIRECT formula looks like this:
=INDIRECT("VLOOKUP(O2, " &A1& "!B3:C13,2,FALSE)")
Which to me looks like it should work but I get a #REF! error. I've tried various permutations, e.g. having the INDIRECT part of the formula located in a different place (next to the "test" text) but run in to similar issues.
View 5 Replies
View Related
Aug 22, 2008
In Worksheet 1, Cell B63 I would like to create a drop down menu, with two options for the user to select - 0.05 and 0.01. I would like each selection to then control the formula in the cells C63:L63, for example;
Where 0.05 selected it computes for cell C63:
=IF( COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!N55>'WORKSHEET4'!L55,"YES","NO")
then cell D63
=IF(COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!AC55>'WORKSHEET4'!AA55,"YES","NO")
and so on
Then if 0.01 selected it would compute for Cell C63
=IF(COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!N55>'WORKSHEET4'!K55,"YES","NO")
then cell D63
=IF(COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!AC55>'WORKSHEET4'!Z55,"YES","NO")
View 6 Replies
View Related
Jul 25, 2014
I am using this code to hide or unhide rows of text on another sheet:
VB:
Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String
Dim sValue As String
'Get the address of the cell that changed without '$' signs
sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB:
If Target.Value = "Not Pursuing" Then
ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False
ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
View 1 Replies
View Related
Jan 2, 2014
I have a table that looks like this (its basically a historical data of a stock exchange):
Date
Index
January 4, 2010
[Code]....
The List continues till the current Date.
I want to calculate Average Index Values of a Date of each month within a Date Range.
Example: Calculate Average Index Values for 3rd of Each month from 1st Feb 2010 to 3rd Jan 2011. Formula should calculate Average of the Index Values for 3rd Feb 2010, 3rd March 2010, 3rd April 2010, 3rd May 2010, 3rd June 2010, 3rd July 2010, 3rd Aug 2010, 3rd Sept 2010, 3rd Oct 2010, 3rd Nov 2010, 3rd Dec 2010, 3rd Jan 2011.
Both the Date and the Date Range is variable. Also, the Index Value for selected Date of one or more month may not be available as that being a holiday. In that case, the formula needs to use the last available Index Value before that Date. e.g. If Index Value for 3rd Oct 2010 is not available, system will use the Index Value of 2nd Oct 2010.
View 1 Replies
View Related
Jan 29, 2014
Adding ' in the beginning of a line converts the rest into comment line. I wonder if there is an easy way to convert a huge area into comment line to try something on code. I couldn't find such an option in the menu.
View 2 Replies
View Related
Feb 10, 2014
I'm using Excel 2010 and would like to know if it's possible to convert selected ranges in multiple sheets into one PDF file? For example, I want to select range("A1:O10) in Sheet1 and range("A1:N25") in Sheet2, then convert both Excel sheets into PDF file with two pages.
View 2 Replies
View Related
Jul 15, 2009
I have a workbook, see attached example, which has multiple columns. I want to extract the data for a certain criteria, in this example column E "product".
I then want to take all of the data in columns A to L for the chosen criteria e.g. product 1696 and place it in a new worksheet. I want to do this for every unique product. The example I have given only shows 2 products and limited rows, in reality I could have 50-60 products with hundreds of rows per product.
View 5 Replies
View Related
Nov 6, 2013
I am trying to work out how to copy all data from worksheets that begin with the name 'Sheet' and paste that information onto the next available blank cell in a workbook called 'Results'. I have found how to copy information from all worksheets to 'Results' but not from selected worksheets that begin with the name 'Sheet'.
View 6 Replies
View Related
Sep 3, 2009
I have a workbook containing a number of spreadsheets. Some of the spreadsheets are user inputs. The results of the user inputs drive a number of final reports. The final reports (i.e. spreadsheets) are hidden from the user (I don't want the user to be overwhelmed with so many tabs when they open the excel spreadsheet).
I created on the main input tab spreadsheet the following:
1. Check boxes - so that user can select after making his/her inputs the reports that he/she wants to view or print.
Say there are 4 reports (call them Sheet1, Sheet2, Sheet3, Sheet4 - therefore, 4 check boxes. Through the Format Control, the checkboxes have cell links that yield TRUE (if selected) or FALSE if not selected - linked to cells A1, A2, A3, A4 respectively.
2. Option buttons - one for view and another one for print. Through the Format Control, the View and Print option buttons have cell links to cell A5 yielding 1 for View and 2 for Print.
3. Command button - that will clear the check boxes
Issue
I would like to know if there is a way to code in VBA to:
1. Unhide the spreadsheets corresponding to the check boxes if selected;
2. Print the spreadsheets corresponding to the check boxes if selected for printing; and
3. Clear the checked boxes to unchecked if the Command button is clicked.
I'm struggling with coding to perform the above tasks.
View 9 Replies
View Related
Aug 4, 2006
How can I count the number of selected worksheets in VBA? I've been looking in the Excel object model, but with no avail. Perhaps I'm overlooking something simple.
View 2 Replies
View Related
Jan 8, 2007
I would like to do is to sort only selected sheets. Can someone give me this additional code that can be incorporated in the code below. (If I just select the sheets I want sorted and run the code below, it sorts all worksheets irrespective of whether it is active or not).
Sub SortWorksheets()
Dim N As Integer
Dim M As Integer
Dim FirstWSToSort As Integer
Dim LastWSToSort As Integer
Dim SortDescending As Boolean
SortDescending = False
If ActiveWindow.SelectedSheets.Count = 1 Then
FirstWSToSort = 1
LastWSToSort = Worksheets.Count
Else
With ActiveWindow.SelectedSheets
For N = 2 To .Count ................
View 7 Replies
View Related
May 21, 2008
I am setting up a macro where the user opens their chosen file & their chosen worksheet which gets renamed & entered into my workbook. I can get them to open a workbook but I am having problems with the user being able to choose a worksheet and copy it over.
View 4 Replies
View Related
Nov 29, 2013
I have an excel file with over 20 worksheets and each of them have around 1200 rows. The first column in each worksheet contains the variable names and then the data associated to it is present horizontally.
I only want to keep around 80 rows from those 1200 rows. They are not in sequence (means they are not in continuous order) so I manually selected those rows by deleting the non required rows step by step.
I did it manually on 2 worksheets but I don't want to do that manually over 20 worksheets. Is there any method that can speedup the whole process.
I am attaching the snapshots of the worksheets..
This one is before I deleted the unwanted rows.
This one is after the deletion of unwanted rows.
View 3 Replies
View Related
Jun 25, 2014
To this point I have been able to successfully write code that will save a constant set of worksheets as a pdf. However, I would now like to alter it to be able to dynamically select the desired worksheets from a list box (I have been able to populate my list box) and then save as a pdf. The last step is where I am have issues. This is what I have thus far..
Dim relativePath As String
Dim Selected As Long
For Selected = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(Selected) = True Then
Sheets("Summary").Range("Q65536").End(xlUp)(2, 1) = ListBox1.List(Selected)
ListBox1.Selected(Selected) = False
[Code] ..........
View 6 Replies
View Related
May 29, 2014
Error Check Marco.xlsm
see attached example. I am trying to write an error detection routine that iterates through worksheets that have numeric values for names (ignore text names or alphanumeric). Macro checks range on each numeric worksheet E3:E33 and is supposed to report back on the SummarySheet if any value other than 1 or 0 is found in range E3:E33 on any numeric-name worksheet. Code as follows:
[Code] ....
Problem is that it just reports EVERY worksheet as having an error when clearly most don't (none do I think in the attached example).
Try changing some of ranges E3:E33 to values other than 1 or 0, it still reports all sheets. Why the macro does not evaluate the range E3:E33 properly and just reports every worksheet as having an error?
View 8 Replies
View Related
Jul 4, 2006
I need to convert worksbooks to worksheets. I need only the first sheet in every worksbook (the active sheet). I use the code bellow but it doesn't works. I got an error message that the paste can't works.
Sub WBtoWS()
Dim wb As Workbook
Dim ws As Worksheet
Dim file As Object
Dim folder1 As Object
Dim Files As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
sPath = "e:project part 2eran in his format"
Set folder1 = oFSO.GetFolder(sPath)
FileIndex = 0
For Each file In folder1.Files
FileIndex = FileIndex + 1
Workbooks.Open Filename:=file.Path
Cells.Copy
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets.Add
ActiveSheet.Name = "Subject#" & FileIndex
Cells(1, 1).Select
ActiveSheet.Paste
Next
End Sub
View 4 Replies
View Related
Jun 22, 2014
I have a workbook with over 70 tabs whose position shouldn't be changed. Some of these tabs are colored in yellow (sorting by tab color is not allowed). I need to select these yellow tabs first and loop through them (only yellow tabs) and hide empty rows in the range of A1: G 50 on each of them. Grouping sheets wwon't work because each tab has different last row with data within that range.
View 6 Replies
View Related
Jan 25, 2010
Can you please help me enhancing the macro that you created for consolidating multiple workbooks into one. The macro creates worksheets based on the server names, can we create individual csv files as well for individual worksheets of the consolidated workbook?
View 9 Replies
View Related
Jun 7, 2009
I have a workbook that consists of a number of worksheets, and a selection of these are updated regularly. Once updated the sheets are PDF'd using Acrobat 8 Standard to create a report, ready for mailing. To speed things I want to do this via a button click rather than going through the Acrobat interface and selecting the sheets to generate the document.
I have, as suggested here, recorded the action to create the report via Acrobat Distiller, including selecting the appropriate sheets. When I run the code, distiller treats the selected worksheets as separate files and subsequently tries to save them separately, ie 4 selected files - save prompt comes up 4 times.
a way to allow me to treat the selected sheets as one and therefore create one pdf consisting of all of the selected sheets.
my use of macros is usually limited to what I record.
Sub Print_PDF()
'
' Print_PDF Macro
' Macro recorded 06/06/2009 by MJ Cosker
''
Sheets( Array("Sheet1", "Sheet2")).Select
Sheets("Sheet1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne05:", Collate:=True
Sheets("Sheet1").Select
End Sub
View 3 Replies
View Related
Nov 3, 2006
I would like to save a Sheet as a PDF, however I do not have access to install a PDF-printer service (like PDF995 etc) on all the PCs at work. I've been Google-ing for the past week, and there are a lot of options out there, however all the options I have found fall into 3 categories;
- Prohibitively epensive
- Install a Printer
- Convert text only
I need something that mimics the output of Distiller (which I have at home) as either an excel addin or a stand-alone program which I can run via Shell. (I should be able to cope with the VBA for this : D) I don't need charts etc printed, however I do need a simple graphic (logo) to be included.
View 2 Replies
View Related
May 3, 2007
1. I need your help in converting all the worksheets in a workbook to CSV format. Is it possible to do that with a macro?
2. I have 20 workbooks, each with 12 worksheets. I need to combine the data in all the workbooks to create a database. As I will not be
able to do that in Excel (due to the row limit), I am thinking of using MS Access.
Therefore I am planning to convert these excel files into CSV files and then use the CSV files to create an MS Access database.
View 9 Replies
View Related
