Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










Carriage Return In VBA


I need to include over 70 data fields in a pivot table that I want to add/remove with a pivot. They need to have an alternative caption and be formatted.
I am currently using the following piece of

With ActiveSheet.PivotTables("PivotTable1").PivotFields("tytwprods_v_lytwprods_(abs)")
.Orientation = xlDataField
.NumberFormat = "#,##0"
.Function = xlSum
.Caption = "Products 2007-08"

However, I need to do this many times and it is a bit painful. I have created a spreadsheet with concatenated fields to create the above, although on one line which isn't liked by VB.

How can I make my code work but with it all on one line like:

With ActiveSheet.PivotTables("PivotTable1").PivotFields("tytwprods_v_lytwprods_(abs)").Orientation = xlDataField .NumberFormat = "#,##0" .Function = xlSum .Caption = "Products 2007-08"


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
VBA To Insert Carriage Return After Certain Characters
Is there any way to insert a carriage return after each instance of a character? I have a section of data that requires a carriage return after each instance of -v eg:

View Replies!   View Related
Carriage Return - Chr(10)
not compatible with older versions of Excel? When I try and open my workbook on an older version (2000 and below) I get a runtime error and it highlights this. What's weird is that even when I open the it at home I get this and I have 2003 at home.

View Replies!   View Related
Find Replace With A Carriage Return Using VB
Selection.Replace What:="GD", Replacement:="BLACK", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="WD", Replacement:="WHITE", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:= _
False, ReplaceFormat:=False
GD and WD are in the same cell, I would like the end result to go from GD WD to:

BLACK
WHITE


View Replies!   View Related
Concatenate To Include Carriage Return
Name Address City State Number etc. I would like to concatenate these and include carriage returns so that the result looks like this:

Name
Address
City
State
Number

I'm currently using the following #

View Replies!   View Related
Carriage Return In A CONCATENATE Function
I try to concatenate some 5 text strings and I would like to have a carriage return after each text string (ALT ENTER). How can I achieve this using =CONCATENATE(......;......;......;......;......)?

View Replies!   View Related
Deleting Text After Carriage Return
A cell contains the name, tel number and address of a user. Those 3 fields are separated by a carriage return (alt+enter) in the cell. I need a macro to keep only the name, which is on the first line of the cell. The macro should be generic and should work for any particular name.

John Smith
96783456
Hollywood Street

View Replies!   View Related
Combining Cells Into One, But Seperated By Carriage Return
I have rows of data in one column. I want to combine them all into one cell and have each row on a new line.

I've tried =A1 & char(10) & A2, (and a bunch of other char(#s) for carriage return) but it just shows an open box in place of the char().


View Replies!   View Related
Concatenate With Carriage Return- How To Remove Blanks?
I'm currently using the following code to concatenate several cells into one cell, but it also displays the cells that contain blanks.

View Replies!   View Related
Coding The Difference Between A Manual Carriage Return And VbCR
I'm trying to use the 'speaking cells' utility. Unfortunately, it seems to require a manual carriage return - I have tried offsetting and I have tried this (below), but to no avail:

Sub speak()
Range("A1") = "YES"
ActiveCell = vbCr
End Sub

View Replies!   View Related
Macro - Add Carriage Return To End Of Text In Cell
I am looking for some assistance in creating a macro that would allow me with one key stroke to enter a cell in edit mode, add a carriage return to the end of text in the cell, then move the cursor to the next cell.

View Replies!   View Related
Replace Line Feed With Carriage Return In Text File
If I write a multi-line text in a cell (then go down with alt+enter) and after copy the cell pasting on Notepad, it display before inverted commas and after textual content.

Instead, if I select directly the content from the formula bar, it isn't happen.

Do exist a way for copy and paste directly from the cell without select from the formula bar?

Maybe with a macro?

View Replies!   View Related
How Do I Get Rid Of Carriage Returns?
When I save my file as text and upload into a program, I get a response saying that my file can't be processed due to carriage returns. What are these things and how do I get rid of them? My excel file has about 6000 rows and 50 columns of data.

View Replies!   View Related
How To Force Carriage Returns
I am concatenating data which will be displayed in a text box.
Is there any way to force a carriage return within the formula ?

View Replies!   View Related
Remove Trailing Carriage Returns
I have an SQL query that returns some text data to a cell from another system.
In this system the users sometimes enter superfluous carriage returns after the text.

