Computer Support Forum

Solved: Formatting Excel Macro Email Message Section

Question: Solved: Formatting Excel Macro Email Message Section

I found how to send an email from an Excel Macro (http://forums.techguy.org/business-applications/1056070-solved-excel-email-outlook-code.html)

Here is the code I'm using:
Code:

Sub Email_Test()
'
' Macro11 Macro
' Keyboard Shortcut: Ctrl+r
Dim eSubject As String
Dim Sendto As String
Dim CCto As String
Dim Body As String
Dim app As Object
Dim Itm As Variant
Set app = CreateObject("Outlook.Application")
Set Itm = app.CreateItem(0)
'Populate variables

mSubject = "Excel EMail Test"
Sendto = "[EMAIL="[email protected]"][email protected][/EMAIL]"
CCto = ""
mMessage = "You have received Knowledge Document Feedback for your domain."

With Itm
.Subject = mSubject
.To = Sendto
If Not IsMissing(CCto) Then .CC = CCto
.Body = mMessage
' .Attachments.Add (NewFileName1) ' Must be complete path
.Display ' This property is used when you want
' .send
End With
Set app = Nothing
Set Itm = Nothing
End Sub
Is there a way to format the message section with bullets? How about paragraph breaks?

Name: John Doe

Date: 6/15/2012
Doc #: KM123456
Etc:
Etc:
Comments:
I'm perfictly willing to look at how-to documentation if someone can point me in the right direction.

Thanks
firstshot

Relevance 100%
Preferred Solution: Solved: Formatting Excel Macro Email Message Section

I recommend downloading and running Reimage. It's a computer repair tool that has been proven to identify and fix many Windows problems with a high level of success.

I've used it in the past to identify and fix everything from blue screens (BSOD's), ActiveX errors, corrupt files and processes, dll/exe/sys errors, recover lost memory, Windows update problems, defragging, malware removal etc.

You can download it direct from this link http://downloadreimage.com/download.php. (This link will automatically start a download of Reimage that you can save to your computer.)

Answer: Solved: Formatting Excel Macro Email Message Section

Hi, I haven't really looked myself but instead of bullets I generally use a dash and a tab
Paragraph as such are not possible but you have the linefeed and carriage return

example to add to your macro code before calling the mail proc
Code:

Dim mytext as string
mytext = vbnullstring
mytext = "Dear Jon Doe" & vbclrf & vbcrlf
mytext=mytext & "-" & chr(9) & "Date :" & the date variable & vbcrlf
mytext=mytext & "-" & chr(9) & "Doc #:" & the dos variable & vbcrlf
mytext = mytext & "-" & chr(9) & "Etc :" "etcetera"
mytext = mytext & vbcrlf & vbcrlf
mytext = mytext & "Sincerely yours," & vbcrlf & vbcrlf
mytext = mytext & "Jane Doe" & vbcrlf

vbcrlf can also be replaced wij Chr(10) or Chr(13)

See it this helps.

Maybe html formattingis possible but this works just as fine.

3 more replies
Relevance 82.82%

Excel Masters, I am not sure how to loop through the following code for multiple row formatting. The code works fine if the user has selected cells within a single row. However, when multiple rows are selected, the 'With ActiveCell' formatting only works for the first row selected. How can I loop the 'else' statement to format the ranges for all rows with a cell selected?
Private Sub Button_DeleteRow_Click()
Selection.EntireRow.Interior.ColorIndex = 3

msg1 = MsgBox("Delete this row?", vbYesNo)
If msg1 = vbYes Then

Selection.EntireRow.Delete

Else

Selection.EntireRow.Interior.ColorIndex = xlNone
With ActiveCell
Range(Cells(.Row, "AA"), Cells(.Row, "AN")).Interior.ColorIndex = 15
Range(Cells(.Row, "c"), Cells(.Row, "d")).Interior.ColorIndex = 15
Range(Cells(.Row, "a"), Cells(.Row, "a")).Interior.ColorIndex = 15
Range(Cells(.Row, "j"), Cells(.Row, "j")).Interior.ColorIndex = 15
Range(Cells(.Row, "n"), Cells(.Row, "n")).Interior.ColorIndex = 15
End With

End If

End Sub

On a related note, I already have a separate worksheet change event (ByVal Target As Range) running on this worksheet.
 

Answer:Solved: Excel Macro - Loop selected-cell formatting for multiple rows

Something like:

Selection.EntireRow.Interior.ColorIndex = 3

msg1 = MsgBox("Delete this row?", vbYesNo)
If msg1 = vbYes Then

Selection.EntireRow.Delete

Else

Selection.EntireRow.Interior.ColorIndex = xlNone
SelRows = Selection.Resize(, 1).Cells.Count
Cells(ActiveCell.Row, 27).Resize(SelRows, 14).Interior.ColorIndex = 15

'(and so on)

End If

?

On a related note, I already have a separate worksheet change event (ByVal Target As Range) running on this worksheet.Click to expand...

If you mean "how do I bypass that for Selection.EntireRow.Delete then:

Application.EnableEvents = False
Selection.EntireRow.Delete
Application.EnableEvents = True
 

2 more replies
Relevance 79.54%

When I try to compile the Excel Macro, I get the following error message:

"Compile error: Procedure too large"
 

Answer:Solved: Excel Macro - Error Message

15 more replies
Relevance 79.54%

Hello

I need to come up with a simple outlook macro (or script?) that fires off whenever a new email meeting certain criteria is received.

1. new email is received with "please refresh quotes" in the subject
2. outlook runs a macro that causes another macro to run (the second macro is located in a excel workbook which is already running in my office pc)
3. the excel (attached) is simply refreshing market prices and emails whenever the macro is triggered. because the quotes are obtained via a DLL feed I can only get it at work.

the purpose is simply to get live market quotes on my personal email from my work email whenever i need.
thanks in advance for your help.
 

Answer:Solved: Run excel macro when new email is received

9 more replies
Relevance 77.9%

Hello,

I have a list of email addresses that have either:
[email protected]
[email protected]
[email protected]
or no corelation to [email protected]

I'm looking for a macro that will take the emails with dots in them and put the first and last names into cells next to the email. The others I can do by hand. PLEASE HELP!
 

Answer:Solved: Excel Macro to convert email addresses to names

16 more replies
Relevance 77.08%

I am working in Excel 2003, within XP and have the following situation.

For approximately 18 months, I have been running the macro listed below without issue. Now, for no apparent reason, the macro fails to execute in its entirety. When executing the macro from within Excel, the execution starts and proceeds a few lines and then just stops. No error, no warning, nothing, the macro just stops.

If I open up the Visual Basic editor screen from within Excel and attempt to execute the macro with F5 or step through line by line with F8, execution will proceed to the end of the Selection.TextToColumns command line, and the insertion point goes back to the start of this same command once executed. If F8 is pressed a second time, the insertion point goes all the way back to the Sub line at line 1 of the macro and tries to run the macro again. The behaviour is consistent, and no error code or indication occurs. The code has not changed.

If I break up the macro into a series of smaller macros at each error point, and run them sequentially, I get the desired outcome.

