How I can calculate the average fix time for each error code. The fix time will not be counted if it doesn't have a fix time. The distance between errors is not always the same, and the fix time is not the same.
How can I:
-Search through the Fix time and essentially add one to the count (only when it requires fixing)
-Only count the fix time for the previous error that has occurred.
-I have tried different combinations of using the MATCH and INDEX formula but have only received errors
-I can add additional calculation cells
-I can use VBA(although it will add to the already fairly long run time)
The below sheet sometimes returns blank (“”) cells in columns C:F. I’m looking for a code that hides the rows 113: to 117 when column C:F (all of them) are empty (“”) for that row. In the above example rows 115:117 should be hidden....
I have several groupings of rows in worksheet. I need to have each separate grouping be able to automatically expand or collapse based on a value in each group.
What would be disabled that is preventing me from adding attachments to my posts? I click on the paperclip and the button "Manage Attachments". Nothing happens.
Code is supposed to export a selection of the worbook to a pdf in the workbook folder, and attach the file to an email, generating to/cc/subject/email dialogue. which it does.
it is also supposed to attach the file to the email, which is doesn't.
My "Drawing" is embedded on Sheet1, later on in Sheet12 I click a button that'll send an automatic email to a user. I want to attach the embedded PDF onto this email if it is at all possible??
Code: Dim Drawing As Object After I've declared my variables I've tried setting the variable "Drawing" to the object, this is where I'm encountering my errors mainly "Type Mismatch" or Object Variable not set...
Code: Sheets("Menu").Visible = True Drawing = Sheet1.Shapes.range(Array("Drawing")) Selection.Verb Verb:=xlPrimary Sheets("Menu").Visible = False At the bottom of the code, this is where i pull in the object
When you click on Cell C5 (which will say "ADD") I would Like the (Computer Browse Menu) to appear you can then search for the file and press Attach
This will then create a hyperlink in that cell (or in a different cell) Saying "File Attached" when you click on "File Attached" it will then open that file
I completly lost on how to do this but here is the formula i have so far when it comes to click on the cell
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim arrValues If Target.Count > 1 Then Exit Sub If Intersect(Range("C5:C5000"), Target) Is Nothing Then Exit Sub End Sub
I have created a workbook and made a custom toolbar to perform the macro functions for the sheets in the workbook. Everything works great for me, but I want to attach the custom toolbar to the workbook so that whenever someone else pulls up the workbook they pull up the custom toolbar too.
I used the tools menu, clicked customize, toolbars, attach, selected the custom toolbar and clicked copy.
No toolbar appears.
I can select View, Toolbars, and select the custom toolbar, then the toolbar appears, but when I close the sheet the toolbar remains.
When someone else opens the sheet, the toolbar appears without any "buttons." It is an empty toolbar.
The help text isn't helping because the instructions for attaching a custom toolbar to a worksheet (tools/customize/toolbars/attach/copy) do not attach the toolbar to the workbook.
i've got an excel workbook called..lets say.. "Database"..it contains spreadsheets with lots of exciting data..and Users view(and occassionally add to) this data through a variety of userforms.
what i'd love to know is whether theres any way to "bind" userforms to a specific workbook? i.e. can i make it so my userforms "MIGHT" be displayed (might bcos it depends on the users selection)...while "Database is the active worksheet".....but not displayed if it isn't...e.g. if they open another excel workbook..
at the moment my userforms are present in every excel project (while Database is open and the forms are being used), which is clearly bad since they block half the screen....
does anyone possibly know how to have Userforms only show up when a specific workbook is being used?i've been stuck on this for a couple of days now and its driving me crazy.
equally if you don't think its possible, i'd love to know so i can stop wasting my time on this....there is a way around the problem..but it involves putting my "Main Menu" -which opens all my userforms- as part of an excel spreadsheet instead of a userform..and having it userform based just makes it look so much better.
I have a combobox with a list of about forty items. I would like each item on the list to run a different macro if selected. How would I attach the macros to each of the separate items?
I'm trying to send a few emails with some .txt files attached. It is sending the emails, along with text files, but the data within the text files are either missing or giving me weird Chinese symbols.
Here is the code:
[Code] .....
As I said, the email is sending no problem, with files attached, but the data within the files are corrupted. I've checked, and the links are referencing the correct files.
Any ways to automatically send emails using Lotus Notes.
On Lotus Notes, I automatically have my signature to append to an email, however when I am running Johns script at the bottom it is replaced with the file path of my signature (i.e. C:Program Fileslotus otesdatasig.htm), and when I comment out the part where strSignature is mentioned there is no signature.
My code is below:
Sub mySub() Dim x As Integer Dim UserName As String Dim MailDbName As String Dim Recipient As Variant Dim Maildb As Object Dim MailDoc As Object
I managed to create the attached macro with help from stuff I've found in the internet. With this code, I am able to save the file and then send an email cia Lotus Notes. I need two things:
(1) The code to attach the file saved into the email that it sends
(2) The code so that the file is protected so that changes are not made by the recipient.
HERE IS THE ActiveSheet.Copy ActiveWorkbook.SaveAs filename:="V:TFMCO8 ReportingHistory" & [c22].Value & " " & Format$([c20], "- (YYYY-MM-DD)") & ".xls" ActiveWorkbook.Close False
Dim Maildb As Object, UserName As String, MailDbName As String Dim MailDoc As Object, Session As Object
Set Session = CreateObject("Notes.NotesSession") UserName = Session.UserName MailDbName = Left$(UserName, 1) & Right$(UserName, _ (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" Set Maildb = Session.GetDatabase("", MailDbName) If Maildb.IsOpen Then Else: Maildb.OpenMail...........
I am trying to attach a hyperlink to a command button in excel 2003. I open the control toolbox, select command button and place it on the worksheet. with the button selected and in design mode I click on the hyperlink button on the toolbar and allocate the hypelink address. Click on the button and it works fine untill I exit design mode then the button stops working.
I've created an excel workbook with multiple sheets. One of the sheets is the "Master Sheet" and I used the formula =INDIRECT("'Master Sheet'!A"&ROW(A2)) so that columns A and B on every sheet match exactly what I input into the A and B columns on the Master Sheet. I used this formula because it would allow me to insert rows on the Master Sheet and have that reflected in the other sheets.
However, I've realized that this means the data I am inputting on the other sheets gets misaligned because if I make a change on the Master Sheet it the A and B columns on the other sheets, but all the rest of the columns on the other sheets stay where they are. How to make the rows shift up and down together on the other sheets.
After programmatically creating a new activex checkbox, I want to create a sub for it's click event. I have given the object a name, and fortunately the code for it's click event is a one-line call of another sub, but how?
The sub would look like the following except be named after the new control (obviously), and yes, it is just the number in the name that changes:
I am currently attempting to use an excel macro to allow me to send a list of files to one person. I have managed to create a dynamic list where one sheet of the workbook has the list of files and checkboxes, and as certain ones are selected they appear in a list on the 'front sheet' of my workbook, which has the button to send the email.
My front sheet is set up in a way that in cell B3 I have the desired email address, B4 contains the subject and from B5 to B30 I have the list of selected attachments (although the length of the list obviously varies depending on the amount of files selected, when all are selected the list extends to B30).
I have the below vba code that allows me to create an email with the address and subject and attaches the file address from cell B5, but I would like to attach all the files in the list and am struggling to change the code to do so.
Code: Sub CreateMail()
Dim objOutlook As Object Dim objMail As Object Dim rngTo As Range Dim rngSubject As Range Dim rngAttach As Range
Set objOutlook = CreateObject("Outlook.Application")
[Code] ........
I can add more by creating new ranges (rngAttach1, rngAttach2, rngAttach3 etc) and setting these to their respective locations but if, for example, only two files are selected, the list only covers cells B5 and B6, so when the macro looks up the file directory in B7 (rngAttach3) it returns an error because obviously there is nothing for it to find.
I have attempted to compile a loop and change the code to the version shown below but am having no luck.
Code: Sub CreateMail()
Dim objOutlook As Object Dim objMail As Object Dim rngTo As Range Dim rngSubject As Variant Dim rngAttach As String Dim iLoop As Long
I have a long row of data with words/numbers in each cell. Whenever I see a cell starting with W, I want to add up the value 2 cells to the right of that cell starting with W.
For example, if these following 9 cells in the same row read W1, 90, 100, M2, 90, 100, W2, 90, 40, whenever the cell starts with W, I want to sum up the value 2 cells to the right of that cell starting with W. In this case, I am adding up the values 2 cells to the right of W1 and W2, which is 100 + 40 = 140. How can I do that?
Is there a way to activate a Macro with a conditional in one of the cells? It's like this, I want that if the content of A2 changes to "True" then C2,D2 and E2 change to bold and the background color change to yellow. Is there a way to do this?
on the "all data" sheet, there are two rows that have a Y for file missing - these are to be marked, so that they may be focused on finding their file
currently, i am doing as such and then filtering by that column to print out a list, and would like a simplified solution (populate sheet "missing") with just those rows who have missing files - so that another user may easily view such data without having to fondle around with the master list
I'm building a complete part number reference for all service parts of copiers of a certain brand. Every row contains three columns; partnumber, description and machine type. Problem is, some parts are used in more than one machine. When the list is complete I want to do the next: If partnumber in (column A) is found in more than one row, I want to join the information of the other columns in two cells. (see attached example).
I have this file where i delete columns which are extra, in my real file most of the cells are formulas or links . Basically i need a macro which looks in row 4, and if it finds any zeros ( number 0 ) in the cell it deletes that whole column. The zero is a indicator for me when i work on these files if it is needed or not. Included the file as an attachement.
I have a list of numbers that is imported and converted to text. I need to have all these strings beginning with zero "0" except the ones that begin with 1. To summarize:
If the string's first caracter differs from "0"(zero) and differs from "1"(one) than prepend a "0"(zero). If the first caracter is 0(zero) or 1(one), leave the string as it is.
I am attaching a xls file with 2 columns: Column 1 is how the list is now and Column 2 is how I need it to be.
Can I program column B to show a certain value depending on the presence of a string of text in column A? For example, if A1 contains the word "Barbie", then cell B1 shows the value: "Ken"
I have a spreadsheet which has general usage and summary data at the top for ease of use. Begining at Row 15 the data is a standard table which includes columns for the following.
Cust Name | Status | Loan Amt | etc.
I have created a macro to make it easier to add new data rows at the top of the data already in the file (this makes it easier to view with the newest data at the top). I would like to create a conditional sum of the data in "Loan Amt" if the value in "Status" ="Active". I had no problem achieving this with the conditional sum tool but the problem is that the range changes whenever a new row is added to the top of the list. Unfortunately the range in the conditional sum adjusts as the old data shifts down for the new row and the sum does not contain the new row data.
I want to add to it so that if the "Name" entered into the target cell is longer then the maximum allowd length it inserts an abreviation of the words (and increments where nessisary)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error GoTo StandardName If Target.Address = "$B$4" Then Sh.Name = Target Exit Sub StandardName: Sh.Name = "Sheet1" End Sub
I want to create a 'virtual switch' so that if I change one cell from 1 to 0, that a formula in another cell becomes active. I can't just have the formula cell * the 1/0 cell, I need to comment out the formula or it draws in too much data.