Can someone tell me how to write a formula/VBA code that would remove the trailing carriage return/s.


View Replies!   View Related
Extract Data Between Carriage Returns
I have a cell that contains several carriage returns. How do I extract data from between 2 carriage returns?

View Replies!   View Related
Search On Carriage Returns/characters
I have done a search on carriage returns/characters and what has been suggested is not working. I have BOTH carriage returns in the cell and also the boxes (that I assume are also carriage returns. I tried the substitute formula (=substitute(cellref,char(10),)) in excel but it only removes the alt+enter carriage return. I tried the various suggestions of find & replace but the chr$..etc did not work! Is there a formula to clear both in one (not a macro!)..?

View Replies!   View Related
Combine Text With Carriage Returns
I have 4 cells with text in them that I am trying to combine into one cell and not have any blank lines between the text. The cells are arranged like this:

A1="One"B1=Cell where the text is combined
A2="Two"
A3="Three"
A4="Four"

I set the cell alignment in B1 to wrap text and use the following formula in B1:
=IF(A1=””,””,A1)&IF(A2=””,””,CHAR(10)&A2)&IF(A3=””,””,CHAR(10)&A3)&IF(A4=””,””,CHAR(10)&A4)

The problem is if there isn’t anything in one of the cells in column A it makes a blank line between the text in column B. I am trying to get the text to the top of B1 and not have any blank lines between the lines of text. Is there a way to change the formula so that it will do the following three things:

1. If the cell A1 doesn’t have anything in it then don’t put the value in B1.
2. If A1 has something in it and A2 has something in it then put the text of A1 in B1 and HAVE a carriage return after the A1 text.
3. If A1 has something in it and A2 does not have anything in it then put the text of A1 in B1 but DO NOT have a carriage return after it.

View Replies!   View Related
Macro To Remove Carriage Returns From Worksheet
I need a macro that runs through the cells on a sheet and removes all carriage returns. The carriage returns appear as small squares amongst the text (they come from a CSV file).

View Replies!   View Related
How To Remove Square Carriage Returns From My Cells
I have a worksheet containing square carriage return symbols (see below).

EXAMPLES
Eg1. Baked[]Beans on []Toast
Eg2. Smoked[][]Salmon in Brine
Eg3. Ice[][][] Cream [][]Cosmopolitan
Eg4. Mixed[]Nuts[][]per kilo[][][][]
Eg5. [][]Baby Shampoo[]Fragrance Free

This data was extracted from an SQL Database and dumped into Excel.

I would like to know if someone can suggest a script to replace all occurrences of [] with a space.

Once I perform this, I can then perform a Search/Replace function as follows:

Replace 4 spaces with 1 Space
Replace 3 spaces with 1 Space
Replace 2 spaces with 1 Space

Hopefully then, the final result will appear as follows:

Eg1. Baked Beans on Toast
Eg2. Smoked Salmon in Brine
Eg3. Ice Cream Cosmopolitan
Eg4. Mixed Nuts per kilo
Eg5. Baby Shampoo Fragrance Free

Eg5. is a little tricky because a space will appear at the beginning of the cell (see above). It would be good if there's a script to remove occurrences of this also.

View Replies!   View Related
Replace Double Carriage (returns) With Single
Is it possible to replace double returns with single?

View Replies!   View Related
Replacing Carriage Returns With Delimiter Within A Cell
I need some direction on how to proceed with dismantling an address cell. I have a workbook that one field is an address label field. What I mean is the entire address is entered in one field just as it would appear on an envelope. I need some suggestions on how to break this apart and create individual fields for the individual parts.

View Replies!   View Related
Always Return 1st Of The Month In VBA
From the code below I need to translate whatever date is input to the First day of the month to pass into my VBA via the variable "SMth"

e.g. entered 12-03-09, returned 01-03-09

SMth = InputBox("Enter date of FIRST month ", "Format like 01-01-07", "01-01-07")
SMth = "=DATE(YEAR(SMth),MONTH(SMth),1)"
Cells(3, 8).Value = SMth
The line

SMth = "=DATE(YEAR(SMth),MONTH(SMth),1)"
is giving me an error, what should that line of code be?
OR perhaps you have another solution to reach the same goal


View Replies!   View Related
Return VBA Created Range
I am trying to create a function in VBA that will return a range, but I don't want the range to point to cells on a spreadsheet. I want the range to return a vba created range. Is this possible or impossible? Is a variable of type range required to point to cells on a spreadsheet?


View Replies!   View Related
Obtain/Return FilePath/Name In VBA
Does anyone know the code for obtaining the filepath of the current workbook? Tried a search and can't find anything on this.

View Replies!   View Related
Return Version With VBA Code
Is there a way to find out which version of excel somebody is using within VBA?

View Replies!   View Related
How To Return Value From VBA User Defined Funtion
how to return value from VBA User Defined Funtion

View Replies!   View Related
Vba Vlookup And Return Row Number
I am trying to create a macro and I need it to return the row # based on a vlookup of a date and not 100% sure how to do that.. Hoping to get a little assistance.

I am looking up a date in column A, and need it to return the row #, then I can do the rest of the macro I need. The date I need to look up varies, and is based on the following function I have in a cell elsewhere, but if there is an easier way in vba to write i'm open:

=IF(WEEKDAY(TODAY())=2,TODAY()-3,TODAY()-1)
which basically says if it's monday lookup the date from 3 days ago (friday), otherwise look up yesterday's date. So today it returns 6/8/09 and I need to find the row that has 6/8/09 as the value in column A.

Now the dates in column a, are all formulas that say previous row's date + 1, so the only row that has the actual date in it is the very first one, then we just add a day. Not sure if that matters, but figured I'd give all info.

View Replies!   View Related
Vba Return Name Of Range Selected Cell
I have 12 named ranges on a sheet, ArrM1 thru ArrM12.
Each named range is same size, 6 Rows by 7 columns.

Q. If user selects a cell on sheet that is in one of these ranges, what is code to return name of range?
e.g. ArrM1 is cells c10:i15, user selects cell d12; I would like vba to return the name of the range "ArrM1".

Reason, I have the code below so if user selects cell in ArrM1 code is executed, but rather than reproduce code 12 times for each range I thought I could first see where user selects and then change variable for vrange,
Set vrange = wksYearlyCalendar.Range("ArrM1") to
Set vrange = wksYearlyCalendar.Range("ArrM" & x)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CalDaySel As String, CalDateSel As String
Dim vrange As Range
Dim cell As Range

View Replies!   View Related
Format Second(Now) In Vba 2 Return Seconds In Tenths *
How do you format


Second(Now)

to display tenths, hundredths, or thousands of a second? Must be in code since it will never be applied to a cell.

View Replies!   View Related
VBA: Vlookup And Return Cell Reference
i am trying to write some code to analyse a weightlifting movement that occurs 3 times. In particular there is a part of the macro where the user will input the start and end time of the movement using input boxes (to only select relevant data).

I want to then use a vlookup function to search for the start and end times in a range (1 column) in the time range and return the cell reference of these so i can select only these values and either create a graph or do more analysis. My code for this particular part so far looks like:

View Replies!   View Related
Loop Through VBA Forms And Return Names
is there a way of looping through all forms that are in a VBA window and return their names and the controls within them?

View Replies!   View Related
VBA Keyword Search To Return Row Numbers
i'm writing a few VB subs to help manage a database of mishaps, solutions and lessons learned, there are 11 columns and each databade entry has a separate row, there are approximately 1,000 rows.

Columns are:
ID- a unique iderntifier for each entry- integer
Date- date the entry was made- date
Project Number- a reference to an internal project file- string
Operator- company we were working for- string
Installation- where the work took place- string
Category- type of problem encountered- string
Application- field of problem encountered- string
Issue- string
Background- string
Problems- string
Lessons Learned- string...........


View Replies!   View Related
Formula/VBA To Return Multiple Values In Different Cells
I am trying to find a way to use information in one cell in order to look up corresponding multiple values on another sheet. The problem that I am running into is that VLOOKUP only returns the first value. I need the values to be calculated in different cells going vertically, not all combined in the same cell as was in an earlier post. I am not looking to sum anything so a pivot table also doesnt work.

Sample data:
A / B / C / D
Identifier / Pub ID / Invoice # / Job #
ABCD1234 / ABCD / 1234 / A41254
ABCD1234 / ABCD / 1234 / B41254
ABCD1234 / ABCD / 1234 / C41254
DCBA4321 / DCBA / 4321 / A56789

etc.

I am looking for it to do this:
A / B
Identifier / Job #
ABCD1234 / A41254
/ B41254
ETC.

I want to enter ABCD1234 into another worksheet and have it return all of the job #'s, but I have a lot of these so I don't want to have to look up how many job numbers there are associated with it and have to enter different formulas into multiple cells. Filtering also isn't an option as there are simply too many cells to calculate.

View Replies!   View Related
VBA Macro To Return Maximum Value In Text Form..
I am a novice to VBA in excel, i have a table of more then 5000 rows. I would like to find a maximum value from each row and return the column title as "GL_Weld" or "Bend" or "Header" into another worksheet cell. i.e First Row max value = 0.011510 should return "Bend" into another worksheet

GL_WeldBendHeader
0.0001700.0115100.000500
0.0000000.0007800.000000
0.0002400.0110700.000480
0.0000000.0006600.000000
0.0000000.0037700.000000
0.0000000.0000100.000000
0.0002800.0108700.000480
0.0000000.0007100.000000
0.0002000.0112900.000490
0.0000000.0008400.000000
000.00002
00.000310.00001
000.00004
00.00030.00002
000.00001
00.000270.00003
000.00002
00.000260.00004

View Replies!   View Related
Search Partial String, Return Value In Next Column, Vba
I would like to search cells in column D for the partial string, "PIPE," (A full string may look like this: 'PIPE, 24"ODx0.375"WT API-5LX-65,ERW OR SMLS'). Then, if it's there, return the value "LF" in the corresponding cell in column C. If that string isn't found, then I'd like it to return "EA".

I know this seems pretty easy, but there's a small problem. The word "BENT PIPE," could be in Column D, in which case, I would want it to return "EA" instead of "LF".

View Replies!   View Related
Using VBA To Return CurrentPage List In Pivot Table
I am trying to write code so I can control the PivotFields on a PivotTable from another sheet in the book. I cannot figure out how to get Excel to return a list of the fields in each page field. If I record code to change the Animal PivotField to show dogs, i get the following:

ActiveSheet.PivotTables("PivotTable1").PivotFields("Animal").CurrentPage = _"dogs"

I can also choose cat, birds, and beavers, but I do not know how to get excel to return a list of the option in the PivotField.

View Replies!   View Related
How To Use VBA To Search Strings And Return Values Or Cells Nearby
Im needing to search through the attached document which is truck logs at a mine and use vba to search through the list for each of the different shovels eg SHVL1, SHVL2 & SHVL3, and when the code finds that string, to display the tonnage 2 colums back from it. Im about half way there a i think but am having trouble with strings, if it was numbers i could do it no problem

View Replies!   View Related
VBA Code To Return Multiple Found Range Objects
I read and used the Find_Range custom function provided by Aaron Blood. It's a great function, for which I have many uses, but, as I currently have it set up in conjunction with a userform, it doesn't work fully until I use it twice in a row. The first time it's used to return more than one row, it seems to stop short and only display a few of the appropriate rows. Not until it's used twice in a row does it display all the rows containing that product. What do I need to do to have it work fully each time?

I have a large worksheet from which I want to extract only the rows which contain a certain product, selected by a combobox, and paste the rows on another worksheet. I have a userform set up with an oversized listbox which displays the contents of the data worksheet. Below that I have a 'products' combobox, and a button to initiate the Find_Range. Another oversized listbox displays the results.

Here's the function contained in a module:

Function Find_Range(Find_Item As Variant, _
Search_Range As Range, _
Optional LookIn As XlFindLookIn = xlValues, _
Optional LookAt As XlLookAt = xlPart, _
Optional MatchCase As Boolean = False) As Range
Dim c As Range, FirstAddress As String
With Search_Range
Set c = . Find( _
What:=Find_Item, _
LookIn:=LookIn, _
LookAt:=LookAt, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=MatchCase, _
SearchFormat:=False) 'Delete this term for XL2000 and earlier
If Not c Is Nothing Then
Set Find_Range = c
FirstAddress = c.Address................................

View Replies!   View Related
Maro, Insert Rows Where Rows Determined By Number Of Carriage Returns
The best way to explain my problem is to look at the table below:

How it looks now: ApplePrice 1
Price 2
Price 3FruitDeliciousPearStore 1
Store 2FruitVery DeliciousHow I want it to look:ApplePrice 1FruitDeliciousApplePrice 2FruitDeliciousApplePrice 3FruitDeliciousPearStore 1FruitVery DeliciousPearStore 2FruitVery Delicious

View Replies!   View Related
VBA Code To Go Through Column Cells & Return Value Based On Cell Value
I have been stuck for about a week on trying to create a Case Select macro. I am a novice in using VBA, so I am not sure what I am doing right OR wrong. What I need the macro to do is go through all of the text in a column and if the text is one of the 50 states, I need it to return one specific value, and if it is anything other than one of the 50 states, it needs to return a different value in a column 5 over from the column with the states in it. I have changed the code MANY times and so far I haven't been able to get anything to work. Here's the gist of what I have been trying:

Sub usstates()
Dim R As Range, s As String
Set R = Sheets(1).Range("J1:J50000")
For i = 5 To R.Rows.Count
X = UCase(R.Cells(10, 1))
If X = "AL" Or X = "AZ" Or X = "AK" Or X = "AR" Or X = "CA" Then
R.Cells(i, 2) = "SC"
End If
Next i
End Sub.................

View Replies!   View Related
Running Multiple In VBA Instances: Controlling Spread Sheet Always Waits For The Code To Return Before It Continues
i have a spread sheet which has a very complex simulaton in it. excel is not the ideal place for it, but it is not possible to port it wholesale to something more sensible. i have modified the code so that it is possible to run two copies of the spread sheet (in two seperate excel processes) at one time. Due to the dual core nature of the machine this has almost no overhead.

I have created a controlling spread sheet that is cabable of launching multiple copies of the simulation and starting the code executing. the problem is the controlling spread sheet always waits for the code to return before it continues, hence it would open two seperate versions of excel, start the first simulation executing and then wait until it completes before starting the next one. is there any way of starting a function in another work book without waiting for the execution to complete?

View Replies!   View Related
Return Top N List & Return Corresponding Data For N
I am trying to find the largest value, second largest, and third largest value for a column of numbers then return a content value for the adjacent column that contains the name for which each. The problem I am running into is when the second highest has the same value as the highest and also when the third value is zero (n=meaning there are only non-zero numbers for the column). I am using these formulas currently whic work when the numbers are not the same and I have atleast 3 non-zero numbers but I need to modify in order to account for the problem stated above...

View Replies!   View Related
Formula: If Value Return Is = To Value Of Cell Above Then Find Return Next Value
Is there a way with the following formula to tell it that if value return is = to value of cell above then find return next value?

View Replies!   View Related
Pivot Table Chaos: Blank Cells Return 0, Empty Cells Return Nothing
Hi, I desperately need help with a pivot-table and can't find anyone else who's ever had this problem...I have a very large healthcare data table which for simplicity I will describe as follows. In essence the first two columns respectively are (A) location and (B) month. Let's say the third column (C) is the number of cases of the disease kidpox treated in each health centre during that month. The fourth column (D) is the total number of cases of everything treated during that month in each clinic. The fifth column (E) is the proportion of cases of this disease over all consultations for each health centre and month, and the formula in E2 is .....

View Replies!   View Related
Formula "MONTH" And The VBA "MONTH" Return Different Result
When, Cell A1 is blank

1] Formula function : =MONTH(A1)

View Replies!   View Related
How To Create VBA To Delete Previous VBA Modules
I would like to create some VBA that looks for sub's or modules and delete them.

View Replies!   View Related
Cell Address In VBA :: Reference A Range In VBA
I have a variable which contains the column number. How do I then reference a range in VBA using that column number, as opposed to the letter? I know how to convert the number into the letter, but I also know there has to be something more simpler. For instance, a form of the ADDRESS function, but in VBA?

View Replies!   View Related
VBA Code Quicker Than Just Writing Out The Calculation In VBA
Does Excel handle formulas written into the VBA code quicker than just writing out the calculation in VBA?

I have a section where I use the following formulas, sumif, countif and a combo if iserror sumproduct in the VBA code...runs rather slow at this point and was looking at a way to speed things up.


View Replies!   View Related
VBA: Seperate Vba Code From File
Is there a way to put vba code to a standard alone exe file? This way, I don't have to keep update the code on different excel files.


View Replies!   View Related
Copyright © 2005-08 www.BigResource.com, All rights reserved