I've got 12 columns (headed Jan - Dec), each of which contains a combination
of numerical & blank cells. For each row, I want to select the first
non-blank cell and return the column header that it lies in e.g. Row 1, first
non-blank cell is in the Apr column, so I want the text "Apr" to be returned
to another cell.
I have a spreadsheet that can do more than one calculation on each row
ITEM
FLOW
(l/s)
[Code]....
The values in row A can only be selected from a named range drop down. If no entry is there (i.e. blank) then i'd ideally like the cells to return from black to white.
I am trying to figure out how to return the contents of last non blank cell in column B, based on the name in column A. So, if I choose "Sam", the result I am looking for is "blue". If I choose "Pete", the result I am looking for is "orange".
Sam
red
Sam
blue
Sam
Pete
orange
Sam
I have a conditional IF statement, where I want the content of the cell to be blank if the result of the IF statement is false, ie I want the content of the cell to be as if there were no formula in the cell (this if so that the formula COUNTA(Sheet1!$B:$B) only counts the cells where the result is TRUE).
For example, IF(A1=1,1,"") where A1 1, the content of the cell will have something in it (a space), and won't be blank.
i need a code that moves down a column and for every empty cell in the column the cell to the left is cleared and then it moves on to the next cell down. the column is not always the same and will start from a selected cell, and the column will contain no more than 5 rows
View 3 Replies View Relatedwith some basic code. I want to check the activecell, if it's blank then copy the contents from the cell above, if it's not blank, leave it & go down to the next cell & repeat until last row.
View 7 Replies View RelatedI'm migrating data from Financisto for Android to CashTrails for iOS, and I need to format my CSV file a specific way for conversion to a CashTrails file.
I'd like to do the following in Excel 2013 (I have access to other versions if I need to):
1. Highlight a range of cells (i.e. A1-H20)
2. Apply following action: IF cell has data, add " to beginning of cell and " to end of cell, AND IF cell has no data, place "" in cell.
This can be done, right? I'm desperate!
It would look like this in Notepad.
Before:
Date,Time,Amount,Category,Tags,Account
12/31/13,12:00 PM,$3.99,General,,Checking
12/31/13,12:30 PM,$5.00,Shopping,gift,Cash
After:
"Date","Time","Amount","Category","Tags","Account"
"12/31/13","12:00 PM","$34.99","General","","Checking"
"12/31/13","12:30 PM","$5.00","Shopping","gift","Cash"
I would like a macro that copys the contents of a cell and pastes it into the column before it and continues to copy that same number downward as long as the cell next to it contains numbers. So: ....
View 9 Replies View RelatedI need to clear the contents of the cell in Row "A", if the cell in Row "I" is blank.
The issue, is there are roughly 1200 excel documents in a folder and subfolders. That is a painful amount of opening workbooks, sort ascending and deleting. Not on my top 10 list of things to do.
If someone could create a code to do this, and loop it through a folder (I can move all the files to a single folder manually, not an issue)
I have a column of dates in column E1:E100.
E1 = 25/06/2012
E2 = 02/07/2012
E3 = 09/07/2012
etc.
In column F1:F100 I will insert "Y" in the one of the blank cells next to one of the date cells in column E1:E100.
In cell B1 I want to reference where the cell in column F is "Y" then use respective date in column E.
e.g.
If i have "Y" in cell F1 then in B1 I want to show E1 (25/06/2012).
If i have "Y" in cell F2 then in B1 I want to show E2 (02/07/2012).
If i have "Y" in cell F3 then in B1 I want to show E3 (09/07/2012).
etc.
I'm trying to select the next blank cell starting from a specific cell (N45) and then add a value from a textbox.
Ive got the following code but it isnt working.
Code:
ThisWorkbook.Sheets("RRHH").Range("N45").End(xlDown).Offset(1).Select
Selection.Value = NameTextBox.Value
I am trying to write a macro to paste some data from one worksheet into another. I need to paste the data into the next blank cell down from the existing data.
I have looked at this thread already
For w/o next error
but cant seem to get it to work.
This is the code I have got so far but it isnt working. any help would be much appreiciated.
'main part of code to copy data left out
Windows("performance tracker.xls").Activate
Sheets("Data").Select
ActiveWindow.SmallScroll Down:=9
Set rngDestination = wsData.Range("A65536").End(xlUp).Offset(1, 0)
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = Format( Date, "dd-mmm")
Sheets(" Total").Select
ActiveWorkbook.Save
I have a spreadsheet for tasks. When I select from a pull down to mark as "Completed", I would like this to cause the cell containing the start date to go Blank.
View 2 Replies View RelatedI want to select the first blank cell in the first blank column. I would just look at the column and instruct it to select a given range, but each month the blank column will change (by moving one to the right).
So for example
This Month:
Columns A-Q all have data in it. So, I would need to select cell "R1"
Next Month:
Columns A-R will all have data in it. So, I would then need to select cell "S1" Need code to auto-detect the blank column and then select that column's first cell?
I am trying to randomly select 10 data from a table by using index formula. But there are some blank cell in the table so It kept returning 0 in the cell.
problem.xlsx
I am trying to achieve the below objective but getting error message
Objective: select last non blank row and offset to next cell type a message in it
error message: Runtime error 1004 : method 'Range' of Object '_Global' Failed
CODE:
Sub lastRowAll()
myvar = ActiveSheet.UsedRange.SpecialCells(11).Column
myrow = ActiveSheet.UsedRange.SpecialCells(11).Row
Range(myvar, myrow).Offset(0, 1).Value = "Experiments with VBA"
Range(myvar, myrow).Offset(0, 1).Activate
End Sub
Was wondering .. as I can not seem to find the right type of coding.
I am trying to have the file open in the next blank cell on column C, ut at least have 5 lines showing above it as there is Freeze Panes.
Is this possible for excel to do upon opening?
I have multiple tables like the one in the picture and have to duplicate this code for different known ranges.
View 11 Replies View RelatedI'm trying to sort a whole list of data that's been separated into blocks with a row containing the value "a" like:
row 9 a
row 10 455
row 11 8892
row 12 34
row 13 a
row 14 578
row 15 92
row 16 a
etc..
I want to sort each block into ascending order using VBA code and then add in some extra code to do some more analysis.
The data to be sorted is in Column D, and there are also values in Column C and B that need to be sorted with the Column D values (so that they stay in the same rows).
I have a worksheet in which column A:C contains slno,name etc. Col D contains numerical data.D4:D5 is col heading. D6:D41 contains numerical data. I want to copy the data from D6:D37 only. for this i tried the following but with negative result.
1.select cell D5.
2.press F5 and enter -to goto cell D37.
3. press control and shift and up arrow to select the upper cells. Excel selects from D37 to D4 whereas i want it to be from D37:D6.selecting D6 and then press control shift and enter keys takes me to the last cell with the data in the column, ie,D41.
How can I select only the required cells so that i can copy the content.selecting the first cell and then dragging the cross is not an expected answer to solve this.
I'm having a problem in a single line of code in which I'm using a Range Object to essentially select an area of cells whose contents I want cleared.
Here is the
Sheets(Left(c.Value, Len(c.Value) - 1)).Range(Cells(4, 2), " &:& ", Cells(Rows.Count, "b").End(xlUp).Offset(0, 9).Select).ClearContents
I want the range part to evaluate as (b4:whatever the last cell is before the first blank row).
I have attached a workbook stating my problem.
file1.xlsx
I thought this was a pretty simple formula but I am having difficulty creating it. I am attaching a little test spreadsheet. Sheet 1 is where the data will be entered. The Reimbursed column has a drop down choice of yes or no. The next 2 columns are the cost of registration and the cost of accommodations. On sheet 2 is where I would like the formulas. So in cell A4 I would like a formula that says if B3 on sheet 1 is Yes populate this cell with the contents of Cell C3 only, B4 of sheet 2 would then be B3 if A3 on sheet 3 is Yes and so on with the Not reinbursed if sheet 1 the Reimbursed column is no.
View 3 Replies View RelatedI can I select all non-blank cells (including constants and formulas) in a sheet? I am familiar with SpecialCells(xlCellTypeConstants) and SpecialCells.(xlCellTypeFormulas) but these seem to be mutually exclusive.
Can I do something like: NOT SpecialCells(xlCellTypeBlanks)?
I need to select all data in columns A:F but the number of row containing data is variable. I need to select only the rows with data.
View 7 Replies View RelatedI came across this code that selects (and extends) cells between the active cell and the next cell with data.
Is it possible to modify this so that it selects the entire Rows ?
Code:
Sub Test()
If Selection.Select "" Then
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Else
Range(Selection, Selection.End(xlToRight)).Select
End If
End Sub
how to get a selective cell range after i apply a filter,
I have it currently that it will copy the data shown but i don't want it to copy if there is no data present?.
ub Ding*****urn()
' Ding*****urn Macro
Sheets("Master").Select
Range("D1:E1").Select
Selection.AutoFilter
ActiveSheet.Range("$D$1:$E$800").AutoFilter Field:=1, Criteria1:= _
"DINGLES BOURNEMOUTH"
ActiveSheet.Range("$D$1:$E$800").AutoFilter Field:=2, Criteria1:="MENSWEAR"
Range("A2").Select
[code]....
when i comes to the selection i only want it to copy cells that represent a value within that filter not cells that are blank?
i need a macro that will select all the blank cells in a column.
View 5 Replies View RelatedCan a macro be used to select only blank merged cells on a worksheet? If so, how do I create this macro?
View 6 Replies View RelatedI have a spreadsheet which always contains data beginning in column A and through row H. However, there may be blank cell(s) in columns B through G. Therefore, if I use
Range(Selection, Selection.End(xlDown)).Select
it will not take me to column H if say column d has a blank cell. The same applies to my rows which always vary.