I have a question, that could be answered by the experts in this forum. Question: I need to write the letter "E" in the second column (B) when I find that any cell in a row is in orange color (color 44). The code I wrote:
View 3 Replies
I am having a problem using data from my combobox to find the cell on the worksheet and write to the adjacent cell.
Worksheet name is Fleet
ComboBox Name is ComboBox7
TextBox name is TextBox3
CommandButton1
I would like to be able to take the text from ComboBox7, find this text in Col A of worksheet Fleet and write the Value of TextBox3 in the adjacent cell in Col B. when
the CommandButton1 is pressed.
we have one excel sheet. I want to write or edited data in specific cell. For example anybody can write in coloum : C1, c2, c3, c4, k6 and m6 (highlighted in green colour) and remaining all cell range protcted no one can change data. Also they didn't know formula which i m writing in others cell for example fom l6 to l33 or n6 to n33. We are attach file for ur ready ref to know easily.
View 2 Replies View RelatedI have one cell that contains a function. Sometimes I want to change the value in the cell because the value is used in another function in the sheet.
The problem is that I want the function to reapear in the cell when I press the deletebutton.
Exampel:
1. Cell A1 contains this function.
=Sumproduct((part_number>100)*(Price>10);Stockvalue)
This returns a value that is used in other cells in the sheet.
2. Now I want to try what happens in the other cells if the value in cell A1 is changed.
I select cell A1 and writes the new value that I want to test.
3. If I want the function back I simply should select cell A1 again and press delete.
4. A VBA macro now writes the original formula back into Cell A1.
I have just started VBA for the first time in Excel 2007. I have spent 2-3 hours trying to write text to a cell and I do not understand why it is not working. I have reduced the operation to the simplest form that I can find, now using the following
View 3 Replies View RelatedI found this thread ,
http://www.excelforum.com/excel-prog...in-a-cell.html
on the forum site which involves
saving a file by value in a cell.
I want to change the code so that it saves that name by
a cell value + "_BOM"
Sometimes I want to have the abbility to quickly write cell data to a textfile. This is an effort:
Code:
Function Write_To_File(strMessage As String) As Boolean
'strMessage is a data in a cell
Log strMessage
[Code].....
Basically I want just one function that returns True for a succesfull write and False in case of an error. Now I have one function and one sub.
I would like to write a Macro that does not use Cell Names eg(A22). Instead, I would like to navigate around by using R1C1 reference cells or maybe GoTo fuction.
I am trying to write a Macro that Copies Cells from Sheet 1 and Pastes that information in another worksheet 10 rows below previously pasted information. I don't want to use Cell names in the Macro as it will paste the information in the same spot each time.
if there is an Excel function out there that will copy over the contents of one cell into another by what is typed in another cell. Did that make sense?
Lets say that I have info in
(A1) John (B1) Smith (C1)X (D1)
Now I want to be able to copy over A1 & B1 to another part of the spreadsheet/workbook if I were to type the words "leave" into D1.
So basically it would look something like this...
(A1)John (B1)Smith (C1)X (D1)leave (want info to go here---->) (M4)John (N4)Smith (O4)currently on leave
And then have it automatically add the names below the one in M4-O4. so it would add names in M5-O5, M6-O6, etc
I have this spread sheet that has over 1000 names on it & it would help out alot if I could just use a function that could copy the information to another part of the spreadsheet or another workbook.
I know that I can use the filter, but I may want to have this stuff on another worksheet alltogether.
Also, if this is possible, is there a way that it can be automatically removed if I were to delete the word "leave" from the cell?
i have wrote the following code snipped:
Sheets(2).Activate
Sheets(2).Range("D8").Value = Application.WorksheetFunction.Subtotal(109, Sheet(4).Range("BJ3:BJ" & b)) + Application.WorksheetFunction.Subtotal(109, Sheet(3).Range("BJ4:BJ" & a))
The debugger said: That "Sheet" is not allowed in the subtotal-function. because i would like to calculate two subtotals in two sheets an write the sum in another sheet
I am trying to write/print a cell value in a text document but am having problems (I know what the problem IS, just can't find a solution).
Right, so my code is as follows
In my spreadsheet, I want a macro to write date and time everytime the user change a cell with a list validation. On the table, the E column contains the status of each row. I want to know since when the status is that.
View 4 Replies View RelatedI would like to “ping” each computer ip address to check if it is online or offline and then write the result in Column C.
There needs to be no limit to how many ip addresses the script can ping.
I have a userform with a checkbox. If the box is checked, I would likke to write "Option One" to cell A1 in Sheet1 when the Close button is clicked. I can't get the code correct for this. The workbook is attached.
View 2 Replies View RelatedI have a spreadsheet. In this sheet the data is added daily so one column is increased everyday. The rows may also be increased. What I am trying to do is to sum the data in each row for a range of first cell in the row to the last non empty cell in that row and this has to be done for all the rows. So I thought the for loop would be useful for such requirement and I tried to write the following code. But unable to write the sum formula in the last empty cell in a row and I get the value error. The code is as follows.....
Sub sum_on_LastEmptyCell()
'find the last empty row in column A
lrow = ThisWorkbook.Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
'find the last empty column in a row
[Code] ........
Though one of my friend told that it can be done with "with and end with block but I am not aware of with and end with block.
It would be better if you tell me that how can I put the sum formula in my code. How can I use variables which return the row number and the column number in the sum range within the For loop because I want to put If Else condition for the calculations within the For loop i.e. if certain condition is true then I want this calculation to take place otherwise do something else. Moreover it will be easier for me to understand. Because I can use different formula based on different cells as well. Is there any way to do this?
I have a SS with 700 rows. 2 columns (Col K and L) may or may not contain text in their cells. If the cells do have text, I want to check for the presence of keywords which could be anywhere within the text, and if I find match write the matching word in Column I. Example: I want to seach for the following strings Loaned, injured, suspended etc ... in the range the K4-K700. Lets say Cell K50 contains the text Injured - broken bones. As the word injured is a match I want to write the word injured to cell I50 In addition if Cell K50 has text and Cell L50 does not, i want to put the text "NEW" in I50, and the reverse if Cell L50 has text and Cell K50 does not i want to put the text "recovered" in I 50. Following formula (in each cell in Col I) does this job currently. Can't figure out how to redo this in VBA, and wondering if checking the 700 rows will cause Vba to be slower.
=IF(OR(TEXT(LEFT(OFFSET(I22,0,2,1,1),6),"DDDDDD")="Loaned",TEXT(LEFT(OFFSET(I22,0,2,1,1),6),"DDDDDD")="Transf"),
"Loaned",
IF(ISNUMBER(SEARCH("susp",OFFSET(I22,0,2,1,1))),
"Suspended",
IF(AND(ISBLANK(OFFSET(I22,0,2,1,1)),ISBLANK(OFFSET(I22,0,3,1,1))),
"",
IF(ISTEXT(OFFSET(I22,0,2,1,1))=ISTEXT(OFFSET(I22,0,3,1,1)),
"Ongoing",
IF(ISTEXT(OFFSET(I22,0,2,1,1))=TRUE,
IF(ISTEXT(OFFSET(I22,0,3,1,1))=FALSE,
"New"),
"Recovered")))))
I have a base of workers which log each day their activities in hours (D01-D11). I would like a macro to sum total hours of each project (project numbers are from 320-516) and put it into the table on the left.
For example: For PERSON 1, I want that the cell I60 writes 10, and cell I74 = 6. For worker 2 (PERSON 2) would be AK60 = 3,5; AK67 = 8 and AK74 = 8.
In total where would have been 10 workers.
I need to record time next to eg.: W3 cell,
Now I'm using below formula :
=IF(W3<>"",NOW(),"")
but the NOW function keep updating time itself, is there any VBA code or function that I can use with this formula ?
I have a base of workers which log each day their activities in hours (D01-D11). I would like a macro to sum total hours of each project (project numbers are from 320-1500) and put it into the table on the left.
For example: For PERSON 1, I want that the cell I60 writes 10, and cell I74 = 6. For worker 2 (PERSON 2) would be AK60 = 3,5; AK67 = 8 and AK74 = 8.
In total where would have been 10 workers.
When I attempt to extrapolate and modify the code I get nothing but error messages. I've also looked through my two Excel 2007 books (each of them 1,000+ pages long) and there is no mention of this subject anywhere.
I am running Excel 2007. I have a multiselect listbox in a worksheet (not a user form). I want a user to be to be able to select multiple items from that listbox and when the the user moves out of the listbox (i.e., when the focus is no longer on the listbox), I want the selections to be copied into a cell on the same worksheet with each of the selections separated by a comma.
So for example, if the listbox (named "ListBox1") contained the following items...
North
East
South
West
...and the user selected both "North" and "West" from the listbox, the following text would get automatically written into cell A2 in the same worksheet after the user move outside of the listbox...
North, West
I know enough VBA to be dangerous (usually just tweaking code written by the macro recorder), but this one is eluding me. My two questions are:
1. What is the VBA code required to give me the result I'm looking for?
2. How would that code be called/where does it reside in the workbook? For example would I put the code in a macro and associate that macro to the listbox object??
When ever I update my external CSV file and hit refresh all data, I get #REF! Errors. The CSV file has a table that changes daily. Thus the "A" Column has a different number of rows depending on the day. The problem is that Monday the CSV file will contain 700 Rows, while on Friday it will have 200 Rows. I end up with a lot of #REF! Errors friday. How do I write the code so that (A561 for example) does not change regardless if it can reference the target cell or not? I even thought of making a macro that just copied the formula into all of the cells after each refresh, but there must be a better way.
Example code
=IF(A561>0,IF(Start!$H$2="Monday",'calculations-mon-sat'!O561,calculation!O561),"")
=IF(#REF!>0,IF(Start!$H$2="Monday",'calculations-mon-sat'!O567,calculation!O567),"")
I'm doing the website for my company and things have to be entered into the site via spreadsheets. I have a list of numbers
e.g. 3652, 2845, 50925, 4809, 18392
that need to have the spaces removed in order for them to work.
e.g. 3652,2845,50925,4809,18392
There are over 500 cells with multiple numbers in each, so I don't want to do it one at a time, and rightly so, because Excel keeps changing the format and giving me something like
3.6*10^30 and loses all my commas.
Is there an easier way?
how to write a formula that will leave a cell blank if nothing is entered. I do not want it to show a 0 unless the cell entered is a 0.
In cell G16 - I am adding U46 and U58 together.
I do not have a problem when it is 1 cell - my formula works fine. When I have 2 cells added together, the formula does not work.
Using excel 2011 for mac and would like to learn how to write and record a macro to link to a button to "go to a layout and cell"
View 4 Replies View RelatedI m trying to write a macro which could take the text from a single column row T2 to row T313 and write it to a .txt file. Have the .txt file name created by the text in T4 or I could also put the text to name the file in T1 if you think it would be easier.
Then carry on to the next named sheet and produce another .txt file in exactly the same way until all 15 sheets have been completed. It would also be helpful if prior to starting to write each text files, it could test for any text in cell A2 of the sheet. The first empty A2 cell of a sheet would determine the end of the run, if it was prior to sheet 15 being reached.
i have saved some pictures in my excel sheet.
in the next sheet i want that when i write the picture name the picture will appear as vlookup helps in the getting text and nos. can i do this with pictures or i tried to get to much from excel.
I'm wondering if an if then else function can be written for the problem that I'm having? Or is there a better way to accomplish this? I've detailed my problem within the example attached.
View 3 Replies View RelatedI basicaly need to look down column Q8 to Q52 for the falue "C19"
If that value is present - Then I need to look up the value of associated
with what is in its respective cell in column O8 to O52.
Then add them all together.
I have the formula that follows and it works, however it is huge. I have to repeat the IF,Vlookup 44 times. Just wondering if there is a better way.
Here is the formula I am using.
=SUM((IF(Q8="C19",(VLOOKUP(O8,clusterequipmentvalues,2,FALSE)),0)),
(IF(Q9="C19",(VLOOKUP(O9,clusterequipmentvalues,2,FALSE)),0)),
(IF(Q10="C19",(VLOOKUP(O10,clusterequipmentvalues,2,FALSE)),0)),
(IF(Q11="C19",(VLOOKUP(O11,clusterequipmentvalues,2,FALSE)),0)),
(IF(Q12="C19",(VLOOKUP(O12,clusterequipmentvalues,2,FALSE)),0)),
.... all the way to C52.
I have a checkbox that hides a range of columns when deselected and unhides the range when checked. I also want the code to write a value (1) to a cell when hidden and change the value to another value (0) when unhidden.
The range is hidden and unhidden perfectly, but the value "1" is written and doesn't change regardless of whether it is hidden/unhidden. (the value flicks momentarily to "0" when unchecking).
Code:
Private Sub cbTermPrev1_Click()
If cbTermPrev1.Value = True Then Range("Term_Prev1").EntireColumn.Hidden = False
Range("HiddenValPrev1").Value = 0
If cbTermPrev1.Value = False Then Range("Term_Prev1").EntireColumn.Hidden = True
Range("HiddenValPrev1").Value = 1
End Sub
Write a formula with a cap of 125%
A
B
C
D
1
x
y
z
2
Commission
1000
1000
500
[Code] .......
How to write the formula to know how much commission with be paid out for x,y,z?
