I am trying to take some action based on the string values in selected cells. Here is my code to iterate through selected cells and count the occurances of certain string values:
Private Sub TakeAction() Dim cel As Range Dim sel As Range Dim complete As Integer 'a counter for completed Dim pending As Integer ' a counter for pending Dim cancelled As Integer ' a counter for cancelled Set sel = selection For Each cel In sel If cel.Text = "Some text" Then complete = Complete +1 If cel. Text = "Some other text" Then pending = pending +1 If cel.Test = "Yet some other text" cancelled = cancelled +1 End If End If End If Next cel
MsgBox complete MsgBox pending MsgBox cancelled End Sub
My current project involves sorting a spreadsheet, selecting specific qualifying data from the sheet, storing it into a variable, the pasting the individual values from the list into individual cells on a different sheet within the same workbook. Here is the code I have so far...
Code: Sub Test() '' freeze screen updating to remain on main worksheet Application.ScreenUpdating = False '' move to Avaliable worksheet [Code] ..
When this code runs the first item in the list pastes into Sheet10 A1, but no other values from the list are placed into Sheet10. Previous to this I had been using a variation of this code to push the list into a combobox list within a userform. In that case instead of
Code: ThisWorkbook.Worksheets("Sheet10").Range("A1") = x
I had
Code: Combobox1.list = x
And this worked perfectly; creating a list within the combobox (in fact I can use this modification to interrogate my code to determine if the list is being properly generated, and it is).
Code: Sub SplitApart() Dim data As String data = Sheets(1).Cells(20, 1).Text For Each EachSplit in Split(data) n = n + 1 Sheets(1).Cells(20, n + 1) = EachSplit Next End Sub
Error code when Debugging on "Split":
"Wrong Number of arguments or invalid property assignment"
I have a range of cells that I want to watch for a change in contents. If any cell in the range has a change in contents I want to launch a MessageBox that asks if they wish the new value to be entered automatically in all of the other cells in the range. Example: Range = B8:M9
User changes F8 from "empty" to 38. MessageBox should launch asking if they want 38 to be entered into all of the cells in the range. Upon answering yes new contents of F8 should be inserted into the rest of the range.
In all the cells in column F I have a validation list with several predefined choices, but at the bottom of this list I want an "Other..." option, which when chosen, enables the user to enter a new string in that cell if none of the predefined did not match.
Working with a scheduling report and trying ultimately to get it down to a line item report with the associate information and their earliest start and latest end for the week. Already made a lot of fixes to the formatting involving junking empty cells and trash data, but running into a road block on some of the trash data.
Here is the format of the report at this point. Names have been changed to protect the innocent.
Agent: 2366 Bacon, Kevin
Date Start End
[Code].....
So what I need is something that will iterate through the report...such as an while and find the cells in column A that start with "Agent:" It needs to compare that cell to a stored value to see if this "Agent:" is a repeat. If it is then it needs to delete that row and the next one and shift up. If it is not then it overwrites this "Agent:" with the previous one in the stored value and continues the while.
I know what I want to do...but not shure on the code cause I am not great at VBA.
Oh...if it matters probably need to allow for about 10k line items to iterate through...right now report is at 6k...but allow room to grow.
I have a excel file to keep track of sales pipeline. What I am looking for, is an automated utility or code that will allow excel to automatically move entire rows once a task is completed and can be moved to another sheet. In Prospect sheet I have a column for " sales stage" and here you have to select from a drop down menu, either "Prospect", "semi-qualifed" "Pre-qualified" "verbal" "closed-won" and Lost. What I would like, is that once you have selected one of the sales stage, the entire row or entry, will be automatically moved to a new sheet according to each stage.
What I need to do is hide the value in an individual cell, dependent on whether a value (any value) has been entered in another cell. I know this must be possible somewhere in conditional formatting but I can't seem to figure it out no matter how much I try!
The table below should hopefully explain exactly what I'm after. I want to hide the value in the balance column (automatically calculated)when no transaction has taken place (ie, there is no date entered in the date column). At the moment this value appears all the time.
I have created a combo box and have inputted the values
Jan, Feb, Mar (think you get the idea).... Dec
I am looking to assign a macro to each value so that each one shows a graph, i have already created the macro’s to show the graphs. Just unsure how to make them work with the combo box
I have a column with (potentially) multiple values in, heres an example:
Marketing Specialism
Commercial, Multi-channel, Loyalty/Retention
Analytics, Partner
Analytics
Commercial, Analytics, Segment
[code]....
What I need to be able to do is count (and then chart) the number of each value, irrelevant of whether it appears with another value in a cell. e.g.
Analytics, Parter - Would count 1 Analytics and 1 Partner Analytics - Would count 1 Analytics
I know there is a formula where I can specify the value to count, but as the column has so many different values I would have to write a formula with each separate value, this would take a long time.
I have a workbook which consists of difference worksheets that downloaded from the system, e.g Jac01, JKen01 and so on. the worksheets' name might varies and from month to month basis. Therefore, just wondering is that a fast way to save the individual sheet as a separate workbooks. The rational of saving the worksheets into individual workbook is mainly for the individual division manager to study their respective product sales.
So I have a list of organizations in Column A, with multiple names (anywhere from 0 to 50 names) for each org. in Column B.
Org Names Company A Brown, Jones, Smith, West
[Code]...
I want to do a find and replace for all of Column B, where all the names are replaced with their respective color values. If possible, I'd like this to all happen with the individual cells (so for example, B3 might go from "Brown, Jones, Smith" to "Red, Red, Blue").
If that's not possible, I could divide all the names into individual cells and then find and replace.
I have an issue with being able to process my data i have a text file in notepad that lists a massive amount of values (enough for excel to process if they are listed down a column but not across a row) each separated by a space. As an example here is a small portion of the data.
I know how to import this as text but i can only wither get it all in one cell or across the 1st row. The first row can only display about 16000 values and that isn't enough for my end product to be accurate enough.
So is there any way to import the text file and have it formatted so a each new value has its own row? For example... 81768102 191193210 386225426 110858190 393958997 21773704
Or is there anyway to get the data from my already imported giant A1 cell into the above format?
Added an example of how it looks and how i want it to look. This is how it looks when i open the txt file containing my data in a way that all values stay in the excel sheet. As well as this there is an example of how i want it or rather need it to look.
I’ve created a spreadsheet to record all transactions ( Sheet 1) at a train auction for members only (Sheet 2). Currently, the workbook I created will ‘manually’ create receipts for any buyers/sellers by filling in Member's name in Sheet 1 and then selecting ‘View ‘Member’ Receipt’ button.
Ideally, I would like a macro that will automatically generate a worksheet for any member that has sold or bought an item at the auction and insert worksheets between ‘Start’ & ‘End’ tabs (with option to refresh data) in location order (A-D). Because members come from near and far we would like to generate the members that need to travel the farthest first. Is it possible to create a receipt for only the members that have transactions?
I have been searching through the site trying to find a solution to my issue, but I just can't seen to fixt it. Here is the scenario. I am working on a spreadsheet that will read some data, use that data to update the main chart and fill in the information in a table next to that chart. I recoreded 22 macros, total. Each macro corresponds to the especific type of chart that I need/want.
I want to be able to click on a drop down menu above the chart which will have each of the 22 options. Once the user clicks on the desired option, the specific macro will run and do that it should do. When I run the individual macro (without the VB that I wrote and will mention below), the system does what it should do. Everything looks dandy. But then I added this VB code to the sheet where the chart is:
Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Range("A12").Value Case "1" Call a Case "2" Call b Case "3" Call cc Case "4" Call d Case "5" Call e................
Wondering if it is possible to generate a random 4 digit number based off an alphanumeric string?
Example;
Cell A1 has 123XVF1234 Cell A2 has 321AFW4321
In B1 I would like to have a 4-6 digit number that is generated based on the alphanumeric data in Cell A1 (and so on down the list). If that is possible, I would also need to be able to convert back the 4-6 digit number back to its original alphanumeric value
Example;
If B1 returns 643562 it would need to be able to be converted back to 123XVF1234
I am trying to divide a table of data (7 Columns, 500-1000'ish rows) into individual worksheets based on any unique values in column. There may be anywhere from 10-30 instances of the same value in Column C, and I need to bring all rows of each unique instance into a newly created worksheet to be labelled the same as the value in Column C.
The RAW data will be updated monthly by keeping a template file copying and pasting data, therefore I am hoping to have a "SORT" button with this Macro assigned to it. I have quickly thrown together a sample workbook with how the RAW DATA will be pasted into the file, with additional sheets showing how I would like the data split and organised.
I am trying to come up with the most efficient way to copy data to multiple sheets within the same Excel workbook. The original data exists within one column on a summary sheet (could have up to 500 individual entries). I want to copy each individual entry to a unique sheet (that already exists), but in the exact same cell location within each sheet. I would only want to copy the original data value and not any formatting. Is there an efficient way to do this?
In my example spreadsheet, the original data is on the SUMMARY sheet. Sheets A through J would be the target sheets, with cell B2 as the target location for each of those sheets. My example shows the result of a manual copy paste value process, but I am hoping to automate that.
1. Search an excel sheet "column" for a particular type of text and insert values based on that text (if found) in another column.
e.g I have column A1 to A10 with different types of text. I would like to search for the keyword "Risk is high" OR "Risk=High" for each cell in the column and insert a "1" if found beside it's corresponding "B" column. If not found, I would like to insert a "0".
So, if the text "Risk is high" OR "Risk=High" was only found in A6, I would like B6 to be "1". Rest of the values in the B column would be "0's", since the text was not found in any of the other cells.
The yellow highlighted column F (each Reason) in the sheet2 to be placed as main header in the next column and so on as seen in the sheet 3
If they have two similar item number with 2 different reasons - delete the duplicate item number and place the number in each column according to its reason as seen on row 16 on the sheet3
If they have two number with similar reason - just sum up the number
I am working with a nonprofit to set up their financial ledgers. There is one workbook with 12 sheets, one for each month. The goal is to be able to set up a formula that searches through all 12 sheets for every donation that a specific individual has made. For instance, let's say that John Smith gave x amount of money on 1/1/2000, y amount of money on 1/10/2000, and z amount of money on 2/2/2000. This data will appear on 2 different worksheets. I have the following formula, which allows me to look through one sheet at a time:
Where Column A in each sheet is individual name, and column B is amount donated. Sheet "Jan" is the data for the month of January, and sheet "Smith" is the culmination of John Smith's donations for the full year. Using this array function, I am able to retrieve all data for John Smith in the month of January, but I can't find a way to make one function that searches for all of John Smith's donations in each month. Is there a way to build an array function in VBA that would accomplish this?
1) Data - the students are listed in Column A, math scores in Column B, reading scores in Column C and science scores in Column D. The grades of 300 students are entered in this sheet.
Student Math Reading Science
Jimmy 75 84 100
[code].....
2) Report Card template - This is the report card that needs to be generated for each student. It's pulling the student name and grades from the Data worksheet.
Student Name =Data!$A2
Math =Data!$B2
Reading =Data!$C2
Science =Data!$D2
How do I create worksheets (report cards) for additional students? I have 300 students in the school. I need the next worksheet to reference Data!$A3. I know how to cut and paste the report card template and then edit =Data!A2 to be =Data!A3 to create a report card for Sally. How do I create the 300 report cards I need?
I've been teaching for 13 years. I can create a report card for each student in my class and edit each worksheet individually for each student. Now I've been asked to do this for the whole school and I don't know how to create the other 299 sheets I need.
I have a master spreadsheet that list several columns about employees(name, date, event name, etc.). Then I have an indivdual sheet for each employee. I am trying to import the column information for each employee onto their individual sheet based on their name. It is possible to import the individuals data from the master sheet to the individual sheet based on the employee name?
I have selected all 13 rows and 7 days and named them 'week1', and the next 7 days 'week2', the next 7 days 'week3' etc/What i want is to display the named range based on a single cell selection based on a cell value in a different sheet.
The basics of it should be "If cell C1 = 1 then show me 'week1' or if cell C1 = 2 then show me 'week2' etc.