When I move the range rDes, another range rOrig with the same address gets changed. How can I prevent this?
Code:
Sub Macro1()
Dim rSrc As Range
Dim rDes As Range
Dim rOrig As Range
Set rOrig = Selection
[Code] ........
I have a table that looks like this:
| A | B | C | D | ...
1 | fu | bar | lab |...
2 | rab| uf | luv |...
3 |...
All of my values are within the Range "A1:C2"
I would like to have a variant array which contains the addresses of this range.
Things I tried that didn't work:
If my variant is V and my range is R,
v = r returns an array which contains
fu|bar|lab
rab|uf |luv
V = R.Address gives me
A1:C2|A1:C2|A1:C2
A1:C2|A1:C2|A1:C2
What I actually want:
A1|B1|C1
A2|B2|C2
i know this can easily be done with a loop, but the table I want to use this on is huge, and a loop takes hours to execute.
I'm trying to draft together a simple VBA script or even =HYPERLINK string to utilize a range of cells in Excel for the To: field in an Outlook email.
I have 7 columns each with categorized for different individuals in different departments.
Instead of dealing with contact groups, I have created a spreadsheet that breaks down the departments and supplies the email address for everyone in the department.
So, what I want to do is make a link or button for each group that when it is clicked on will open a new email via outlook with all of the addresses in the appropriate range in the To: field.
Example:
Cell: A1 is the heading
Cell: A2 is the link/button you would click on
Range: A3:A255 would contain the addresses.
One other thing, I'm not positive if this is an issue or not...The script might need to add the customary semicolon and space after each address added to the To: field...As needed when using multiple addresses in Outlook.
Website has a URL where the last element is a number within a range (e.g. 1000 - 4000).
But the numbers are not sequential (e.g there are 100 pages, first URL ends "1001", last one ends "6000".
As shown below I set the code to cycle through every possible number:
VB:
For i = 1001 To 6000
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://(whatever)" & i _
, Destination:="(Whichever cell the output starts in)"
Not the most constructive use of the national grid.
Is there a VBA that can check whether the URL "number" is genuine before doing anything else - and move straight to the next "i" if it doesn't exist?
Is there an easy way to identify range or cell addresses in a formula. I want to find the alphanumeric part of the address.
For example in the SUM Formula =Sum(A4:A230), I wish to separate out A4:A230 part. Or at least I want to remove the number part in the address and just want to get Sum(A:A).
Is there a function that can do this? I don't want to do this using usual string/text operations as it becomes a laborious process and has to consider all possible cases of range addresses.
I have a list of email addresses in the range K10:K33, (one address per row).
How can I use that range as the 'To' field of an email address, putting a ';' between each name?
This is what I am using at the moment but I want to amend it to do the above;
Code:
Sub Mail_Selection_Range_Outlook_Body1()
Dim rng As Range
Dim OutApp As Object
[Code]....
How do I protect a select range of cells from being changed? There may be some formulas in certain cells, which produce data based on other worksheet cells. These cells are not for user data input, but for data output only. I don't want end users to acidently delete the formulas in cetain range of cells, by entering a value in the cell, which then will write over the formula.
View 5 Replies View RelatedI've managed to piece together a VBA code that works perfectly for my needs. The problem is that the sheet it is on gets adjusted a lot, and I only need the code to run when certain cells are changed (rather than each time any cell is changed).
Here is the code I have now:
[Code] .....
Put simply, I need this code to run only when a cell in Range "TValueDeal" is changed. Is making this adjustment as simple as adding a couple lines of code, or is there a better way to write the entire thing?
I am trying to have one cell (G5) populate with a timestamp when a change is made to any cells in a range (some are merged). The code below worked for a second, until it didn't.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F8:G33")) Is Nothing Then Exit Sub
Range("G5").Value = Now()
End Sub
*Getting a yellow arrow by the row starting with Range("G5")
Is there a way to cause a particular VB function I write to execute any time a value in a particular range of cells is changed?
I thought I had it when I thought I could do a sum formula, range on the cells to be checked, then call the function as a side effect of this sum. It was then that I realized I didn't know how to call VB from within an Excel cell formula.
1. Is there a way to call VB (say, sheet1.myFunction())?
2. Is there a better way to do what I want than to try to hack a side effect into a formula in a cell that depends on a sum (which "watches" for the changes for me.)
The cells would have text in them, not numbers, so using the sum-based formula would be iffy at runtime to me at best. What I really want to do is run a function on the cell value as a string. There are a lot of such cells (thousands) so ideally I would only need one external cell to activate the function (which scans all the cells I am concerned with) rather than have to paste a custom, relative formula into thousands of cells manually to have each one watch one cell, if you know what I mean.
Is it possible to always print out a specific pivot table even if changes/selection and range have changed? What I have right now is a button that prints out the pivot table (assuming the range is not changing). But if a user changes selection the button prints only a part of the pivot table.
View 3 Replies View RelatedI am very new to vba and trying to figure out an auto save macro that will automatically save my workbook when a certian cell range is changed. Right now I have a macro set that automactially record the time and date of when a change is made to the name cell, I want to set up a macro that will automatically save the file when the time is updated.
This program is used by several users and they have a tendnecy to forget to save the program so that when other people want to check the updated data nothing has changed because the changes have not been saved. I have attached the file that I am working on. When a change is made in column F then Column G automatically updates, now I want column G to trigger autosave. I would also like a msgbox to appear to tell user that file has been saved.
I am using Excel 2010. I have been given a task at work that can save my team a lot of time if I can solve the problem. Every month, we have a spreadsheet with about 5000 rows that we have to email. In each row, there is a range that we have to email to a specific email. For example, I would have to copy and paste Range A2-R2 in the body of the email, and then email it to whatever email is in cell S2. I would then continue this for the next 5000 lines, making it a possibility that i will be sending 5000 emails manually.
I have been trying to come up with a solution through VBA that would automatically send these emails. My goal is to automatically send the Range A2-R2 to outlook email, then cell S2 into the "To" email address box, and then automatically send it. So far, i have successfully been able to send one row, but cannot figure out how to loop it for the remainder of the rows.
A couple other key points are that I have column headings as well (Range A1-R1). If possible, I want to be able to include the column headings in the email body as well. Example - first email would be range A1-R2. second email would be range A1-R1 and A3-R3, and so forth. The body of the email would also contain a standard script, such as "Please review the information below."
The goal here is to save everyone from having to send 5000+ manual emails. This would be a big boost for my team.
Code:
Sub Email()
Dim rng As Range
Dim OutApp As Object
[Code].....
I have a few hundred addresses in excel in the following format
NameAddress1Address2Address3AreaCityPin
Is it possible for me to change that into
Namee
Address1
Address2
Address3
Area
City-Pin
I have an excel sheet that has a lot of APN (parcel numbers) on it. I would like to run that through the assessors page [URL] to get the address and owners name. It seems like a very simple thing to do, but... How would I make it run each parcel through the assessors page to get the name and address information.
View 1 Replies View RelatedI have a list of addresses (including street numbers and names), but want to select out addresses that match another list of street names only. I have only used vlookup before, but because one list included street numbers as well, I can't find exact matches.
I am using excell 2007.
I have a form in which a user selects a Suburb, a State and a Post Code (each from a Data Validation List)
Suburb /Town StatePost Code
The 15,000 Suburbs with their associated Post Code and State are correctly sorted on a seperate worksheet in their 3 columns.
The Objective: To determine if the User has correctly chosen the correct matching Suburb, State and Postcode from the 3 Lists.
Problem: I know it is possible to concentate the 3 together and have one List but I do not want to do this I want to meet the objective.
When using VLOOKUP, because their are many Suburbs with the same name and different Postode.... or Same Postcode with different Suburbs etc I am finding it difficult to get an exact match because the VLOOKUP selects the first correct value it finds.
Question: Is it possible to write an IF statement with VLOOKUP to get an exact match across the 3 fields?
I'm working with a pre-existing list of vendors and currently the addresses for each are in one column. I would like to separate by city, state, zip. I was thinking of text to columns but since the addresses are not all aligned that won't work.
View 9 Replies View RelatedAny quick way to sort this list of IP addresses?
10.198.16.206
10.198.16.220
10.198.16.248
10.216.100.21
10.216.101.22
10.216.102.21
10.216.103.24
10.216.104.23
10.216.105.22
10.216.105.32
10.216.106.21
10.216.106.31
10.216.107.27
10.216.108.27
10.216.109.23
10.216.11.101
10.216.110.27
10.216.111.21
10.216.111.24
10.216.112.29
10.216.113.49
10.216.113.52
10.216.117.20
10.216.11.101 comes after 10.216.109.23 when Excel sorts the data. I understand the problem is that these are not numbers, they are text.
I have 2 issues i am trying to work through, i have a spreadsheet with 3 data sheet tabs, the first issue i have is in Data sheet 1 I have a lot of duplicate addresses, I was wondering if there is a way to filter out the duplicate addresses so that only one of each address is showing.
Issue 2 that i have is a lot more complicated, In data sheet 1 i have a list of medical providers that reimburst at 110% or more, each address on that list needs to get 1 letter mailed to them, but i have to keep track of how many are going to each region, i.e. Columbus, OH region, Cincinnati, OH Region, Toledo, OH Region, and Cleveland, OH region. So what i want to do is create a 3rd data sheet that keeps track of total letters sent by region, but was wondering if it was possible for this info to be automatically transfered from data sheet 1 to data sheet 3. I don't need all the information in data sheet 1 to tranfer to data sheet 3. All i need is for data sheet 3 to read off the City field in data sheet 1, and calculate 1 letter sent to that region.
I dont even know if this is possible, but it is way beyond my realm of excel knowledge which isn't much.
Any help would be appreciated. I am trying to attach the spreadsheet, however it isn't allowing me to attach it, i keep getting a database error, when i upload it. It is under the max size limit too. Not sure what's going on.
I have two columns of from and to addresses in excel.These are complete addresses with apartment name and pincodes. how can I obtain the distance in km between the two addresses (Both are in the same city) I have used the code in the following [URL].However it seems to give me 0.
View 10 Replies View RelatedImagine i have 2 columns: Open and Close, both of these got numbers like
1 ---- 2
3 ---- 1
4 ---- 10
and so on. I had to make a function which checks if some number is in between any of those Open and Close numbers and count how many, for example: im searching for number 1.3, so according to previously drawn table i would get answer of 2, because 2 is in between 1----2 and 3-----1, i achieved this by a simple function:
=IF(OR(AND(Bendras!$J$1>=Table1[[#This Row],[Open]],(Table1[[#This Row],[Close]]>=Bendras!$J$1)),AND((Bendras!$J$1<=Table1[[#This Row],[Open]]),(Table1[[#This Row],[Close]]<=Bendras!$J$1))),TRUE,FALSE)
this generated an additional column with TRUE and FALSE values which i counted with:
=COUNTIF(Table1[T/F],TRUE)
and got the answer.
so now then preparations are ready i need to make a function which would for example if the number i was searching was in 10th and 45th rows find the MAX/MIN values of Close column between those rows(hope i made my self clear)
this is how i was hoping to do that : first of all make a new array of all cell addresses from "Close" column which were "TRUE" from the first function i wrote and when do w/e i like with those cell addresses in other functions.
Sheet1, Column3 is filled with property addresses, if available (some are blank). I need two columns on Sheet2, Column3 needs to be the street number and Column4 needs to be the street name.
Because it is not 'fixed length', I can't use 'RIGHT' or 'LEFT'
I have attached a sample file. There is other data/information on the sheet, but I can process the rest without help. I will be moving:
Sheet1, Column1 to Sheet2, Column2
Sheet1, Column2 to Sheet2, Column1
Sheet1, Column3 to...as described above...
In the address list, some addresses have individual names, some have all Smith or Jones, and some have Smith, Jones, Garcia.
(See attached file)
How can I mark them as "individual", "Family", Household"?
I have to separate reports. The first report lists the address in 5 columns (house #, Street, City, State, Zip), and the second lists it all in one column. Right now I have to manually check the second report against the first report to see if any of the addresses match. I do this daily, and it's rather time comsuming.
View 4 Replies View RelatedI am trying to do is summing a range based on a text value that corresponds to a cell address. I have a adddress cell value in say a1 = A$1$ and in a3 = A$10$. If I do a sum function where I want to use these cell values i.e. I use this formula but it does not seem to work, any insights?
SUM(Text(a1;"Text"):Text(a2;"Text"))
I'm trying to write a Macro that searches all non-blank worksheets of multiple workbooks in a folder for any IP addresses contained within then returns them all to one master spreadsheet.
I've already come up with the code to open each workbook from the master. What I really need is some direction for how to go into each non-blank worksheet and search each one, placing all IPs that are found into a single column in their respective worksheets, say column D for example.
Since I'm not looking for a specific value I assume I'll need some wild card like *.*.*.*
I have a list of email addresses with the periods stripped before the .com, .net, etc.
How to insert the period to go from example@mailcom to example@mail.com? Obviously the email addresses are of different lengths, but it's always 3 characters after the inserted period.
I have tons of addresses that I need to separate into different columns. It should be easily done by using Text to Column but the format is different so it didn't work.
1198 W 1520 N
CLINTON, UT 84015-5301
1198 W 1520 N
CLINTON
UT
84015-5301
798 HOMESTEAD AVE
HOLYOKE, MA 01040
798 HOMESTEAD AVE
HOLYOKE
MA
01040
16765 KENUIL CT
BRIGHTON, CO 80603-8481
16765 KENUIL CT
BRIGHTON
CO
80603-8481
The addresses are copied from a website so it is formatted as 2 lines. Tried to copy and paste (values only) to another sheet and the format was like this:
1198 W 1520 NCLINTON, UT 84015-5301
No space between "N" and "CLINTON".
This time I have exported messages from Outlook to Excel in an attempt to extract email addresses that are held within the body of the email. An example ofthe email body is this:
This is the qmail-send program at lon5.mailcustodian.co.uk.
I'm afraid I wasn't able to deliver your message to the following addresses.
This is a permanent error; I've given up.
:
212.
All of this is held in one cell with line breaks as shown above. Is there a way of getting Excel to recognise an email address and plonk it in the cell nextdoor? Something like 'find the @ symbol and extract before and after until a space is reached'?
There are a lot of different styles of email body, therefore find and replace would be a very time consuming excersise.