I am trying to write a procedure that takes the value of one combo box ( a string) and based on that value compare a range of values to populate a cell with a tax bracket. So if the value is say "Single" it will then go look and see if income is between 0 and 7825 or 7825 and 31850 etc to populate a cell on the worksheet with the appropriate tax bracket. I then need to do the same if the combo box value is married, filing jointly, etc.
View 9 Replies1st - Need a macro to change a range of cells colours based on a single cell having a value greater than 0.001. ie. cells A1 - G1 need to change to grey based on cell F1 having a value greater than 0.001 entered in it?
2nd - Also a macro for deleting the text contents of cell C1 based on cell F1 having a value greater than 0.001. Therefor if cell F1 has a number greater than 0.001 it changes the colour of celss A1 - G1 and also deletes the text in cell C1?
Essentially, I am working with a database for a school and up until this point, each row matches up to a student with a bunch of information on them. One of these pieces of info is their parent's names. This is a much simplified look at things, but the screenshot below is a basic version of what everything looks like:
Now, the school wants me to split up the parents names from the student's and place them in their own row. I have recorded a macro to do this where you make the active cell the "full name" column for the row you want to expand, and then run the macro. Afterwards, up to two more rows are added, with the parent's names and some data copied. Below is a screenshot of what that looks like: (yellow is the new data generated, and blue is the active cell I marked to run the macro properly)
The issue is that there are thousands of these that need to be done, and I figured there is a way to do this with a macro. The issue is that not every row has parents names to expand out.
In layman's terms, I need a macro that will look at the two columns titled "Father's Name" and "Mother's Name" on each row of the spreadsheet and then, if there is any data in both or either of them, it should set the active cell to the "Full Name" column for that row then run the macro accordingly. After that it should repeat this all the way down, skipping any where neither of the columns have text in them
In the actual spreadsheet, the columns that need to be checked are AW and AX, and the column that needs to be set to the active cell before running the macro is B.
What I am trying to do is having rectangles show up and disappear based on whether the value in the cell is a "0" or a "1". This is simply being done by using a macro to change the transparency to 100% or 0% depending on the respective value.
Here is the macro:
VB:
Sub GF6_1()
If ThisWorkbook.Sheets("Sheet1").Range("U6").Value = "1" Then
ActiveSheet.Shapes.Range(Array("Frame 15")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
[Code] ....
This works, but only halfway. I put my "0" or "1" in the cell but I have to manually run the macro each time. Based on my value, the rectangles appear and disappear as expected.
However, I want to be able to run the macro automatically every time I enter a value in the cell! Perhaps have the adjacent cell use an IF formula and be able to execute the macro?
I'm fairly new to using VBA and have come into what is probably a simple problem to solve. However, I am looking to sort out my code.
VB:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$H$3" Then
Select Case Target.Value
[Code] .....
From the above the macro runs only with the Range H3, I would like have this code operate for the Range H3 to H10... I can't quite get it to work with a few formats I have tried.
I am working on a VBA code I found online. That will download a photo from a designated URL and input the photo in to a cell.
I am attaching a spreadsheet which has a URL in Colum C2 I would like to download the photo via the macro and input the photo based on that URL in to Colum b2.
I was using the following code
[Code] .....
However I am getting a weird error result.
I have a data set that id like to sort via macro. The first two fields are not relevant to the sorting proces.(Column A & B ). Column C contains totals some are zero, some are greater than zero and some are less than.zero. I have a macro which I use for many reports that sorts based on Autofilter but I dont know how to change it so that I can use less than, greater than and = to 0. Below is my attempt which didnt work.
View 9 Replies View RelatedI'm trying to adjust my macro to fill the interior cell color of a row if there's a non-blank row above and below it (i.e. if there are 3 or more non-blank rows together, then fill the 2nd, 4th, etc. rows. If there are only 1 or 2 rows together, then don't fill the cells.
However, what I'm getting is filling ever other row, with this code. There seems to be an error in how I'm trying to use and If condition with 3 criteria.
Code:
Sub colorin()
Dim LastCol As Long
Dim r As Integer
r = 6
With ActiveSheet
LastCol = .Cells(5, .Columns.Count).End(xlToLeft).Column
[Code] ....
Here are some sample results (pretend cells with red text are actually cells with interior color, black text is an unfilled cell).
Rank
Name
1
Jones, Some
[Code] ......
What I'm trying to achieve is: (again, red text actually represents filled cells - can't get sample shot of actual filled cells to copy into forum post).
Rank
Name
1
Jones, Some
[Code] ...........
I am trying to insert a static date in eg. Column e only if the same row in column A is not equal to zero.
View 2 Replies View RelatedI need to insert blank row/s between the missing dates and fill the missing date & corresponding employees name. Let me explain in detail,
I have a start date in Cell E1 and end date in Cell G1. Need a macro to verify the date range in Col A with these start & end dates and insert blank row for missing date corresponding to employee names in Col B. This should be repeat till last used row of the sheet. Attached sample(Before&After) workbook.
Both missing date and respective names to be filled in the newly inserted rows.
I have 5 opened files. I have copied into those files a set of formulas from my master sheet (with the macro). In A3 of ALL the open files, there is a date (ex. Date: 1/4/2014) Based on that date I want to copy the result of what I copied into the files (below is the code that I used to copy into the open files, maybe I could add something to create a named range of the resulting paste) back into the master sheet into a tab called 2014 and into a cell two cells below the cell in row 12 with the MATCHING date.
View 14 Replies View RelatedI have a comparison macro that compares one sheet with the next, it is called sub comp1 (). There is a condition whereby columns must be removed before sub comp1 can run. To remove these columns I run the macro called sub colcut (). What I need is the following action:
If cell BJ4 of current worksheet = "RE COMMENT" then run sub colcut () followed by sub comp1 () otherwise only run sub comp1 (). FYI The macro is to be run manually via a button rather than triggered by the value of the cell.
I have to make eighty to ninety entries daily in Column B. Then transfer these entries to another column N,(by copy/paste) after that a maco "text to column" is executed. Now I have linked Column B to N like =B2, =B3, etc. etc. thus instead of copy/paste, the data when entered in Column B, is automatically going to Column N. I wish that the macro (text to entry) may be executed by each entry made in Column B. Is it possible with a macro?
View 7 Replies View RelatedI have a spreadsheet that I need to cut and paste data from one tab to another but only from columns B:K (as the spreadsheet has formulas that can not be alterred after column K. It must also paste that data for the hidden columns.
The condition on the data to be pasted in based on the tabs along the bottom.
So for example, anything that says Corn Products needs to be cut from the "standard customers" tab and moved to the Corn Products tab, and so on for the additional tabs.
I then need to un-check (hide) Blanks from the filter on the Standard Customers tab.
If possible, I would like run the Subtotals function in this same macro; the conditions for that are as follows
For each change in Shipper, Subtotal Billing for <<month>> (Column S)
Page break inbetween each Change in Shipper, then I would also like each subtotal figure bolded.
Also, this is something I must do every month, and each customer may have more or less lines or no lines at all in any particular month.
Currenty i am designing accounting related excel design. In that i need one macro for entering the value in a table based on some condition. I explaine the concept behind this, could some one able to help mean please share the information
I have a xls worbook with two sheets.
in the first sheet contain the column for entering the values.
in the second sheet having one small table withdate and Numbers.
i need to enter the values in the first sheet S.NO, Date and Value. when i enter the value in the first sheet, the date and S.No is compared to the second sheet table Date and the S.No and the value should be placed in the appropriate cell.
I want a code to Hide the row if "sum of numbers in columns three thru last column" = 0. Following is a code I use to delete a row if that is blank. The difference here is that I dont want to to check first two columns and I want to hide them rather than deleting.
View 4 Replies View RelatedI need a quick macro to duplicate based on specific cell value in column D. If the value is 3, then I need the line to be copied three times and then change the original value line to an incrementing value.
Starting Data:
A_______|B_____|C_____|D_
CompanyA FacilityB Group1 qty3
CompanyA FacilityB Group2 qty2
CompanyA FacilityB Group3 qty4
CompanyA FacilityB Group4 qty1
CompanyA FacilityB Group5 qty5
End Result:
A_______|B_____|C_____|D_
CompanyA FacilityB Group1 001
CompanyA FacilityB Group1 002
CompanyA FacilityB Group1 003
CompanyA FacilityB Group2 001
CompanyA FacilityB Group2 002
CompanyA FacilityB Group3 001
CompanyA FacilityB Group3 002
CompanyA FacilityB Group3 003
CompanyA FacilityB Group3 004
CompanyA FacilityB Group4 001
CompanyA FacilityB Group5 001
CompanyA FacilityB Group5 002
CompanyA FacilityB Group5 003
CompanyA FacilityB Group5 004
CompanyA FacilityB Group5 005
I have a data which i need to total based on document types.
Document types in cells are AB=CELL A1, ZR=CELLL A2, ZP=CELL A3,
SK= CELL A4.And amounts in rows 555=CELL A1, 625 = CELL A2,
725= CELL A3, 925=CELL A4 and so on.
My challenge is to get all the total of ZR,SK,AB type of documents using macro.Initially i used this formula, however now document types are more than one.
=SUMIF([Book1]Sheet1!$C$2:$D$4,"zr",[Book1]Sheet1!$D$2:$D$4)
I have 2 option buttons linked to cell A1 and I want to run a different macro based on what A1 shows. The code I've been trying is:
Code:
If A1 = 2 Then
Application.run "ship1"
ElseIf A1 = 1 Then
Application.run "ship2"
End If
Using this runs neither of the macros though. I've tried a few different things and still no luck.
I am trying to create a macro that runs only if the user has selected a cell in column "D". I want it to fill in the background color of the selected cell and then make the value of column "M", row "whatever row the selection is on" = 1.
How to change the background color, but am unsure how to accomplish the other two tasks.
Code:
Sub Macro1()
With Selection.Interior
.ThemeColor = xlThemeColorAccent3
End WithEnd Sub
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value = 4 Then
Call CBLPH
[Code]....
I am trying to create a script that will start a specific macro based on a cell value. I have a drop down menu with 16 options. so if cell A1 = 4 run one macro. if cell A1 = 6 run a different macro.
I have a macro written that pulls data off another workbook and places it on a sheet on the my main workbook. The macro is set to auto filter based on whats in Column 1. The code for this is below:
ActiveSheet.Range("$A$1:$AE$46303").AutoFilter Field:=1, Criteria1:= _ "201504"
Now what I was wondering is there a way for it reference say cell I12 on sheet2 in the main workbook and pull that data instead when the macro is run via a button. The number listed is a date code so say we change it too "201503". I would like to pull all those dates instead of the ones for "201504".
I have a macro that runs in Sheet 1 and enters the word "Complete" in cell P of the active row. The same cell that requires the word "Complete" in Sheet 2 is in cell T of the active row. Is there a way to have the same shortcut that will identify which worksheet it is in and go to the appropriate cell?
Code:
Range("P" & ActiveCell.Row).Select
ActiveCell.FormulaR1C1 = "Completed"
ActiveCell.Offset(0, 1).Range("A1").Select
I am trying to improve a process for someone in my workgroup to save a lot of time when reporting performance.
I have a spreadsheet with a drop down list of names. When I select a name from the drop down list I would like to copy a range of values on another sheet and paste special value a few columns over on the same sheet. I would like to have this only happen for the range of vaules on the row that correspondes with the name that I selected from the drop down list on the original sheet.
I Need a macro which has to get left() value based on the value from Column "o"
(ie)
If Column "O2".value = 17 then =LEFT(A,4)
Else
if Column "O2".value=18 then LEFT(A,5)
Else
if Column "O2".value=19 then LEFT(A,6)
Else
if Column "O2".value=20 then LEFT(A,7)
Like this i need to check more than 20,000 rows in one sheet like this 10 sheets/
I am trying to create a macro based on events. The event should be triggered as soon as the user leaves the cell by clicking on a different cell or by using the arrows on the keyboard. So if the user type SONY in cell A1, A2-A10 will be populated right on the spot automatically based on the word Sony, for example A2 will have electronic populated automatically, A3 will have Japan...and so on
If the user enter GMC instead in cell A1, A2-A10 will be populated right on the spot automatically based on the word GMC. A2 will have Automaker populated automatically, A3 will have USA, ...and so on.
After I created a small VB sample it looks like I need to press the execute button every time to run the program in VB instead of triggering an event automatically.
Here is a small sample I am using to test:
Sub test()
If Range("a1").Value = 10 Then
Range("c1").Value = "Yes"
Else
Range("c1").Value = "No"
End If
End Sub
can i use a combo box with a dropbuttonclick to run the macro only when the arrow is selected . The problem I am having is the macro will run on the selection of the arrow which is whatt I want but it also run when I make a selection it the combo box
I am using data validation to restrict the number of Characters a user can input in a range of cells. The number of characters in this however can vary based on which selection they selected in a different cell.
To put this as an example, if the user selects "hello" in cell a1, the data validation would allow 10 letters in the cell range c1:c20. If the person selects "goodbye" in cell a1, then the validation would only allow 7 characters in cell range c1:c20. I have been using the worksheet Change function, however it updates the validation regardless of what cell is changed.
I have a drop down list made from the Forms toolbar with a list of items: 1, 2, 3, 4, 5. I have set it with a linked cell, so when you choose, say 3, from the dropdown, 3 appears in B10.
I was hoping to add a 'Go' button, which would run another macro depending on what is in B10, i.e. so if 3 was chosen, then you press 'Go', Macro3 would be run.
So I have 5 macros called Macro1 - Macro5, and I need some code for the 'Go' button which will run the right macro depending on what number is in cell B10.
I have ahseet with the following columns:
Col 1 = Item Description
Col2 = Price
Col3 = Discount Rate
I would like to gather a count on another sheet of all instances in col 1 where it is equal to 'Fridge' I know I can use the SUMIF function but I would like to do it in VBA code.