This code calculates a value for column K when you punch in a number in column J (in any rows 17 to 116, separately). The first problem is that when you delete a value out of J, the value stays in K for some rows (where it should only contain a value if J does). I'm guessing it has something to do with the triggering event that I put in bold. Secondly, I need to be able to protect row K at all times from deletion or entering another value. It ONLY should calculate a value based on J. So I need to use the module (below the code) and I want to integrate it into the code or call it in a module. It's not working properly because it prevents ANY and ALL changes, even the ones caused by new values entered in J (which should be allowed). It should only prevent deletion or manually entering a value on the worksheet. So the bottom line is that when you enter a value into J, unless column E says "Annuity" it will calculate using the formula given. If you delete J, K should go away as well. And at no time can you delete or manually change K. And when you switch values in E, it must reloop to check if it says "Annuity" or not, and if not, it must clear J (which clears K).
And lastly, this thing is brutally slow, so maybe there's an easier way to write it. Sorry for all the detail, but I think it's an easy fix for someone who knows programming, but i don't know how to put it together! NML Inventory is the Activesheet.
I have an excel file emailed to me everyday. It is a daily tracking of our fleet and I manipulate it before printing it and giving it to management. I dont know why when I try to record the macro and then use it it hides all columns.
The report has columns A-N. I hide B, F-G, I, M-N. When recording I hide multiple columns across.
I have done similar macros with other reports, no problem.
I wondered if I could pick your brains and hopefully get some answers to my problem. I have recently been using the Personal.xls worksheet to make all my Macros available to all open workbooks so that I don't have to cut and paste Macros each time I wanted to use them.
Now I know you sometimes have to make certain adjustments to Macros in order to make them work globally. I wondered if I could find out how to amend the codes below to make them work properly. Thanks.
The first code Macro below deletes all worksheets in a workbook except for the currently active sheet. However it no longer works.
I have some code (probably a little inefficient, but still) that should delete any rows that contain nothing in column V. My problem is that it only deletes 1 row at a time:
Dim c As Long Dim Limit As Long Limit = Cells(Rows.Count, 11).End(xlUp).Row For c = 2 To Limit If Cells(c, 22).Value = "" Then Cells(c, 22).EntireRow.Delete xlUp End If Next c
Macro which loops through a number of files and calls the same macro in each of them. Unfortunately when I add "Application.Run..." to the code, it no longer loops through the process and instead stops after updating the first file in the loop. If I remove the "Application.Run..." code and add any other code, the loop works fine and it continues through the process repeating all the steps for each file found.
Why it stops after one file when using "Application.Run..." to call the macros?
NB I have a list of path and file names starting in row 8 of columns A and C. Each file in the list has a macro called UpdateS1 and promoupdate1.
Sub C_Run_Loop_Macro() Dim lastRow As Long Dim i As Long
I have two macros that I need to run as one and I am not sure how to call the second macro from within the first. I'm sure it's easy...If you know how... Thank you in advance. -------------------------------------- macro 1 Sub PrintUsedRange() ' Dim ws As Worksheet ' For Each ws In Worksheets Application.CutCopyMode = False ws.PageSetup.PrintArea = ws.UsedRange.Address With ws.PageSetup .Zoom = False .CenterHorizontally = True .Orientation = xlPortrait .FitToPagesWide = False .FitToPagesTall = 1 End With Next ws ActiveWorkbook.PrintOut............
I would like to combine the following 3 macros into one macro. Try as I might, I can not figure out how to do it?
Sub DeleteEmptyRows()
Dim Counter Dim i As Integer
Counter = 5000 ActiveCell.Select For i = 1 To Counter If ActiveCell = "" Then Selection.EntireRow.Delete Counter = Counter - 1 Else ActiveCell.Offset(1, 0).Select End If...................................
I have a userform that has the same type information on 3 different entities (name, address, phone, etc). The same research is required on each one i.e. you need to look up the zip code for each). Therefore I have a bank of buttons on each page of the multipage form. Each button does the same thing depending on which page you are on. The following is my code to copy some information and open another application depending on which page you are on and which type entity.
My question is how can I combine these into one so my module is not 3' long.
Note: It should also be noted that, when "splitting" the macros below up into two different macros, they work, but then I have to play 2 macros when I only want to play one.
Just when I thought I was getting this macro stuff, I've come back to reality. I tried to combine these 2 macros together (taking out 1 "sub" and 1 "end sub") and when doing so, I got the error message
"duplicate declaration in current scope"
I thought about removing some "Dim" lines, but realized that the Dims say different things. For example in macro 1, it says "Dim Rng As Range" and in macro 2, it says "Dim Cust As Range".
I've used a loop in one of my macros and the loop goes on endlessly. I've been trying to come up witha way to overcome this problem but with no luck till now. knowing that I'm new to VBA i decided to turn to the big guns at mr.exxcel to help me out. Here's the code i have. Any alternatives to this would be VERY VERY VERY USEFUL!!!
Sub smalloops() Dim i As Integer Dim compliant As Integer Dim noncompliant As Integer
compliant = 0 noncompliant = 0 For i = 1 To 60
Do Until Cells(i, 2) = ("RECOMMENDATIONS")
Do While Cells(i, 3) 0 If Cells(i, 7) = 1 Then compliant = compliant + 1 ElseIf Cells(i, 7) = 2 Then.................
I have an Excel 2003 program that contains macros. One of the macros hides certain command bars and disables the worksheet menu bar. On close the opposite is true. The problem is, if a user uses the disable macros when opening then the worksheet menu bar and other command bars are still available. I would like to hide all of the data sheets and display another sheet that would normally be hidden displaying a message that the macros have to be enabled for the program to work correctly if disable macros is chosen. When the enable macros are used I would like the Error page to be hidden.
Does anyone have any links to using .find object.find range.find properly? or can explain it?
Basically I have a column of unique numbers... and I have to offset to find what I'm looking for.. however it cannot be done with vlookup because i need it to also go down the column (variable number of entries) to retrieve whatever is under that entry.
Sub ADORUN_CSM_Reg1() ' Justin SQL Server Connection ' ' FOR THIS CODE TO WORK ' In VBE you need to go Tools References and check Microsoft Active X Data Objects 2.x library '
In the Server_name = "SRVREG1" in red above, i would like it to reference a cell...say A30. How is this done?? so that if im on the worksheet called Title on A30 i type in SRVREG1 and the VBA knows what to do from there.
I have a user that keeps a maintenance log in an Excel worksheet and sends an updated copy once a week to a board member. Two weeks ago, the board member started complaining that he was prompted to enable/disable macros on opening and became worried when my user stated that no macros were used in the book. He is now concerned that we have sent him a virus.
I know the file is clean because I've scanned it, and when I look at the file in VB, there are no modules or classes present just the Sheets 1-3 and the ThisWorkbook file. None of these objects have any code in them. My user does have some macros in PERSONAL.XLS but they are not used in the workbook in question.
No one else gets the prompt for enabling/disabling macros. Even if I set my security to prompt for any macros, I get no message. I'm convinced that there must be some setting in his Excel that is causing this individual to get this message. Is there anything else other than a macro that would cause this?
I have formatted cells to date but when I enter in a date of 020413 (Feb 04, 2013) my reslut shows as 11/20/55. I have a coworker who is having the same problem (but hers displays even a different date) so was wondering if there is a setting in excel that I don't know about.
The file is sorted A-Z, but if you scroll down towards the bottom, you will see that some values are out of order. Both instances of University of Central Florida and University of North Dakota are out of place.
University of Central Florida should be between University of California and University of Colorado.
University of North Dakota should be between University of Colorado and University of Southern Mississippi.
I have created a macro 'uid' and rename the module to 'profession'. In the list of macro 'alt + f8' the name displays 'profession.uid' which confuse me. I want to display the name 'uid' and not 'profession.uid'. I select the macro by pressing the first letter of it as in this case 'u' and reach that macro and click it to run.
I'm fiddling with a C# library, trying to learn about including homemade libraries in my VBA code. I've written a simple library, compiled it, and did the COM registration. When I open the VBE and start up a new module, I'm able to find the library in the Tools | References dialog box, and I check it to include it. When I write the code, however, autocomplete doesn't give me the option of any of the definitions I've written into the library, and when executed, I'm getting a "User-defined type not defined" error.
my macro filling down the data properly. I have a table wit headers set up. My macro selects two cells in the first row, and tries to copy it down into the other rows of the table. Instead what happens, the macro copies down the table headers into the two cells that are selected. Here is my code.
I have a user that is experiencing a strange filtering issue within MS Excel 2000. He is working with a database of about a dozen columns and nearly two thousand five hundred rows. Two columns that are worked on for filtering proposes are the Job # and Job Name columns. Initially, the sorting works between the both – meaning if we want to find a particular job by either the name or the number – it is accomplished. However, once we cut (about a couple of dozen rows) and paste a section of rows from the bottom to the very top of all the entries – we discover that a number of jobs do not appear within the filter (once it has been applied again). Is there some type of refreshing that is needed? I have saved the file after the changes.
I have some columns of data that won't get perfectly aligned. The numbers in all the cells are right aligned but the numbers in some of the cells are a few pixels to the left compared to some other cells that appear to be properly right aligned.
I have attached a screenshot if my explanation isn't clear.
