Excel/Cellphone

Hi, I would like to know if it's possible to program Excel to send Text msg to Cell Phones.

Deleting Duplicate Rows

Hi, I checked out the archives for close to an hour, but I couldn't figure out how to change the codes given there to suit my needs. I have a large set of data, from about A1 to X441. In column X, there are a lot of exact duplicates, and I need to delete the rows where those duplicates are (but still leaving the first instance of the duplicate). For example: John Smith Oxford St. John Johnson Oxford St. John Johnson Rubble St. John Smith Oxford St. All of those have things in common, but I only want to delete the final row (and the whole row, not just the cell), because it

External Data from SQL Server

I have a worksheet that is importing data from SQL Server. MS Query is configured to execute a stored procedure. Sometimes when I refresh the query with new parameters I lose formatting and formulas. It is as if Excel is inserting extra columns. the cells with the formulas are moved to the right and lose their reference. In MS Query and SMSS everything looks fine, but when the data is brought into Excel it goes bonkers. I should point out that some of the data is fine, then others are not. Any suggestions on what to look for? Thanks

VBA Code to select and format range

Hi All, I want to select a range of cells and format the range of cells based on a "offset" feature... The last couple lines in my code are: ActiveCell.Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)" Where the active cell reference is a moving target depending on the amount of data in the worksheet. How do I now say - select this cell, plus other cells in this range of cells and format them with a border, and a color? I can't get the syntax right. I I record the macro, it only gives me this: range("I32:L37").Select -which is not what I

Can use VSTO to reduce the size of a file?

I have a really large spreadsheet that is saved in a sharepoint location but takes about five minutes to load. Would it make any difference if I recreate the file using VSTO? Thanks in advance

Trouble with dynamic named range

In an Excel 2010 workbook I created a dynamic named range from the Formula tab using the Define Name utility. The formula I entered is: =OFFSET(Price Groups!$AP$2,0,0,COUNTA(Price Groups!$AP:$AP)-1,1) I want the range to include all non-empty cells in the AP column starting with the second row. When I check the named range using the Name Manager it shows the formula: =OFFSET(Price Groups!$AP$2,0,0,COUNTA(Price Groups!$AP$1:$AP$65536)-1,1) I'm not sure why Excel converts my formula, but I've tried several time to change it back to my formula and each time I get the same re

Drop Down with hidden values

I need some assistance please. I have a spread sheet that I have drop down information on. When the user selects the word from the drop down list, I would like for the word to have a numerical value to it that the user does not see, but accumulates at the end of the column. Such as: Hamburger = 25 hotdog = 10 coke = 10 etc. Sub Total = 45 Any ideas? -- woodse

Worksheet Cell Reference

I have a reference to a cell in another worksheet, same workbook. When the value in the referenced cell is blank it returns a "0" value. However, I want the returned value to simply leave as a blank cell. Any advice? David

Need largest number

I have a file in Excel 2003. In 1 column I have a numeric field. In the next column I have a 2 digit apha field. In the third column I have another numeric field. For each row I need a formula in the 4th column. All columns can have duplicate numbers/characters. What I need to do is find the largest number if column 3 for the unique combination of columns 1 and 2. Example: Col A Col B Col C Col D (to be reult is shown - need formula) 12345 AA 1 5 12345 AA 1 5 12345 AA 2 5 98765 BA

Multipage, controls-collection and events (XL2003, VBA)

Dear Group, I have a Userform with a Multipage control, which is dynamically filled with textboxes and comboboxes using Controls.Add like this: Set aTextBox = aUserForm.aMultiPage.Pages(strCurrentRegister).Controls.Add("Forms.TextBox.1", "txt" & strText, True) Set aComboBox = aUserForm.aMultiPage.Pages(strCurrentRegister).Controls.Add("Forms.ComboBox.1", "txt" & strText, True) This is working fine, but what I miss is any way to assign eventhandlers. Is there any way to do this? If not, I could use existing controls, which I would create in a sufficient quantity. Here

Selecting certain Rows and Copying cells in those rows to new work

I need to look at all the rows in the current worksheet find all the ones with a 'Y' in column"A" for all the ones with 'Y' in Col "A", copy cols 'A' to 'S' to the worksheet (Next) I would really appreciate the help :) thanks Jinx123

Fill Down to Last Value

I have 2 spreadsheets (Sheet 1 and Sheet 2). Sheet 1 has one header row and sheet 2 has 2 header rows. I am using the following to count the number of rows in Sheet 1 and copy a formula to every row in Sheet 2 based on the count from Sheet 1. With Worksheets("Sheet1") lStop = .Cells(.Rows.Count, "A").End(xlUp).Row End With Worksheets("Sheet2").Range("3:" & lStop + 1).FillDown The formula is perfect except when I only have one entry in Sheet 1. In this case the formula copies the second header row in Sheet 2 instead of the formula in the 3rd row. Any ideas

another filtering question