I have tried renaming, copying and pasting the text into different macro files, exporting the macro and re-importing into different worksheets (this one is currently sitting in personal.xls which is still sitting in my /xlstart subfolder.

I have 8 similar macros that now all do the same thing - very puzzling.

Would welcome any suggestions you may have. Thanks all.

ps. for all you real VBA folks out there, no this isn&... Read more

Answer:Solved: Excel 2003 macro halts during execution - no error message

7 more replies
Relevance 77.08%

Hi all

Looking for some help! Working on an excel document which contains a button I need to send to multiple people, that's fine what I need is for the subject field of the email to take the contents of a particular cell in the workbook and display that. My current code is;
Code:
Sub SendThis_ActiveWorkbook()

Dim Recip()
With ActiveWorkbook

ReDim Preserve Recip(0)
Recip(0) = "[EMAIL="[email protected]"][email protected][/EMAIL]"
ReDim Preserve Recip(1)
Recip(1) = "[EMAIL="[email protected]"]example[/EMAIL][EMAIL="[email protected]"][email protected][/EMAIL]"
.SendMail Recipients:=Recip, _
Subject:="Vacancy Authorisation " & Format(Date, "dd/mmm/yy")
End With

End Sub
Basically I want the subject to be "Vacancy Authorisation [cell contents] 01/01/2000" so I want the contents of a cell to appear in between the date and the "vacancy authorisation" part of the subject line. Assistance appreciated!
 

Answer:Solved: Excel email macro auto-populate subject line

Subject:="Vacancy Authorization " & Range("A1").Value & " " & Format(Date, "dd/mmm/yy")

Regards,
Rollin
 

2 more replies
Relevance 73.8%

Hi,I have an excel spreadsheet in Office 2003. Column A is an alert column. Columns K, U, X, AE, AO, AR and AU have conditional formatting that, dependant on dates entered, change the cell color to either green, amber or red.What I'm after is a way to change column A color for each row, dependant on the other row colors, in a priority sense. Red is highest, then amber then green. So if any of the cells listed above is red in a row, then column A for that row would be red, regardless of the color of any other cells. If none are red in the row, it would then look for amber, then green. You get the drift?My excel and VBA skills are not such that I can accomplish this. Any help would be greatly appreciated.

Answer:Excel cell color formatting macro

Why can't you use the same Conditional Formatting rules that turn the other cells in the Row the various colors and apply them to Column A? Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.

7 more replies
Relevance 73.8%

Hey,

Posting here before, I received several prompt replies. Due to my success, I will try once again, but this time with a different issue/question.

I have a spreadsheet with 1 column and 3000 rows. In each row, there is a 1 cell block with a series of numbers/characters. I need some type of formatting/macro that will extract only certain characters from each row and place them somewhere else. In example, I have the following rows:

7r74$#@$i4 i3o45$#---$#@$#/4432438
4327$##@$#4343u3i33$$( #343432822
4324*& 345435**(&^*&^342434234324

I need to extra the 12, 13, & 14th character of each row, whether it be a letter, number or space, it doesn't matter. Now the 12, 13 and 14th character need to be placed in there own newcolumn to the right of where they were prior. So the results, would look like this:

7r74$#@$i4 i3o45$#---$#@$#/4432438 i3
4327$##@$#4343u3i33$$( #343432822 343
4324*& 345435**(&^*&^342434234324 435

The post here will not let me space it correctly, but to the right of the first entry would be " i3", the second, "343" and the third "435".

So, it seems pretty simple, but I am not knowledgable enough with formulas, macros or vb to be able to figure this out. I also need to be able to adjust the formatting/macro/vb script every couple months as the "character extraction" place could change.

Thank you, hopefully someone is familiar with what I am trying to do and can understand this basic i... Read more

Answer:Excel, Formatting/Macro Creation for Data

Are you okay with just a formula? Try this if your data is in A1:

=Mid(A1,12,3)

12 is the starting position, and 3 is the number of characters to return.

Let us know if you do need it in a macro.

HTH,
 

3 more replies
Relevance 73.8%

I have an excel macro that highlights cells based on a number entered from 0 to 100. I can highlight the area I want formatted automatically and run the macro, but any cell with a blank or non-numeric value gets formatted red (or sometimes interpreted as >100). I want to add a fourth condition either at the start or as a final condition to not change the cell formatting if NaN or alternatively format the background as white (no cell background color). Using excel 2003, i understand I am limited to 3 conditions for formatting. I am also unfamiliar with implementing the IsNumber function. Here is the code, captured w/ macro recording:

Code:

Sub proquiz()
'
' proquiz Macro
' Highlight all cells in range according to pass criteria
'
' Keyboard Shortcut: Ctrl+h
'
With Selection.Interior
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
, Formula1:="100"
Selection.FormatConditions(1).Interior.ColorIndex = 33
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="86", Formula2:="89"
Selection.FormatConditions(2).Interior.ColorIndex = 45
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="85"
Selection.FormatConditions(3).Interior.ColorIndex = 3
End With
End Sub
 

Answer:Excel macro w/ IsNumber() and conditional formatting

6 more replies
Relevance 72.98%

Hi There I Have conditionally formatted column A with 2 conditions I want to be able to switch this formatting on or off as required with a macro please

Answer:excel 2007 macro to switch conditional formatting on and off

1 - Record a macro as you set the Conditional Formatting.2 - Record another macro as you delete it.3 - Assign each macro to a button to toggle between them.The recorded code will be be bloated, meaning that it will have a bunch of "default" settings that aren't really needed. Cleaning up recorded code is a great way to learn VBA.Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.

2 more replies
Relevance 70.93%

I've been trying to implement a macro to apply a defined chart format to every selected chart. I've been using a post from this forum a few years back http://forums.techguy.org/business-applications/823459-macro-format-charts.html to help, and it's working great for a single chart. However, I'd like to enable it to run across several selected charts at once, and that is giving me problems that I can't get my head around.

I'm trying to use this code to run through the objects in the selection:

Sub ReFormatSelectedCharts()

Dim ThisChartObj As ChartObject

Dim ThisType As String
ThisType = TypeName(Selection)

Select Case ThisType

Case "DrawingObjects"

For Each ThisChartObj In Selection

Call FormatThisChart(ThisChartObj)

Next ThisChartObj

...Click to expand...

However, it gives me a type mismatch when I try to use it. I've investigated by implementing the following code instead of the for each loop:

X = Selection.Count
ReDim arrCharts(1 To X)
For i = 1 To Selection.Count
arrCharts(i) = Selection(i).Name
Debug.Print arrCharts(i)
Next iClick to expand...

Interestingly, it seems that the second chart in the selection is being treated as a button by Excel - so in the debug output in the case with three charts I'll see something like:

Chart 10
Button 1
Chart 5Click to expand...

while for two charts it'll just be
Chart 10
Button 1Click to expand...

I've tried it with different pairs and sets of chart... Read more

More replies
Relevance 68.88%

Any way of controlling the time a email is sent via a excel spread sheet using vba?
 

Answer:Excel - macro email-

6 more replies
Relevance 68.88%
Question: Excel Email Macro

Hi All,

I have a spreadsheet and i am needing to create a macro that will opena new message in Outlook and populate the 'To' Field with one cell and then the 'CC' field with 2 email addresses, one from one field and the other from a different field. then the subject from another field and then the body from another. it then leaves the message window open so i can check it right and hit send.

I found the script the other day but can not find it anywhere including this site.

Any help on this will be great.

JPL

Any
 

Answer:Excel Email Macro

Hi JPL,

You could use this function, just pass the values to it
Code:

Function MailData(mSubject As String, mMessage As String, Sendto As String, Optional CCto As String)
Dim eSubject As String, EBody As String
Dim app As Object, Itm As Variant
Set app = CreateObject("Outlook.Application")
Set Itm = app.CreateItem(0)

With Itm
.Subject = mSubject
.to = Sendto
If Not IsMissing(CCto) Then .CC = CCto
.Body = mMessage
' .Attachments.Add (NewFileName1) ' Must be complete path
.Display ' This property is used when you want
' .send
End With
Set app = Nothing
Set Itm = Nothing
End Function

It's from one of the posts, I do not remember which one
 

1 more replies
Relevance 68.88%

I have an Excel model (office 2000) which has a range of cells that contain if/then statements. I'm trying to get Excel to automatically send an email if any of the cells within that specified range were to provide a value that was false. Is this possible? Thanks for any insight.
 

Answer:Email Macro in Excel??

16 more replies
Relevance 68.88%
Question: Excel Email Macro

Hi

I am trying to write a macro in Excel 2003 to automatically send an email using Outlook to a list of individuals asking them to confirm their personal details using the attached template. Could someone show me where I am going wrong with the script please?

Many thanks
 

Answer:Excel Email Macro

16 more replies
Relevance 68.06%

My sense is this is a pretty simple request, but I'm completely illiterate when it comes to VB.

I have an excel spreadsheet with a number of data points. I'm looking to export the entire sheet to a CSV file and send it via Outlook. Any suggestions?
 

More replies
Relevance 68.06%

Windows 7 --------------------------------------------------------------------------------First thing...I know nothing about macros!! I do know a very little about formulasI have created "IF" formula in excel 2010, based on a date it will create a send due in column "E", =IF(D5=$A$2,HYPERLINK(mailto:"&$K$1&"?subject="&A5&-B5&"&body="&$C$3,"sendworks great but, I have to go thru 86 rows in column "E" and hit "Send Due" numorous times,then hit send again on all the emails, can we automate this some how, like a macro that engadges when I open my outlook every morning?Thank u

Answer:Need Macro to automate email from excel

I have written code in Outlook, which is essentially a template, you fill in the details, all sorts of stuff happens accordingly to what you have selected, and you press send and it will send the emails to whoever it is you want. Iv done this in Outlook, so my question is, why do you need this to be done in Excel? is Outlook acceptable?

3 more replies
Relevance 68.06%

I have a user who wants to create a macro which will automatically send an excel spreadsheet into outlook and email it.
Any suggestions welcome. Thanks.
 

More replies
Relevance 68.06%

Hello all;

I am new to this forum and also to Excel macros. I have a large Excel file detailing financial accounts with my small business.
Anyway, I would like to email any customer who has an overdue balance as per column V in my attached sample file (any customer with a greater than zero value in V). I would like to send an email; something like this:

Joe Wilson;
As of 2/28/11 (latest date in the row that is on/after the current date), your account is currently overdue and you owe $1500.00 (G3).
Thank you.
Treasurer
I found several other threads explaining how to send an automatic email from Excel, but I haven't found one for sending an individualized email to a list of recipients. If this question has been answered, please feel free to redirect me. Otherwise, I'd appreciate any suggestions. Please let me know if I can detail my needs any better.
Thanks!
 

Answer:Excel Macro: Auto Email

welcome to the board.

I put some code in the sheet

The macro name is CheckAndMail

Let me know if this is what you need

PS: I just corrected something I came accross and have re attached the corrected sample
 

2 more replies
Relevance 67.24%

I would like to ask for an Excel macro which can send an automate email on a certain date every Month.

The dates would be as follows:

1st Monday: Email should be sent to [email protected] automatically
2nd Wednesday: Email should be sent to [email protected] automatically
3rd Tuesday: Email should be sent to [email protected] automatically
3rd Tuesday: Email should be sent to [email protected] automatically
3rd Tuesday: Email should be sent to [email protected] automatically

Subject line: ABC123D5679_Data transfer expected today

Details of the body of the text message:

"Dear All,
This is to remind you that we are expecting the data transfer to be posted in Novartis system today . This is just an advanced intimation.

Kindly let us know if you foresee a delay in the data transfer.

Kind regards,
Rohit"
Many thanks in advance for your help guys. This means a lot.
 

More replies
Relevance 67.24%

Hi - I have a list of names for a particular company where I have the first name and last name of the customer plus the email naming convention their company uses. For example the company's email naming convention is: [email protected] Is there a way I can create an Excel Macro that will automatically create the email from the available information? For example if I create three columns where one has the first name, last name and the @companyurl.com?I hope someone can help with this as it will save a lot of time!!Thank You!

Answer:Need Excel macro to creat email address out of just a name

This can be done fairly easily, but I'm not going to offer any suggestions.Since it appears that you do not work for this company, I can only assume that this will be for some sort of mass, unsolicited mailing. If your project was sponsored by the company in question, they would supply you with a distribution list and you wouldn't have to build your own.For all I know, I'm on that list of names that you have and I don't need any more unsolicited email.Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.

3 more replies
Relevance 67.24%

Hi there,

I have a workbook which i would ideally like to send an automated mail when the date is within 30 days of "Todays date" .
I have found something similaar on past posts whichprints certain cells to an email but is triggered by a button press not date, but wondered if anyone could adjust it for me as my excel knowledge is very limited.
I really am struggling.

The password for the spreadsheet is Kalibratedbyme (capital K)

Best regards and many thanks!
 

Answer:macro to allow a date to send an email in excel

The content is different but why are you duplicating a post?
 

3 more replies
Relevance 66.42%

Hi
I need help writing a macro that takes an Excel file to email.

The Excel file is a data base, I wanted the Macro to take the email from a column of the Excel file, and send out the email to all the emails in the database, if possible also adding a column of the Excel file to address the specific person.

thank you.
 

Answer:need help writing a macro that takes Excel file to email

Can you post a sample file? Please remove any sensitive data.

Rollin
 

2 more replies
Relevance 66.42%

Hy guys

2nd time i am posting stuff for help, and as i was helped before i will again look forward the response.

I have a file of excel, in which i am sending emails to different candidates of admission, with scan letter placed in the same folder by name.

I want to edit this code, which could select attachment based on Column A list adjacent to the email address

I am attaching the file also pasting the code

Sub Test1()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Office 2000-2013
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")

On Error GoTo cleanup
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "C").Value) = "yes" Then

Set OutMail = OutApp.CreateItem(0)

strbody = "We at Graduate School of Engineering Sciences and Information Technology are extremely pleased to know that you have selected Hamdard University as preferred choice for your graduate/post-graduate Studies. " & vbNewLine & vbNewLine & _
"Hamdard University is a pioneer Higher Education Institute (HEI) of Karachi producing Masters and PhDs in the fields of Engineering, Computer Sciences, Information Technology, Energy and Environment since 19... Read more

Answer:Attachment based on cell value in a excel email macro

anybody ???
 

2 more replies
Relevance 66.42%

I found this code in this forum.
i want to add recipient as CC or BCC. What is the correct code for that?
Thanks in advance!

Code:
Public Sub email()

Dim SubJ, Recip As String

SubJ = "Enter your suject"
Recip = "[email protected]"


ThisWorkbook.SendMail Recip, SubJ

msgbox "Email Sent"

End Sub

 

Answer:Send excel sheet ( email) through macro with recipient and cc

6 more replies
Relevance 66.42%

Hi:
I am very new to Excel 2007 and macros. I have a spreadsheet that I am trying to get to send an email reminder to the point of contact [ col b ] 5 days prior to the closure document due NLT date [ col m ]. I am looking for assistance in writing a macro which will accomplish this if it is possible. I have attached the spreadsheet that I referenced.
Your assistance would be greatly appreciated.
Thanks in advance.

desantisj
 

Answer:Excel 2007 Macro to Send Reminder Email

desantisj, welcome to the Forum.
There are already 3 or 4 posts on this forum that have the VBA code (Macro) that you can modify for your Workbook if you can read the code. Zack has written the code so it is a bit complicated, but it should be a case of substituting your Cell references that hold the data for the ones that others have used.
Otherwise it is a case of waiting for an Excel guru to come along and help. If none of them come along I can probably help you, but I normally work with Access.
 

2 more replies
Relevance 66.42%

Hi there - Using MS Access 2007.
I have a FORM with a macro that runs a query to generate ONE excel file and attaches to email using MS Out look to send out. - That Works great.

Problem: Multiple users to send email & attachment.
I would like for the macro to generate excel file (S) - based by the UID.

Can someone suggest a better way of handling this that is not time consuming?

Thanks In advance!
 

Answer:MS Access 2007 - Macro > Excel > Auto Email

Access can open Outlook and send an attachment to mutiple recipients either as a list or as individual emails.
So are the attachments all the same for the recipients?
 

1 more replies
Relevance 66.42%

Hello,

My first post, sorry to be a leech right off!

I'm trying to automate some of my day to day emails. I'd like to get a macro set up that will send an email from Excel and paste the range I select in to the body of the email. Would be great if it would send to a list of addresses listed on the page as well.

Using the attached example, I'd like the macro to take whatever range I highlight on the table, copy it to the body of an email and send it to the group of emails listed on the right side.

I'm learning excel, this would help me a lot! I'll be editing this to fit a variety of other tasks. I hope it can be flexible. Thanks in advance.

Chris
 

Answer:Macro: Email Range/Selection to group from Excel

http://www.rondebruin.nl/mail/folder3/mail4.htm

I have done the looping attached.
 

2 more replies
Relevance 66.01%

I've created my own Sudoku solution and grid to assist solving these puzzles and they include macros.I the individual boxes I can have the numbers, 1, 2, 3, 4, 5, 6, 7, 8, 9 and when I have figured out a number in another cell, I remove it from the ones in the same 9 squares and from the Horizontal row and column.However, I've somehow picked up a formatting issue not of my own doing and would like to know how it is doing what it is.When I am removing a number from my list and press Enter, an information box headed Sudoku pops up with the message, you can only enter whole numbers from 1 to 9.It wasn't me that created it, I can't find it in any macro, not conditional formattingHelp!

Answer:Excel - mysterious formatting information message

Right click the sheet tab > View Code. Is there anything in the code window?

3 more replies
Relevance 66.01%

I’m using Windows 7 and I used a macro which worked totally fine under Excel 2003. Now, under Excel 2007 it does not run anymore but displays the following error message:

"Run-time error '445':
Object doesn't support this action.

The function of the macro is to open up all other Excel spreadsheets located in the same folder and copy data out of them into the spreadsheet in which the macro is stored.

When I click on "Debug" the Visual Basic Editor highlights the row which says: Set FilSrch = Application.FileSearch

Can you help me with this? I've searched for a solution for a long time but could not find anything which worked.

The following is the start of the macro code:

Sub UpdateTable()
Dim X As Range, I As Integer, J As Integer, RecNo As Integer, CopyVal As Variant
Dim SourceBk As Worksheet, DestBk As Worksheet, StartRow As Integer, IndRange As Range
Dim ServRange As Range, SrcOpen As Boolean, SourceName As String
Dim FilSrch As Object, MyFilArray() As String

'MsgBox "This function not available in this version.", vbInformation, "Function Not Available"
'Exit Sub
'Sheets("LookUp").[a12] = Now
With Application
.ScreenUpdating = False
.StatusBar = "Counting source files ..."
End With
Set FilSrch = Application.FileSearch
With FilSrch
.NewSearch
.LookIn = ActiveWorkbook.Path
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
ReDim MyFilArray(.FoundFiles.Count)
For I = 1 ... Read more

Answer:Solved: Excel 2003 Macro Doesn't Run in Excel 2007 - Help Requested

7 more replies
Relevance 66.01%

I am trying to create a code that will autofilter data on an Excel worksheet. The code works fine to filter the data, but it does not hide the AutoFilter Arrows.

Below is the code I am using. What (if anything) is wrong with the code below?
Code:

ActiveSheet.Range("A1:D500").AutoFilter Field:=2, Criteria1:="<>", Visibledropdown:=False
 

Answer:Solved: Excel 2007 Macro -> Hide Excel AutoFilter Arrows

I noticed that the code above (in Post #1) that the AutoFilter Arrows were beinf truned off on Field 2, but none of the others.

I have played around, and done some research to come up with the code below:
Code:

Dim c As Range

For Each c In ActiveSheet.Range("A1:D1")
ActiveSheet.Range("A1:D500").AutoFilter Field:=2, Criteria1:="<>"
c.AutoFilter Field:=c.Column, Visibledropdown:=False
Next

Does anyone have a better solution?
 

1 more replies
Relevance 66.01%

Hello again,

I have a word doc that has a form in it. The form may have any number of fields (boxes) to type text answers into, or be a drop down list to select an answer from. I need an excel macro that extracts all data from the form, but with every five fields starting a new row in excel. So all data from the form will appear within 5 columns in an excel spreadsheet.

field 1 field 2 field 3 field 4 field 5
field 6 field 7 field 8 field 9 field 10
etc

Is that possible? I have had no luck to do it myself.

Sample form attached, thank you
____________________________
 

Answer:Solved: Excel macro to extract Word form data into Excel

7 more replies
Relevance 65.6%

Hello everyone,

I'm hoping that I can get help with my issue at hand. I have a problem that from the looks of it has been asked a few times. However my understanding of excel and visual basic is to very limited to solve my problem without any help.

Here is what I'm faced with:

I made a workbook for keeping track of maintenance and DOT requirements for the trucks in our yard. Each sheet is set up with service date or inspection date visual reminders based off of conditional formation. I get a visual warning (X) amount of days before and a past due warning 1 day after, all depending on my requirements.

After searching the forms I found a thread that looks to be the closest that I can find to my needs. http://forums.techguy.org/business-applications/636786-set-email-reminder-base-excel.html

Since I have multiple dates and need for an email reminder the coding gets confusing to me. I have a very basic understanding of coding principals but have never used visual basic.

What I would like to happen based off of my understanding of the other thread:
Using task scheduler run a VB file that would then open the Excel file everyday at (X) time and check my date parameters and send an email with a warning that a due date is coming up or if past due then an email saying it is past due. The close file.

I'm sure more information will be need to give me any type of help. I have attached the workbook for reference and so my explanation will make more sense.

I'm ... Read more

Answer:Excel: Automated email based on Conditional Formatting

Hi there, I noticed that your post has gone unanswered, you posted on March 25th an looks like nobody has taken a chance on it.
You mention you're using office 2013 but your file is Office 2003 or earlier; I assume this is a file you've been using for quite some time.
What you're asking is in a certain way not that complicated but needs to be thought about very carefully. Usign the scheduler to open the Excel file, check it and then close it is not that muvh of an issue but you do have to realize that if you're using Excel for something else and all at once the scheduler triggers it you could run into some problems and might loose the data you're working on.
In the 'Abq Truck & DOT Reguirements' sheet you've got 4 columns with dates, which one is the one you trigger the mail on, all four? What email address?
Conditional formatting is nice for visual triggers but will not trigger a macro so that all together will be some vba code which needs thinking and writing.
The samples on other posts can of course be used and like you say some coding / vba knowledge is required to adapt it to your needs.
Think about it and update with some extra information, maybe some simple code can be written and used
 

1 more replies
Relevance 65.19%

I am getting a message, when I close Excel 2016, asking if I want to save changes to my Personal Macro Workbook, but I have not made any changes. Is there any way to get rid of this message, other than to click Save (I would have no idea what I am saving).

T

More replies
Relevance 65.19%

Although decently experience with excel, I am quite new with VBA and I cannot "record" this macro, so any help writing this in VBA is much appreciated.

1) I need to create a macro that will take a number that is entered into a cell, and upon hitting a button in the excel sheet create an email where the subject line is the number that was in that original cell.

1b)I would like to do this without changing the name of the excel file though, or at least have another macro that resets the file to its original name.

2) Also, if possible, the same macro/vba as above, only with two cells, a number in one and a name in the other, which then shows up as "Number-Name" as the subject line in the email.

Thanks to anyone that can help - Mike
 

Answer:Excel Macro -> email created with field data as subject line

8 more replies
Relevance 65.19%

Hi all,

I need to know if is it possible that a macro in Excel sends an email containing the visible cells using Microsoft Outlook.
btw, I saw some code on the internet, that saves the visible cells in a new excel file and attach it in a new email using Microsoft Outlook, but I don't want to have attachments in the email.

thanks for any possible help.
 

More replies
Relevance 64.78%

Hi guys,

I have been on the lookout for a macro that will compare 2 worksheets within MS Excel and output the differences on a third sheet.

I am being directed to the URL below but cannot for the life of me work out how to implement this:

http://exceltip.com/st/Compare_two_worksheets_using_VBA_in_Microsoft_Excel/477.html

There are two snippets of code which I will include here for convenience but not sure whether these should be pasted into Workbook Code (i.e. right-clicking Excel icon left of "File" - top-left), Worksheet Code (i.e. right-clicking worksheet tab) or inserting a new Module - or some other method. Is there anyone here that could guide me to how to implement this code?

Quote from webpage - "With the macro below it is possible to compare the content of two worksheets.
The result is displayed in a new workbook listing all cell differences. "

Code:
Sub CompareWorksheets(ws1 As Worksheet, ws2 As Worksheet)
Dim r As Long, c As Integer
Dim lr1 As Long, lr2 As Long, lc1 As Integer, lc2 As Integer
Dim maxR As Long, maxC As Integer, cf1 As String, cf2 As String
Dim rptWB As Workbook, DiffCount As Long
Application.ScreenUpdating = False
Application.StatusBar = "Creating the report..."
Set rptWB = Workbooks.Add
Application.DisplayAlerts = False
While Worksheets.Count > 1
Worksheets(2).Delete
Wend
Application.DisplayAlerts = True
With ws1.UsedRange
lr1 = .Rows.Count
lc1 = .Column... Read more

Answer:Solved: How to use this Macro in MS Excel (compare excel worksheets)

Apologies... I have sorted this... For those that might be looking at this for help here's what I missed:

These are both Sub's that should be created as a Module - both in the same module. I am just comparing worksheets within the Active Worksheet so just removed:

' compare two different worksheets in two different workbooks
CompareWorksheets ActiveWorkbook.Worksheets("Sheet1"), _
Workbooks("WorkBookName.xls").Worksheets("Sheet2")
Click to expand...

I was then able to run this from Macro's. All sorted.

Apologies again
 

1 more replies
Relevance 64.78%

I'm having trouble trying to find a macro for Word 2007 that copies and pastes text with no formatting. I can't find anything on the web. I think I found an article with my exact problem in PCMag somewhere but I forgot the issue date. Could anyone post the code here or tell me what issue of PCMag that was? Thanks.
 

Answer:Solved: Need Word 2007 macro for no-formatting copy and pasting

13 more replies
Relevance 64.78%

Hi All (please refer to entry #4 with updated excel)

Thanks for helping.

Thanks to Turbodante, I am able to sum a range of colunm data in a macro (refer below), but now I need to be able to choose how much of the column to sum using a date that it stops at.
So rather than doing the whole table, I need it to just sum, as per the example attached, from July09 to the top of the table. Also each month additional data will be added, so its needs to be able to keep summing the data from the date to the top of the table as new data is entered each month.
Also different sheets will need to pick up the date where it needs to end. This will be in the worksheet as a manual entry (refer cell E18)

Sub Macro1()
Dim bRow As Long
bRow = Range("b4").End(xlDown).Row
Cells.Find(What:="Cell Name").Offset(1, 0) = "=sum(b4:b" & bRow & ")"
End Sub

Thanks for your help

Strybes
 

Answer:Solved: Microsoft Excel 2003 Sum Section using date to determine range help needed

10 more replies
Relevance 64.37%

OS: Windows 7 Pro x64
Software: MS Office 2010 - Outlook

Issue: Emails sending differently than they look going out.

To explain this a little better, I have included pictures. Outlook1 and 3 are how they should look. Outlook 2 and 4 is how they are actually being received.

As you can tell, there is a big difference between them and it is not good when copying reports or supposed to have certain aspects of emails bolded/highlighted.

I have searched for a bit and tried a few things but still have not had any success.

History: just recently transferred from Windows XP/Office 2k3 this past weekend and now I have these issues.
~~~~~~~~~~~~~~~~~~~~~~
Edit: I do have it setup to send/convert outgoing emails to HTML

Answer:Outlook 2010 Email formatting issue with original message

Hello joeblah -

The sent samples are correct based on your format selection of HTML.

HTML is not the same as plain or rich text and has little resemblence to how things look in a word processor.

If you must send as HTML then convert your content to an image (picture) and embed that. Otherwise try rich text and see what happens.

Note that sending in HTML is your choice but no guarantee that the receipient will ALLOW your email to be view as HTML. I do NOT allow HTML emails in 6 of my 8 email accounts, PLAIN TEXT ONLY.

Regards,
GEWB

9 more replies
Relevance 61.91%

Hi, I have a very interesting question for the forum today.I have a spreadsheet with a column that has a picklist of numbers ranging from 1 - 5.10. For example the picklist has the following:11.11.21.31.41.51.61.71.81.91.101.1122.1etc.The issue I am running into is when 1.10 and 1.11 is picked from the picklist the number is being displayed as 1.1 and 1.2 instead of 1.10 and 1.11. My manager has made it clear that she doesnt want the other selections to be displayed with an extra decimal point (for example 1 showing as 1.0 etc)Can this be fixed so that 1.10 & 1.11 is displayed as such without adding a second decimal place to all the others?

Answer:Custom Formatting for one section number

By "picklist" I assume you mean a Data Validation Dropdown.If that is correct, format the original number and the Dropdown cell list as Text, not as numbers.Excel will still be able to use the Dropdown choice in a calculation if need be, but the format of the text in the cells won't be changed.Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.message edited by DerbyDad03

3 more replies
Relevance 61.09%

I have 50+ excel workbooks and I need to extract 1 tab from each of them and create an individual file for each.

A girl who used to work in my office found a macro or program using excel, that only works on PCs, but I have one available, thatall you have to do is have the selected tab saved so that it opens up to the one you want and paste the entire thing as values and it will do it for you real fast. The alternative is to go in and copy and paste each tab or extract the sheet in each and every one. If anyone can help me find the name of this or where I can find it I would really appreciate it. Oh ya the girls who used to work in my office moved to India, canceled her cell and I do not have her personal email so contacting her is harder than I first thought.
 

Answer:Solved: Excel Macro?

14 more replies
Relevance 61.09%

hi all i've never written a macro before and have been searching online for how to do it but am still pretty confused. i have 4 columns of data, the first of which has a number 1-8 or is blank. if its blank, i want my macro to fill in a number 1-8 based off the next 3 columns. below is how i've thought about how i want my macro to look, but i don't know how to translate this (b, c, d, and e are the columns). any help would be MUCH appreciated. thanks,
If b = "" Then
{If c > 0 Then

(If d > 0 Then

If e > 0 Then b = "1"

If e < 0 Then b = "5")

(If d < 0 Then

If e > 0 Then b = "2"

If e < 0 Then b = "6")}
{If c < 0 Then

(If d > 0 Then

If e > 0 Then b = "3"

If e < 0 Then b = "7")

(If d < 0 Then

If e > 0 Then b = "4"

If e < 0 Then b = "8")}
Else: b = b
 

Answer:Solved: excel macro help please

6 more replies
Relevance 61.09%

hi... i am really having a problem with creating a macro, could you please help me.

i have to copy content from a auction website, paste it into excel.
this is what the content looks like

Auction - 125458
view bigger image --- name of item
ref number --- start date
end date --- price of item
page views
users tracking
no bids
relists remaining (this is sometimes left out and causes my stress)
copy or relist
edit
close
delete
the above content over 3 columns and over different rows.
i managed a simple macro to put these into column’s, but the problem being that sometimes there is not the same amount of rows with the relists remaining left out sometimes....
so what i need is a macro to put the data above into column’s,
eg... word starting with auction = c1
word starting with view bigger = d1
word starting with item name = e1
---------- then when the next word starting with auction = c2

could you pretty please help me with this
 

Answer:Solved: excel macro help please

9 more replies
Relevance 61.09%

Hi,

I have following data with me and this data extends till 1000 rows.

IDSYSTEMASSOCIATED_ABC_PROCESSASSOCIATED_XYZ_PROCESS9ABC Stage IIIABC.101-1XYZ.103-459ABC Stage IIABC.101-2XYZ.103-459ABC Stage IABC.101-3XYZ.103-459XYZ Stage IABC.101-4XYZ.103-459ABC Stage IABC.102-2XYZ.103-469ABC Stage IABC.103-2XYZ.103-479XYZ Stage IABC.103-4XYZ.103-4810ABC Stage IABC.104-1XYZ.105-4-310ABC Stage IIIABC.104-2XYZ.105-4-410ABC Stage IIIABC.104-6XYZ.105-4-510XYZ Stage IIABC.105-1-1XYZ.105-4-610ABC Stage IVABC.106-1XYZ.107-3

I am looking for a macro which will give me results as mentioned below.

IDABC / XYZ METRICABC XYZ STAGES9ABC.101-1
ABC.101-2
ABC.101-3
ABC.101-4
ABC.102-2
ABC.103-2
ABC.103-4
XYZ.103-45
XYZ.103-45
XYZ.103-45
XYZ.103-45
XYZ.103-46
XYZ.103-47
XYZ.103-48
ABC Stage I
ABC Stage II
ABC Stage III
ZYZ Stage I
10ABC Stage I
ABC Stage III
XYZ Stage II
ABC Stage IVABC.104-1
ABC.104-2
ABC.104-6
ABC.105-1-1
ABC.106-1
XYZ.105-4-3
XYZ.105-4-4
XYZ.105-4-5
XYZ.105-4-6
XYZ.107-3



In Column 'ABC / XYZ METRIC' the values from coulmns 'ASSOCIATED_ABC_PROCESS' and 'ASSOCIATED_XYZ_PROCESS' are combined for the respective ID.

Thanks in advance,

Regards,
Akki
 

Answer:Solved: Excel Macro Help

I don't know how the table are disorganized after submmiting the querry. Submmiting new query with attachment.

Regards,
Akki
 

1 more replies
Relevance 61.09%

here my situation: I have created 2 worksheets. Both are contact list.
the 1st list is of People who work in the same building as I. The second is
a list of nationwide remote users. My boss emailed me a third sheet
containing names from both list combined. the question I have is can I
write a macro to check the third sheet against the 1st two then seperate
them back out? if you need more info let me know
 

Answer:Solved: need help with excel macro

8 more replies
Relevance 61.09%

I am running Excel 2003. I am creating a macro that open files from a external hard drive. I was hoping to find a way for the macro to find the Drive letter of the external hard drive instead of me having to statically assign the drive letter.

Any help with this would be great.
 

Answer:Solved: Excel Macro

9 more replies
Relevance 61.09%

Hello TECHGUYS.
We are using macro fro creating P.O.B. lis ( persons on board) , from the 3500 persons, copying only those who is on board at the moment , then grouping them by company and than sorting in alphabetical order in each group.
Now is the challenge : Is that posiible to modify macro or add another function to it to make it sort personnel of first company in the list by rank / position?
I am almost green in scriptin, but very interesting in it , but now my boss wants to see Himself on top of the list He's last name not starting from A
Thanks in advance...
 

Answer:Solved: Excel macro help

12 more replies
Relevance 61.09%

I have an excel report (tab name is "sample report")that lists many rows of data (each row is a new case). In column "H" it lists who is working on each case. Column "I" lists dates. If a date is shown then that means the case is closed. If the cell is empty that means the case is still open.

What I need is a macro that will copy all of the "Open" cases from the "Sample Report" tab and put them into the other tab "Open Case Log" under the specific names in column "H". I have put 5-10 blank rows under each name on the "Open Case Log" tab but I am never sure excalty how many open cases each person will have at any given time. This is where I am having the problem. I have attached the sample excel report.

Any and All help would be greatly appreciated.

Thank you.
 

Answer:Solved: Need Help with Excel Macro

16 more replies
Relevance 61.09%

I am have a form in excel that when a certain person types his name at the end the following cell will put in date that he signed it. The problem is that when you e-mail the doc. the following day (or whatever day) the date changes to the current date and not the actual date that the doc was signed. (by signed i mean the person typing his name there) Here is the code that is currrently in the doc.
=+IF(F36="Persons Name",H43," ")

I'm not sure if there is some kind of formula for this or do i have to write a macro for it. If i do have to write a macro for it, could someone please help me out with it.
 

Answer:Solved: Excel Macro

6 more replies
Relevance 61.09%

Hello,

I've built an excel spreadsheet and am having trouble with a part of a macro. The relevant section of the macro that I am having trouble with is below:

Application.Run "ATPVBAEN.XLA!Regress", ActiveSheet.Range("$A$1:$A$1094"), _
ActiveSheet.Range("$B$1:$C$1094"), False, True, , "PS stats", False, _
False, False, False, , False

The spreadsheet is basically a template, so as I get new data, I open it up, dump the data in, run the macros and save. The problem is, the data is often different sizes, so one day I may have 1000 rows, and the next 1400. This is not a problem with generating charts, since I can just select that it plots cells 0-2000, and it will ignore cells without data, but if I do this for the above regression, the macro will not fully run and I get an error. It's not really a big deal, as I can open up the macro every time and just edit the range to fit the data I have, but other people often need to use it so I'd like to make it as simple as copy, paste, and run macro1.

Is there a way to insert a macro within the macro so excel automatically searches the column and then runs the regression?

Something like this

Application.Run "ATPVBAEN.XLA!Regress", ActiveSheet.Range("Only rage of cells with data in them"), _
ActiveSheet.Range("$B$1:$C$1094"), False, True, , "PS stats", False, _
False, False, False, , False

I've seen a macro here on how to find cell... Read more

Answer:Solved: Help with excel macro

9 more replies
Relevance 61.09%

Hi Friends,

I'm very much new to Macro in excel. I wanted to Run Macro in the following situation :
I have 2 Excel Book having same header but some data which to be consolidated in a 3rd Book. I recorded macro in 3rd Book the macro function is to " to open Book 1 & Book 2 & consolidate in Book 3" on running the recorded macro.

But after saving the macro and running tha macro again with some new data in Book 1 & Book 2 it gives the following error message "Run-time error '9':
Script out of range

and on debug the following macros are displayed.
---------------------------------------------
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+l
'
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\Desktop\Book2.xlsx"
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\Desktop\Book1.xlsx"
Windows("Report.xlsx").Activate

Selection.Consolidate Sources:=Array( _
"'C:\Documents and Settings\Administrator\Desktop\[Book1.xlsx]Sheet1'!R1:R1048576" _
, _
"'C:\Documents and Settings\Administrator\Desktop\[Book2.xlsx]Sheet1'!R1:R1048576" _
), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
End Sub

--------------------

can anyone help. I'll be very much grateful to you.

I'm using excel 2007 but I dont think it has got to do something with macro!

thank you in advance.

Hemen
&nbs... Read more

Answer:Solved: Help in macro (Excel)

This message usually occurs when the code is trying to call a workbook or worksheet that is not available. Your code opens two workbooks from your desktop (Book2.xlsx, Book1.xlsx) and then is trying to activate a workbook called Report.xlsx. If this workbook is not already open then you will get the error. You need to add some code to open the workbook prior to activating it.

Regards,
Rollin
 

2 more replies
Relevance 61.09%

Hello,

I've used this site to create my current excel file; it works pretty good but now it need the evolve and I require some help.
I'm sure there are easier ways to get what I need; I am no expert at macro writting so please bare with me.

THe file current creates graph for me; 'data input' has a button where i input the locations i require a graph for and it simply selects info (from a master file database) and pastes it into 'sheet2' where a graphs exists.

the code is written so that it will go to a pdf print screen for me to input the name and save. this worked well but now there are so many locations that i would like to automate some functions.
what i would like the update to do is the following;

-'results table', column A, "Location" will have several locations listed (only in the white blank spots). I need the macro to generate a graph for each location listed.
-for this to occur, it makes sense that I would also require the pdf to automatically name each file ~ naming it the location that it was looking up (otherwise i will have a bunch of pdf save as files open and i wouldn't know which was which.
any and all input would be greatly appreciated. i also looked up the auto name pdf file; i did not include my attempts to add as it kept getting hung up at the 'save as' file box. i can share my pregress on that if you like.

below is my current code. Please email me so that i can send you the file a... Read more

Answer:Solved: Excel Macro help

15 more replies
Relevance 61.09%

I need to write a macro to look down all the cells of an entire column of one worksheet and whenever the value of a cell is greater than zero, copy that value and paste to the next empty cell along a different column. For instance, I'm looking down the entire column and D5 is greater than 0, so I paste it to N1,. Next, D8 is greater than 0, so i need to be able to paste this to N2 and so on. Can someone help? Thanks
 

Answer:Solved: Excel Macro

Hi,

Copy and paste the code to a "Module"
Code:

Sub Check_Zero()
Application.ScreenUpdating = False
Dim cel As Range
Dim lcel As Long
For Each cel In Range("D2:D" & Range("D65536").End(xlUp).Row)
If Cells(cel.Row, 4).Value > "0" Then
lcel = Range("N65536").End(xlUp).Row + 1
Cells(lcel, 14).Value = Cells(cel.Row, 4).Text
End If
Next
End Sub
 

3 more replies
Relevance 61.09%

Hello
I'm using Excel 2003 (on Win XP). I currently have an excel doc which I use for "form filling". There is a lot of questions, 40 or so on Tab1 and another 40 or so on Tab2. Both use "data, validation, list" for the questions (to sub sub level). Once the form is filled in it is saved as an excel file. Then I fill in the next excel doc, roughly about 50 excel docs are created for each job. I know I should probably use a database but I've never used one before.
What I'm looking for is a macro at the end of the form which I could click and it would collect data from tab1, cell A1, A2, B3, C7 and MOVE it into tab3 to a position A2 – all in a single row (i.e. B2, C2 etc). I can then amend the macro and use it for tab2, so the data is saved in tab4.
Here is the tricky part.
The first reference in cell A1 contains the “Question No” referenced as Q1, Q2, etc as a list box. Sometimes I will need to go back to a previous “question” and amend details but most of the time it’s used for printing purposes at the end of the day. Hence I will need a second macro which when clicked on will ask for “Question Number” and once I input it in, should retrieve the information from Tab2 and insert all the data back into the original cells. I suspect this is impossible as it would then paste the raw data over my “list boxes” making them unusable.
But maybe by having another tab, say “amendments” with a macro button on it, I could select the “questio... Read more

Answer:Solved: Need a Macro for Excel

16 more replies
Relevance 61.09%

Hello, I need some help with a macro. I am writing an If...Then...Else statement. The If is based on whether the current cell is blank. This seems simple enough from my experience with Lotus 1-2-3 macros but I can't make it happen. Here is where I am -

If ActiveCell.Value.Isnull = True Then
Blah...Blah...Blah
Else.... Help me! Thanks
 

Answer:Solved: Excel Macro (VB)

Welcome to the board.

If ActiveCell = "" Then
Do this
Else
Do that
End If

It's the same as IF formula, only in code.

Rgds,
Andy
 

2 more replies
Relevance 61.09%

Ok not sure if this can be done or not, but hopefully it can.
What I want to create is a macro or something that would read the values in column A, if it finds a duplicate number it would insert a row under it

i.e.

5
5
6
7
8
It would insert a row between the 5 and 6.
Is this possible?
 

Answer:Solved: Excel Macro - Not sure if it can be done

16 more replies
Relevance 61.09%

i have created a spreadsheet that has a list of names down the left, days of the week and dates across the top and a "user' choose in the data fields.The spreadsheets are in one workbook and i have a sheet for each month.

What i need to do is create a form that will enable users to choose a "Date" period ie start and end dates and choose a "name". i then need this form to have a button on it that when clicked would generate an email to the relative person named which would have all of the relevant data in it.

I know how to create the actual form, it's linking everything to it thats the problem, so would really appreciate some help.

Hope this all makes sense !!!
 

Answer:Solved: Excel macro help req

15 more replies
Relevance 61.09%

Can anyone please help me.

I need to have a macro in my word document that selects a section of text between 2 lines of text with a set style and convert it from 1 column to 2 columns. Once done, repeat throughout the document to the end for each section.

I already have the code inplace that imports the text from a text file and formats the text with styles but I just need this last bit to finish off my template. Can anyone help??

Please see attached. Page 1 is what I have and page 2 is what I need it to look like. I hope someone can help.
 

More replies
Relevance 61.09%

Hello, I discovered this forum when searching for a way to create a search macro to copy rows of data based on values in certain columns. The post resolved by bomb#21 has given me code that does 90% of what I need:
http://forums.techguy.org/business-applications/559825-solved-excel-search-macro-needed.html
Sub Search()
Range("E11").CurrentRegion.ClearContents: Range("E11") = "Results"
FindWhat = UCase(Range("E5"))
For Each Cell In Range("B2", Range("B" & Rows.Count).End(xlUp))
If InStr(Cell, FindWhat) <> 0 Then
Cell.Offset(, -1).Resize(, 3).Copy Range("E" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next Cell
End Sub

As an absolute newbie to macros (I've been using them for 3 days, and it took me an hour to figure out why I was getting errors when changing from column B to column A in the above code - for any other newbies it is the Cell.Offset (, -1) part of the code), I was wondering if it is possible to have this code in a Sheet2, to return data from Sheet1 (I had assumed it would be as easy as changing the code to <For Each Cell In Range("Sheet1!B2", Range("Sheet1B" & Rows.Count).End(xlUp))>) and whether it would be possible to have a search popup box instead of just entering text into a cell (E5 in the above code).

Apologies, I know that this is probably a very basic question, that I could learn with some excel training. Unfortunately this is a smalli... Read more

Answer:Solved: Excel search macro almost solved by an earlier bomb#21 post

9 more replies
Relevance 60.68%

Hi Guys

I have a Excel spreadsheet that has a lot of sheets. On the header sheet I have created a checkbox next to the names of each sheet, say "A", "B", etc

I've tried to create a macro that deletes all the sheets with the checkbox checked but unsuccessful so far. Can you guys please help me?
Also what's the best way to get to the sheet from header sheet without slowing down excel too much please? Hyperlink?macro?
 

Answer:Solved: Need help re Macro in Excel 2003

16 more replies
Relevance 60.68%

Hi All,

First of all let me explain what i do daily. One part of wat i do is.
I pull data from mainframe system and send that information to all the other supervisor in my office.
The information which i pull is not just one or 2, Its almost 50 data information every 2 hours and in a its sums up to 200 a day,
The problem i face is i have to copy every data and paste in a letter and send it its painful to do it for every person working in our company.

So if some1 can help with a macro to do this would be great help reason is i stretch 4 hours extra everyday after my work hours to just do it. so any help will be much helpful.

These are the requirements.

> I have attached 3 excel sheets.
> 1st workbook is "Source file with data from Mainframe system" the information from this has to be auto generated into the second excel workbook file "Letter to be generated". The 3rd workbook is the information is additional information.
>The one which i have attache below is the example of just worker. Similarly there are 18 users information attached int the "Source file with data from Mainframe system"

SHAO ZING B0020 not 100% backdated 4.6
3612315-54012332192 99411 4.69 C 24/03/2012 522460629

> So these information have to present in second sheet i.e "Letter to be generated"
> In the 3rd sheet i have mentioned what information have to auto populated in the second workbook i.e "Letter to be generated"
> Finally . Whe... Read more

Answer:Solved: Need a Macro for Excel document *PLEASE*

12 more replies
Relevance 60.68%

Hi,
I am in some major need of help.

I'd like a macro -- actually a plug in/add-in if that can be set up -- that finds the maximum DPI print quality setting of a worksheet within an Excel workbook (this is the setting under File | Page Setup | Page tab | Print Quality), and will take that max value and make it the default DPI setting for all of the pages in that same workbook.

At the same time, I'd like to have a custom footer placed on all of the pages of the workbook that reads something along the lines of "My footer text - Page x of y".

If possible, I'd like this plug-in to run upon saving of the Excel file.

Thanks very much!
 

Answer:Solved: Excel Macro help needed, please!

16 more replies
Relevance 60.68%

I have no little to no experience with excel Macros or VBA, but I would like to create a macro to count a string of text on every page of my workbook.

Basically, I have 10 separate sheets in my workbook with a list of ID#s all in column B.
I want to create a macro that will check column B for a specified ID# in all 10 worksheets and tell me how many times it showed up in the entire workbook.

Is this possible and if so how? (Please remember I have little to no experience creating macros so very detailed explanation is required).

Thank you
Amber
 

Answer:Solved: Excel CountIf Macro

15 more replies
Relevance 60.68%

I have two questions here.

1. I attempted to debug a macro that wasn't running correctly, which I will discuss in Question #2. When I opened up Microsoft Visual Basic I noticed three things in my Project Explorer.

atpvbaen.xls(ATPVBAEN.XLA)
Funcres(FUNCRES.XLA)
VBA Project(DM LOG 2006.xls)

The third one is the only thing that I know that I have on this file. Can anyone tell me what the other two are?

2. My macro was not running correctly because I have protected my workbook and in my macro I didn't have a code to unprotect and then protect again. I have forgotten how to write such a code, so if anyone can help me on that too I would appreciate it.
 

Answer:Solved: Excel Macro Question

6 more replies
Relevance 60.68%

I'm sure this is a simple task for you boffins out there.

In Col A, I have a list consisting of a series of number ie
24,56,23,98,34,77,01
65,98,12,17,36,99,31
etc
Unfortunately, these lists of numbers are taken from several different sources and some contain spaces ie
24,56,23,98,34, 77,01
65,98, 12,17,36, 99,31
etc
I just need a macro, which I can then assign to a toolbar button, which eliminates these spaces.
All the list is contained to Col A and the number of rows varies from, say, 18 rows up to possibly 25.000 rows.

I'd greatly appreciate any help with this please.
 

Answer:Solved: Excel - Need simple macro

6 more replies
Relevance 60.68%

I've got a problem with a file I have inherited. It is very complex but works beautifully,... until now. The Macro suddenly has a run time error and crashes out on the first line. When I back the data up by one month, it works fine. There is no change in the script at all. The previous manager of this file mentioned something in passing about how the macro doesn't work right if the file is copied (or something like that) for some unknown reason.

Please Advise.
Thanks,
J
 

Answer:Solved: Excel Macro works before, but not now???

12 more replies
Relevance 60.68%

I know this should be very simple, but for some reason I cannot recall how to select last row in Excel.
 

Answer:Solved: Excel Macro Select Last Row

I believe I have figured it out.
Code:

With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
Range("A" & LastRow2).Select
End With
 

3 more replies
Relevance 60.68%

This is my first message to this forums so Hi everyone!

to the point. Im trying to make a macro that will help me submit some information to a database. The information will be put in excel table and then exported to a CRM. So I made a userform with all the textboxes and I need to make each textbox user submited text to be pasted to a cell in the table. Do you have any idea how to make this?

So far Ive written this little code but im stuck:
Code:
Private Sub CommandButton1_Click()
Sheets("Hoja1").Select
Range("B1").Select
TextBox1.Text = Range("B1")
End Sub
Thank you!
 

Answer:Solved: Excel Macro VBA newbie

Try this
Code:

Private Sub CommandButton1_Click()
Sheets("Hoja1").Range("B1").Value = TextBox1.Text
End Sub

Regards,
Rollin
 

3 more replies
Relevance 60.68%

I need an excel macro to move fields from two rows to one row for about 5000 fields.

Example
Current Excel File:

Col1 Col2 Col3 Col4
Row1 ID# Address Ph1 Ph2
Row2 IDName city,st,zip ven#
Row3 <<<BLANK>>>
Row4 <<<BLANK>>>
Row5 ID# Address Ph1 Ph2
Row6 IDName city,st,zip ven#
Row7 <<<BLANK>>>
Row8 <<<BLANK>>>
This continues for about 5000 more fields
Need the file to be
Col1 Col2 Col3 Col4 Col5 Col6 Col7 Row1 ID# IDName Address city,st,zip ph1 ph2 ven#
Row2 ID# IDName Address city,st,zip ph1 ph2 ven#
<<<<Continued for all vendors>>>>

They don't necessarily have to be in that specific order I just want the each vendor and their information on one row.

Any help you can provide is much appreciate.
 

Answer:Solved: Excel Macro Needed!!!

Welcome to the board.

As long as Row1 means Row1 (not first row with data), then:

Sub test()
Application.ScreenUpdating = False
x = Range("A" & Rows.Count).End(xlUp).Row
For Each Cell In Range("A1:A" & x)
If Cell.Row Mod 4 = 1 Then
Cell.Resize(, 4).Copy Cell.Offset(, 5)
Cell.Offset(1).Resize(, 3).Copy Cell.Offset(, 9)
End If
Next Cell
Columns("F:L").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Application.ScreenUpdating = True
End Sub

Try it in the attached, then on a copy (for safety) of your real data.

HTH
 

2 more replies
Relevance 60.68%

I am trying to write a macro that will copy data from on location to another if the value in a particular cell is greater than -0-. Below is my attempt which isn't working. Any help would be greatly appreciated.
MBInDe

Sub testz()
'
' testz Macro
' Macro recorded 10/20/2009 by MBInDe
'
' Keyboard Shortcut: Ctrl+z
'
If Cell("A33") = >0 Then
Range("G6:G13").Select
Selection.Copy
Range("C6").Select
ActiveSheet.Paste
End If
End Sub
 

Answer:Solved: Excel conditional macro

16 more replies
Relevance 60.68%

I am attempting to write a macro that will do the following:
If A2=A1 set B2=B1
At first glance I know what you are thinking; just type that in as a formula dummy. Well, I would like it to run down an entire column of 6000+ entries such that also:
If A3=A2 set B3=B2
If A4=A3 set B4=B3
If A5=A4 set B5=B4
Etc.

I have a macro that I recorded and it gets the job done but
A) It is really sloppy
B) It does not take user selection into consideration such that
If I were to select Column E I want
If A2=A1 set E2=E1
If A3=A2 set B3=B2
If A4=A3 set B4=B3
If A5=A4 set B5=B4
Etc.

Any input will be sooo much appreciated. Here is the code I have right now that has limited functionality:
I was attempting to copy column D on this run.

Sub Macro1()
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.NumberFormat = "General"
Range("D6").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-3]=R[-1]C[-3],RC[-1]=""""),R[-1]C,RC[-1])"
Range("D6").Select
Selection.AutoFill Destination:=Range("D6:6287"), Type:=xlFillDefault
Range("D6:6287").Select
ActiveWindow.ScrollRow = 6251
ActiveWindow.ScrollRow = 6242
ActiveWindow.ScrollRow = 6233
ActiveWindow.ScrollRow = 6224
ActiveWindow.ScrollRow = 6206
ActiveWindow.ScrollRow = 6198
ActiveWindow.ScrollRow = 6180
ActiveWindow.ScrollRow = 6126
ActiveWindow.ScrollRow = 6055
ActiveWindow.ScrollRow = 5922
ActiveWindow.ScrollRow = 5761
ActiveWindow.ScrollRow = ... Read more

Answer:Solved: Need help writing an Excel VBA macro please!

PS I meant

I have a macro that I recorded and it gets the job done but
A) It is really sloppy
B) It does not take user selection into consideration such that
If I were to select Column E I want
If A2=A1 set E2=E1
If A3=A2 set E3=E2
If A4=A3 set E4=E3
If A5=A4 set E5=E4
Etc.
 

3 more replies
Relevance 60.68%

I have a few macros I use for work which pull from other spreadsheets into several cells. So, if I forgot to open these other spreadsheets, the macros not only fails to run properly, but prompts me for the location of the applicable spreadsheets several times.

Is there a way in VBA to have a prompt appear (for those sorts of macros) that reads something like: "Did you remember to open the necessary workbooks?" and runs if I click OK but cancels if I click Cancel or No?

I'm more than willing to do the homework on how to code this myself if need be, but I just want to make sure it can be done and perhaps be given a direction to go in.

Thanks in advance for any help. This has really been a great forum for this sort of thing.
 

Answer:Solved: Prompt for Excel macro

9 more replies
Relevance 60.68%

What is the best way to delete rows where both Column A & B are blank when the workbook is opened?

I have come up with this so far. Is there a better way?
Code:

Sub test()
Dim LastRow As Long
LastRow = [A65536].End(xlUp).Row
For i = LastRow To 1 Step -1
If Cells(i, 1) = "" And Cells(i, 2) = "" Then
Rows(i).Delete
End If
Next i
End Sub

 

Answer:Solved: Excel Macro and Delete Row

16 more replies
Relevance 60.68%

This is just the basics of what I have. For my Macro I am really just recording my actions. I have an equation which I currently copy down. Problem is when I get this report it does not usually end at O1900. It varies every time. Is there an entry I can change to the code which will allow me to range the Final Commission down to the very last cell in column O???? Thanks!!

Company Cost Comm Trade Final Commission
ABC COMPANY $1,500.00 .0100 $.00 $ 15.00
ZDYSD COMPANY $9,301.00 .0200 $.00 $ 186.02
12312 COMPANY $18,700.00.0300 $.00 $ 561.00
ADVANCED COMPANY $2,321.43 .0400 -$124.47 $ 87.88
Columns("O:O").ColumnWidth = 9.14
Range("O2").Select
ActiveCell.FormulaR1C1 = "=(RC[-6]+RC[-1])*RC[-5]"
Range("O2").Select
Selection.Style = "Currency"
Selection.AutoFill Destination:=Range("O2:O1900"), Type:=xlFillDefault
Range("O2:O1900").Select
LastNumber = Range("b1").End(xlDown)
Range("b1").Select
 

Answer:Solved: Excel Macro, I'm Stuck!!!

7 more replies
Relevance 60.68%

Well...I've been reading some of the posts regarding Excel, and it look like Zach is the man!...the expert! Not to say anything less about anyone else.

Anyhow, I'm getting better at my formulas and macors, but I need some help. I need a formula that calculates the anniversary of employee's start date. I would then like the conditional formatting to change the colour to yellow if it's 11 months after their start date...then red if it's on or after their anniversary date.

But wait...there's more...

I would also like Excel to automatically send a reminder email to me when the first condition (yellow) is met.

I've attached the worksheet (not very complex).

Any help would be appreciated.

Thanks!

TBaker14

 

Answer:Solved: Excel Formula and Macro help

7 more replies
Relevance 60.68%

I have a userform that contains a textbox for user entry. What is the best way to determine if the user has just hit the spacebar a few times to enter a blank data in the textbox?
 

Answer:Solved: Excel Macro -> UserForm

I was able to figure it out.

I used the following:
Code:

Len(Trim(Me.Textbox.Value)) = 0
 

2 more replies
Relevance 60.68%

I have Office 2003 and need the code for a sort macro. I need to sort data in the fields from A3-K64 by data in the K column in descending order. I tried the following code, but it doesn't work:
Range("A3:K64").sortKey1:=Range("K3:K64"),
Order1:=x1Descending,
Header:=x1NoGuess,
OrderCustom:=1,
MatchCase:=False,
Orientation:=x1TopToBottom,
DataOption1:=x1SortNormal

Can you help?
 

Answer:Solved: excel macro-sort

6 more replies
Relevance 60.68%

Hi all,
I'm having a few problems with a macro that sorts data in ascending order in a number of different worksheets. I've created ranges in teh worksheets. There are a number of different ranges but I've attached an example of these (ranges "pm" and "rj"). The macor works on the first range but not on the second when it has to switch worksheets - any ideas!!

Private Sub CommandButton1_Click()
Application.Goto Reference:="pm"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A4"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.Goto Reference:="rj"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A4"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
 

Answer:Solved: Excel - Sort Macro

7 more replies
Relevance 60.68%

Hello,
My question is "Is it possible to do what I want to do" in Excel 2003?

I would like to reformat a large list of name and address info from this format:

1. BUSINESS NAME (MILES)
ADDRESS
CITY STATE ZIP
PHONE: 000-000-0000
TYPE OF BUSINESS: XXXX XXXX

TO THIS FORMAT:

A B C D E F G
BUSINESS NAME ADDRESS CITY STATE ZIP PHONE TYPE

I HAVE NO PROBLEM MOVING THE DATA INTO THE DESIRED FORMAT USING A SIMPLE "RECORD NEW MACRO..." THAT I RECORDED.

MY PROBLEM AND QUESTION IS REMOVING THE RED HIGHLIGHTED INFORMATION.
I AM NOT A PROGRAMER AND HAVE NOT FIGURED OUT THE LOGIC IN THE 'VISUAL BASIC'.

I HAVE TRIED MANY "RECORD NEW MACO..." BUT CAN NOT GET IT TO REMOVE THIS UNWANTED INFO.

IS IT EVEN POSSIBLE TO DO THIS WITH EXCEL 2003 ?????????????????????
AS YOU CAN IMAGINE ANY HELPFUL ADVICE WILL BE GREATLY WELCOME.

THANK YOU SO MUCH.
JOHN
 

Answer:Solved: Excel 2003 MACRO HELP

16 more replies
Relevance 60.68%

Hi all,

I have a workbook with two worksheets in it. I have an entry worksheet and a worksheet that I want to display the data I've entered on the entry worksheet. Basically all I want to do is to have a cell value on one worksheet display the data from the other worksheet where it equals the correct date which is in a column and correct location which is in a row. For example:

The data entry worksheet

9-Mar 10-Mar 11-Mar
Location 1 1 2 3
Location 2 4 6 8

I want the other worksheet to display data that corresponds to a specific date and location that I choose. I am familiar with vb and input boxes. I want to input a date and location have the macro go through and find the specific date and location value and place that value in the cell on my other worksheet.

I know this is asking alot but I'm sure it's doable. If anyone has any suggestions, I would be very greatfull!

Thanks to all who read!
 

Answer:SOLVED Excel 2000 need a macro

6 more replies
Relevance 60.68%

can i use code in a macro button to insert and change a value in a cell, what i want to do is set up a macro button so that when it is clicked the value in cell a1 = 1, when it is clicked again the value changes to 2 and so on upto 5, when it gets to 5 a value of 1 is entered in cell b1 and the value in cell a1 reverts back to 0, or is there a different and easier way to gets this to happen.

many thanks
scouse13
 

Answer:Solved: excel macro button

Will you follow the same logic and then move to cell C1 after 5 clicks have been made on cell B1? What exaclty are you tracking?

Rollin
 

2 more replies
Relevance 60.68%

I have a macro in excel which auto fills a specified column with the formula in the first cell.

Assuming that Row 1 contains my headers, the code looks as follows:

Range("M2").Select
Selection.AutoFill Destination:=Range(M2:M1845)

Is there a way instead of specifying the range to ask the macro to just carry on filling the formula until it reaches the end of the data entered, i.e. the last row of data?

I'm sure it was something like Range = xlDown, but every attempt seems to fail.

I am running Excel 2007 by the way.
 

Answer:Solved: Excel Macro Code

Try using

Selection.AutoFill Destination:=Range("M2:M" & Cells(Rows.Count, "M").End(xlUp).Row)

Rollin
 

2 more replies
Relevance 60.68%

Hi there

I have been slaving away for hours trying to figure out the code below:

If Range("C16") > "11:00:00 AM" Then

More code goes here.

It does not work!!

Can someone provide me with the correct VBA code??

Mario
 

Answer:Solved: Excel time VBA macro

If Range("C16") > TimeValue("11:00:00") Then
Msgbox "Have a good birthday, Mario!"
End If
 

2 more replies
Relevance 60.68%

I am trying to figure out the best way to copy a value from one cell, and paste it into another cell as a time value.

The cell to be copied can have values such as:

1152
930
450
0823

What I want to do is place a colon between the first two numbers and the last two numbers. I have code that does this but it fails when there is not a leading zero.

How would I do this be determining if there is a leading zero or not?
 

Answer:Solved: Excel Macro -> Time

Here is the solution I have come up with...
Code:

If Len(wsTest.Range("L6")) = 4 Then
wsTest1.Cells(x, "E") = Left(wsTest.Range("L6"), 2) _
& ":" & Right(wsTest.Range("L6"), 2)
Else
wsTest1.Cells(x, "E") = Left(wsTest.Range("L6"), 1) _
& ":" & Right(wsTest.Range("L6"), 2)
End If
 

3 more replies
Relevance 60.68%

I am trying to find a way to insert a formula to the last row with data using Excel coding.

Here is my layout. I only have three columns filled with data (Columns A-C). Columns A & B are not locked, but Column C is locked.

Here is what I would like to happen. I would like to create some code that after data has been entered into Column B, the worksheet is unprotected, a formula is inserted into Column C, and then the worksheet is protected once again.

Does anyoen know if this can be done?
 

Answer:Solved: Excel Macro and Formula

16 more replies
Relevance 60.68%

Hi guys

I was searching through the forum and found this post:
http://forums.techguy.org/business-applications/851934-excel-search-macro.html

I was looking to use the same code for the search function.

Sub test()
If ActiveSheet.Name <> "Sheet1" Then Exit Sub
LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Sheets("Sheet2").Range("2:1000").Delete
SearchTerm = Application.InputBox("What are you looking for?")
Application.ScreenUpdating = False
Range("L1") = SearchTerm
Range("L2:L" & LastRow).FormulaR1C1 = _
"=IF(ISERR(SEARCH(R1C12,RC[-11]&RC[-10]&RC[-9]&RC[-8]&RC[-7]&RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-2]&RC[-1])),0,1)"
If WorksheetFunction.CountIf(Columns(12), 1) = 0 Then
Columns(12).Delete
Application.ScreenUpdating = True
MsgBox "None found."
Else
For Each Cell In Range("A2:A" & LastRow)
If Cell.Offset(, 11) = 1 Then
Cell.Resize(, 11).Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
x = x + 1
End If
Next Cell
Columns(12).Delete
Application.ScreenUpdating = True
If x = 1 Then
MsgBox "1 matching record was copied to Sheet2."
Else
MsgBox x & " matching records were copied to Sheet2."
End If
End If
End Sub

Can anyone please help me to extend this search function over 24 columns of data instead of the 11 as above?
I have very little knowledge of VBA.

Thanks ... Read more

Answer:Solved: Excel Search Macro

6 more replies
Relevance 60.68%

I regularly use an Excel file with macros, created by me in Excel 95 & now running in Excel 2003.

Every time I open it, I have to click to accept the macros - very boring!

According to Help & various websites, I should be able to add an electronic signature but, dumbness aiding, I can't...

I get to the "Visual Basic - Tools - Electronic Signature" dialog box OK, but it just says "no certificate" twice & if I select "Choose" then I get to a blank space with no available certificates to choose from.

My brain hurts!

Good suggestions very gratefully received
 

Answer:Solved: Excel macro - how to add a signature?

Look for the SelfCert.Exe executable file in the directory where Office is installed. Run this program to create the certification. Once created you should be able to select this certification from within Excel.

Rollin
 

2 more replies
Relevance 60.68%

Hello,
I am an analytical chemist and I am dealing with very large data matrix (11,000 x 3).

I am looking for a macro that can reduce the data in following way

Column 1 Column 2 Value
A, B 1
B, A 1
A, C 1
C, A 1

With a Result output

Column 1 Column 2 Value
A, B 1
A, C 1

In other words in this data set A to B is the same as B to A and would like to delete the duplicate row.

Any help doing this with Macros would be appreciated. You can imagine going through 11,000 line looking for these types of entries
 

Answer:Solved: Excel 2007 Macro help

8 more replies
Relevance 60.68%

Hi there,

Could anyone help me with a formula or macro that will read the data in column A and then display a value in column C in the attached .xls?

EZ-Links would display 5
Hutton would display 3

Many thanks!
 

Answer:Solved: Excel Formula or Macro help please

Place the following formula in C11 and copy down for all rows. Will there ever be any other values that you need to check for?

=IF(A11="EZ-Links",5,IF(A11="Hutton",3,""))

Regards,
Rollin
 

3 more replies