I have attached one excel sheet. I have programmed this in such a way that it always asks the name of the person who opens this excel. Then the name & date with time autometically noted. I have used password "007" in this excel sheet. The code is below:-
View 14 Replies
I have the a file with the below Columnar format:
CoName April May June... till Mar
I have 15 Company Names. I need to create a file for every CoName-Month Combination.
CoName April
CoName May, etc
I do not want to create 15x12=180 files manually.
I want to create a pop up message showing count of cells turned red,each time the workbooked are opened.like column "I" has two dates in red colour,so the pop up will say "you have 2 contracts expired"
View 8 Replies View Relatedi have a column(G) in a spreadsheet active sheet will do. i would like a message box to pop up if nothing is populated in the cell from range g1 - onwards...range does change otherwise keep processing code
View 2 Replies View RelatedWhen the whole row in excelsheet is full for particular date that means all the values of columns (Legal Charge,GA and DNM) have been entered for particular date then display an error message if the another user tries to enter the values for the same date .
It means the user can enter the values for same date only if values of Legal Charge,GA and DNM are empty,otherwise an error message should pop up.
VBA code. I think I need a worsksheet change event. Here is what I'm looking for:
If cell K1 = 3 and if the value of any cell in column A is < 80000 or is > 86666, or if the five digit number begins with an alpha, then a msg box will pop up stating "Invalid range".
More background:
The user will be manually inputting 5 digit numbers into column A, but if they've selected cell K1 to equal 3 from a dropdown menu (which the user also does), then values entered that are less than 80000 or greater than 86666 are 'out of range', and the user should be alerted and if possible the number they entered gets cleared.
Additionally, some of the numbers the user could type in might begin with an alpha prefix, such as "G1234" - these would also be considered out of range when K1=3, so if the conditional statement could also recognize this it would be useful.
Column A will be blank until the user types in the 5 digit number, so the code only needs to trigger if the number typed into a cell in column A is outside of the aforementioned range.
So to sum it up once again, I'm looking for a msgbox (and clear cell) if the following criteria is simultaneously met-
*If K1 = 3 (meaning that K1 equaling anything other than 3 wouldn't cause the msgbox)
*And values typed in column A are less than 80000 or are greater than 86666, or begin with an alpha (meaning that values typed in between 80000 - 86666 wouldn't cause the msg box.)
I am using the following formula and it is working fine. Is there a better way to do so?
=IFERROR(AVERAGEIFS(INDIRECT("Data!$U"&$B$1&":$U"&$A$1),INDIRECT("Data!$A"&$B$1&":$A"&$A$1),">="&D$4,INDIRECT("Data!$A"&$B$1&":$A"&$A$1),"<="&D$5,INDIRECT("Data!$U"&$B$1&":$U"&$A$1),"<>0"),"-")
I am looking for a better way as I have to replicate the same formula in 100 columns and in 60 rows. Where every row use a different target column (like the above mentioned is using column U.
Indirect function gets the values from A1 and B1 cells (Start and end of column because end value keeps changing with data updates)
AverageIfs get average of a particular value between two dates mentioned on top.
i have attachmed excel file. in that file total 8 colums among them i kept 8th colum empty .
but i want name racks in that file. i knw..it will confuses u. but once u see my attachemts u will realize.
eg: if G2 =XA06-G-001 I2 will be XA only..(XA is rack Name)
if G2 =XB06-G-001 I2 will be XB only
if G2 =XC06-G-001 I2 will be XC only
if G2 =XD06-G-001 I2 will be XD only
i mean to say..i want only first two alpabatics of G2 in I2..
How to automatically list down associates if workflow is mentioned in the column? Like in attached sheet, in column B workflow is listed down and in column C name of associates should get populated in sequential manner from column F, G and H. For example A, B, C and D is aligned to workflow X (Treating this as primary source), whenever in column B, workflow X is populated (manually) it should list down list of associates in order - A then B, then C, then D; once cycle completes, it should repeat again A, B, C, and D.
View 1 Replies View RelatedFor Each Ws In Sheets(Array("SHEET101", "SHEET102", "SHEET103", "SHEET104", "SHEET105", "SHEET106", "SHEET107", "SHEET108"))
With Ws
Finalrow = .Range("A65536").End(xlUp).Row
Set CpyRng = .Range("A2", .Cells(Finalrow, "AR"))
If Finalrow > 1 Then
CpyRng.Copy Sheets("Master").Cells(Rows.Count, "A").End(xlUp)(2)
End If
End With
Next Ws
Basically what it does is simply combine all the records in the the mentioned sheets to the master sheet.
There is a little problem. When one of the sheets are on a filtered mode, the data copied in the "Master" sheet are only visible cells.
Un-filtering before copying is an option (i.e. putting the code ".ShowAllData") IF I can put the exact filtering back after copying. Reason being that the sheets are owned by other parties and they do not want their own filtering be removed.
I am wanting to make a macro into an add-in. An add-in is basically a workbook with macros that is opened when excel is correct? I know how to create an additional menu item under an existing one, but I'm wanting to create my own menu with this add-in item under it. I've used this code to try and create the new menu and placed it in the workbook open:
HelpIndex = CommandBars(1).Controls("Help").Index
Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=HelpIndex, Temporary:=True)
NewMenu.Caption = "&Separate Cashiers"
But ran into an error on the first line of code. I saved the workbook with the add-in macro in it as an .xla and used the addins under tools to have it open each time.
is it possible to write a macro that will create a folder labled "2009" then a subfolder for each month with four subfolders labled "Week 1" through "Week 4", and have the "March", "June", "September", and "December" folders contain subfolders labled "Week 1" through "Week 5"?
View 2 Replies View RelatedI'm needing some code that will program-magically do the following interactive stuff:
1. Go to the first cell that will be the start of my range, say "D1".
2. While holding down the "shift" key, press "end", then "down". All of the desired cells will then have been selected. [side note: how can I detect that the "d2" cell is not blank - I don't really want 65K cells in my range?]
3. Next, "Insert", "Name", "Define", then typein the desired name range ("schoolList", here) and press enter.
This would seem to be a case for using the macro recorder but the range will always come out hard-coded, rather than the cells that would be selected using an "end" "down" selection.
I have a UserForm with a CommandButton; when I click on it a function creating dynamic checkboxes on another UserForm is implemented and then this second UserForm is displayed (and the dynamic checkboxes are displayed too).
Code:
Private Sub cmd_BUTTON_Click()
If MsgBox("Are you sure you want to add Dynamic CheckBoxes?", vbQuestion + vbOKCancel, "") = vbOK Then
UserForm1.Hide
UserForm2.Caption = "DYNAMIC CHECKBOXES"
Create_DynamicCheckboxes
End If
End Sub
Code:
Sub Create_DynamicCheckboxes()
Dim CheckBoxTop As Integer
CheckBoxTop = 75
Dim i As Integer
For i = 1 To 10
Set theCheckBox_ID = UserForm2.Controls.Add("Forms.CheckBox.1")
[Code] .........
Everything work fine!!!
Now I have the UserForm2 displayed that include 10 CheckBoxes, which names should be:
chk_1chk_2chk_3chk_4chk_5chk_6chk_7chk_8chk_9chk_10
Why the following code doesn't work???
Code:
Private Sub chk_1_Click()
MsgBox(chk_1.Value)
End Sub
In the new 2007 version , can a specific hot key be created to perform Past Special Values? This key assignment was available in 2003, but we can't find it in the new 2007.
View 9 Replies View RelatedI want a marco for excel which does the following task
There are there are two worksheets namely Sheet1 & Sheet2 in the same workbook.I want to create multiple (new) worksheets in the same workbook based upon the number in cell A2 of sheet1. Further the new sheet that has been created shall be same as Sheet2.
Suppose the value in A2 is 2, then the macro shall create two new worksheets (whose data is same a sheet2).
This might be a little complex to understand but I am going to try to make it clear as to what I am in need of. Basically I have a larger macro that runs and I need to add a pop up that asks for a percentage to be put into a new sheet. The percent is the percent of random rows on the current sheet to be put into a new sheet. Then it would have to create the new sheet with the random information. This is for a audit and we want to have it done randomly and no duplicates. There are no duplicates in the list at this point. The width if needed is from column A to column E.
View 2 Replies View RelatedI write macros that creates a treeview according to data from column "A". In attached example I have series of numbers, that means following:
0 is a root (A1), 1 is its nod (A2), 2 are nods of 1 (A3,A4), three appearance of 3 are nods of 2 (A5,A6,A7) , e.t.c.
It means that I must dinamically to create the loops.
How to make it.
All that I know is a static creation.
I'm preparing a model which has a few macros built-in. Let's call them Macro A, B, C etc. I want to trigger them via buttons on a custom toolbar (no problem) which a recipient of the model, on another PC, will be able to see (problem).
It was suggested to me that in Customize mode I can right click the custom toolbar and then click "Attach..." but this always causes Excel (2002) to freeze; I must then close Excel.
Someone else suggested that a better way is to have VBA code create the toolbar "on the fly" automatically when a recipient opens the spreadsheet. This is too advanced for me to write at the moment. Could someone give me a steer?
i am SAP developer and i m working on SAP - excel integration. i am fetching data from SAP tables in to excel and in each row of the excel i want to create a dynamic list box and populate dynamic values.
i know the logic for data fetching but not logic for cretion of list box dynamically and handling events of dynamic list boxes..
I just realized that after create 1200 checkboxes using VBA then excel will prompt an error. Something like object automation bla...bla....bla. What Is the shortest code with VBA to create 2000 checkboxes? I run copy paste function with VBA but seems not working well.
View 7 Replies View RelatedI need a macro to copy the data from the rows in Sheet3 into a specific place on "Sheet2" (Column "C" to E10 on Sheet2, D to E11, Q to E12, R to M12, S to T12, G to Y26, H to AF29, M to AF30, N to AF32, and lastly the current date to AC10) then rename the sheet to the Value of "E10" on that sheet then Copy that sheet to a new workbook and then clear the data on "Sheet2" so that only the information that was on the sheet before the data transfer is left and reset the name back to the original. My problem is i'm going to need this macro to do this for every row of data (Customer) that is in my list range of B10:R2114. So i'm looking for maybe a macro that loops an amount of times equal to the counts of data in the address range
=count(D10:D2114)
I have a macro that Creates a new workbook (which you name and place, which is good) and then copies a specified sheet over to the new workbook. I hope I wasn't to convoluted in what I'm trying to accomplish. heres the current macro I'm working with.
Sub copySht()
'declare the variables
Dim wb As Workbook
Dim ws As Worksheet
Dim fName
With Application
'prevent unnecessary error messages
.DisplayAlerts = False
'switch off screen updating to speed up code and prevent screen flickering
.ScreenUpdating = False
Trying to automate footer creation, center header sets ok then errors out on left footer with
Runtime error 1004 : Unable to set LeftFooter property of the PageSetup Class
if I comment out the left footer line the center sets ok then stalls with the same error on the right footer
VB:
For Each WS In Worksheets
With WS.PageSetup
.CenterHeader = "&""Calibri""&22 &B" & msg9 & vbLf & "&14 &B" & msg1
.LeftFooter = "&""Calibri""&11" & msg2 & " " & msg3 & vbLf & "Owner: " & msg8
.CenterFooter = "&""Calibri""&11" & msg4 & vbLf & "&11 &B &K4a0c80" & msg5
.RightFooter = "&""Calibri""&11" & msg6 & vbLf & msg7
End With
Next
I would like the individual cells of C1 and D1 to allow me to input values up to 100. The tricky part is that if D1 equals 100 I would like C1 to be less than 100 and vice versa, if C1 equals 100 then D1 should equal less than 100.
Ex. C1 = 100 & D1 = 10
This should never happen: C1 = 100 & D1 = 100. I would also like an error box to show when either of the cell values exceed 100.
What I am looking to do is have a calendar on a worksheet that populates with dates from multiple worksheets across the workbook. I've got approximately 15 worksheets to pull dates from. Within each worksheet I have a table with 5-10 check options (Form control check boxes). When an option is checked, several dates appear going across the rows on the table. The dates in each row have several date ranges. For example, if I check option 1, I will get 4 separate date ranges of varying amounts of time. I would like these date ranges to then populate on the calendar. All worksheets should populate the same calendar. As each worksheet may have similar options, I would like the listing on the calendar to state Worksheet Name - Option Name for it's entry onto the calendar.
I've looked at the design of the calendar provided by Pete_UK and it looks like something that would work for me.
I've included a condensed version of the spreadsheet I am working on as well as the calendar created by Pete_UK.
How to create an audible alert in XL. To be more specific, I would like the system to alert me on various due dates for the data entered. The key filed is the DATE. The due dates for re-validation could be between 07 days to 3 years.
View 2 Replies View RelatedI need to create a lot of web queries to extract data from several webpages. The web pages all have the same url except the last string of numbers, e.g. ww.somewhere.com/lookup.html?type=[x] where [x] is just one or more integers that are in sequential order.
I want to create around 50 web queries (maybe more later) without doing this manually. Is there any way to put these urls in a column and have excel read through them and query the data?
I have an excel workbook with 2 sheets.For now, the first sheet is blank and the second sheet is a "standard" form we use at work.Now by doing this by hand, we have to change 4 individual cells, print it out, change the 4 cells again and so forth, which is tiring and time-consuming.Imagine having to do this ~90 times/day average.Here's the real question.
I want to be able to input my data on a sheet with this format:
ROW A: TEXT1
TEXT2
...
ROW B: DATA1
DATA2
...
ROW C: BLEH1
BLEH2
...
ROW D: BLAH1
BLAH2
...
Data is plain text, no formulas, no nothing.Plain simple text.What i want to do is, or at least i hope to, is as soon as i am done,i want excel to create a new Sheet with the name of the text input from row A (create a new sheet for every single data input though), copy the "standard" form from sheet2 and change the necessary cells provided from row b, row c and so forth.
So if my input is: NWS1790 XX-AAA RHO 155
I want it to create a new sheet with the name nws1790 by copying a pre-existing sheet but replacing certain cells with XX-AAA, RHO, 155.
For each new case they have a spread sheet that they edit - I would like for this spreadsheet to lock a month after it is first edited/updated.
View 2 Replies View RelatedWhy does the following code give me a runtime error on the first statement?
Code:
Sub pt()
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"'Data-Consolidation (2)'!Source_Data", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="Data-Consolidation (2)!R1C6", TableName _
:="PivotTable9", DefaultVersion:=xlPivotTableVersion12
[Code] ............