I was assisted with the following code, which filters two pieces of data--a case manager ID (###A from column B) and a program code (MA from column C): Sheets("Office").Activate Application.ScreenUpdating = False With Sheets("Office") .Activate .Range("A1").Select .Range("B1:C1000").AutoFilter Field:=1, Criteria1:="115A" .Range("B1:C1000").AutoFilter Field:=2, Criteria1:="MA" .Range("A1:M" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells( _ xlCellTypeVisible).Copy Destination:=Worksheets("115A").Range("A3") .AutoFilterMode = False End With

Copy and paste sheets to new workbook

Hi All What i would like to do is to select 4 sheets and copy them into a new workbook. I would like the sheets to be values and to have the same page layout as the original sheets. The worksheets I'm copying are formula driven, so I have to copy and paste value those sheets first, and then move them to a new workbook, the problem is that I don't know how to undo that "copy and paste value" in my original workbook without closing the file and opening it again, which is a little annoying. The code I have so far is just from the macro recorder: Sub CPVNW() ' ' CPVNW Macro '

Recalculate a worksheet following an autofilter selection.

Hi I'm trying to work out how to recalculate a worksheet once a filter selection has been made. I think I need to use a worksheet selection change event but I do not know how to detect the filter change. Recalculating the sheet is simply: ActiveSheet.Calculate The filters are in A3:D3. The values to recalculate are SUBTOTALs in E2:H2 Kind Regards Phil

MsgBox refer to seperate worksheet

Hi - I need to set up a message box that will read a cell on another worksheet. The button for the msgbox (an where I want it to pop up) is on the Questions worsheet. The code I have is below; Sub Message() Dim txtScore As String txtScore = Worksheet("Calculations").Range("G2").Select MsgBox "Your Score is", vbInformation & txtMaturityScore, "Risk Score" End Sub

Can I 'toggle' a toolbar button

Still using v.2003, how can I make a button that I put on my toolbar have two states like the 'bold', 'italic' or 'drawing-toolbar' buttons? these buttons appear 'illuminated' or 'depressed' when switched I hope that makes sense M

Why does saving take SOOO long?

On my colleague's machine an Excel 2003 file takes 4 or 5 seconds to save On mine the same file take between 22 and 25 seconds. Why? My PC has a stonking big powerful dual-core processor (the laptop cost �1000) I have many gigs of free-space My disk is thoroughly defragged My colleague has a very run of the mill business laptop For other things my PC is faster or the same as his What can I do, because this is becoming frustrating. Thanks M

Using counter "i" in for loop gives error

Fellow excel programmers, I have the following little program which gives me an error: Sub code() ' ' code Macro ' ' Keyboard Shortcut: Ctrl+o ' For i = 1 To 5 ActiveCell.FormulaR1C1 = "=CODE(MID(R[-1]C1,LEN(R[-1]C1)-(LEN(R[-1]C1)- i),1))" ActiveCell.Offset(0, 1).Range("A1").Select Next i End Sub The problem is that when I run this code it gives me a "VALUE" error. The computer claims that the "i" in this part of the code (LEN(R[-1]C1)- i),1)) is what causes the value error. I am just teaching VB to myself s

How to add a "running count" to cells with matching data

I want to copy column A (below) into Column B and add a running count. As long as column A is the same (repeat letters & numbers) - it keeps adding the next number (1,2,3 . . . up to 99). Example - Cols A & B, Rows 1-15. I have Col A. I need to create Col B: Row ColumnA ColumnB 1 AK-1 AK-1-1 2 AK-1 AK-1-2 3 AK-1 AK-1-3 4 AK-2 AK-2-1 5 AK-2 AK-2-2 6 AK-3 AK-3-1 7 AK-1289 AK-1289-1 8 AK-1289 AK-1289-2 9 CA-1 CA-1-1 10 CA-1 CA-1-2 11 CA-2 CA-2-1 12 CA-2 CA-2-2 13 CA-2 CA-2-3 14 CA-375 CA-375-1 15 CA-375 CA-375-2 .... 24 CA-375 CA-375-11 Column A will always be 2 let

copying and pasting certain info

I need to transfer (copy and paste) certain information from Column A of one tab (Tab 2= ) to Column O in another tab (Tab 1). The information being transferred is dependent o= n the information in two other columns (one column lists a first name and the other col= umn lists a last name). In Tab 2, column G has last names and Column H has first names and= in Tab 1, Column J has last names and Column K has first names. I need certain ID numbers= (that correspond to certain individuals) listed in Column A of Tab 2 to be copied and p= asted to specific cells in Column O of another tab

Graph not plotting correctly if source not selected

Here my code: Set Cht_level = Charts.Add With Cht_level .ChartType = xlLine .SetSourceData Source:=cht_src End With if fails. But if I add cht_src.Select before the code, it works brilliantly? Why?

timer for sheet

i want to creat sheet with timer.by end of the time ,sheet would be cleaned

Automatically Saving created FILE

Hi, Just would like to ask help on how to automatically save a created file just by the use of command button. I have below macro code: Sub CSVFILE() Dim sh As Worksheet ActiveSheet.Copy Set sh = ActiveSheet On Error Resume Next sh.Buttons.Delete sh.Rows("1:2").Delete On Error GoTo 0 End Sub I want to "save as" the generated new workbook automatically when I click the command button to create the new wokbook. Is this possible? THANKS!

Selection.Cut Destination:=Columns("B:B")

Selection.Cut Destination:=Columns("B:B") I recenty got a new pc at work with msoffice 2007. A macro that i had previously recorded is no longer working. The error message is as follows: (Followed by the code) A selections including both inside a table and below it cannot be copied and inserted into that table. Select cells outside the table and try inserting the data again. You have attempted to fill data in a way not supportted by the table. code: Sub work_nesi() Columns("F:K").Select Range("K1").Activate Selection.Delete Shift:=xlToLeft Columns("B:B").