with 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 RepliesDoes this code copy all cells from the active cell up to the last non-blank cell, or is it up to the first blank cell after the last non-blank cell?
View 9 Replies View RelatedI 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 RelatedIF statement that looks at a cell to see if it contains a word.
ie IF A2 has " Total" in it then do this
I am trying and failing to write an if statement in excel (not vba) to check the contents of cell H3069 to see if it equals 29/06/2011.
I have written the following
Code:
=if(DateValue(H3069)="29/06/2011","Y","N")
which returns #Value!
I want to check the contents of all the cells in S Column to see if it equals "Process Recover/Rebill"
If True, then Change corresponding cell in C Column to "Manual Correction"
I have this VBA and it doesn't look like anything is processing. It appears that I must have something missing in the If line..message about missing.
(tot_new is the number of rows of data) I begin in the 3rd row.
For Counter = 3 To tot_new
If Range("S" & Counter & ").Value = "Process Recovery/Rebill" Then
Range("T" & Counter & ").Value = "Manual Correction"
End If
Next Counter
I am trying to set up a conditional formatting which will look at the cell contents and check if the value exists in a range.
The range to compare will be over multiple columns and multiple rows.
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 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"
How can I write code to test if a cell is blank? My code is using "isempty" but I keep type mismatch error because my cells are filled with formulas that make the cells blank. It only works if the cells are truly empty with no formulas.
View 8 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 am trying to copy the active cell from a range on sheet 1 to a new sheet ( Sheet 2 )in the next available row of Column B ONLY if the value changes from being blank.
If it was not empty I dont want it to be copied.
I cant seem to get my onChange event to copy anything.
trying to make a copy range of cells from an activecell.
My activecell is P9 and I want to copy the contents of P1 to P18 without losing P9 as the activecell.
I created macro that copies cells from one worksheet to another using the copy/paste function. Unfortunately it runs rather slow. Instead of copy and paste I want to use something like this:
ActiveCell.Offset(0,1)= Sheets("Raw Data").ActiveCell.Offset(2, 3)
Can this be done and what is the proper syntax?
Can i convert this
ActiveCell. Offset(-1, 0).Copy
With ActiveCell
.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.ClearOutline
End With
So that i can copy/paste the Offset range such as (-1,-2) (-1,1)?
I need to check a range of cells (B4:B35) and see if any of the contents are less than a specified cell (M1) and then show a message, (the message part I can do). I have tried using For Each but I then get the message for every cell that is below the specified cell (which in theory could be all of them). I have also tried using an If Any statement but didnt work.
View 5 Replies View Relatedusing a formula to copy a cell A1. if A1 is blank, i need forumula result in blank instead 0...is it possible..
View 9 Replies View RelatedI am trying to copy a column of cells from one sheet to another, but also want to keep all the formatting. The origin sheet has times, but when I copy these to the destination sheet they are displayed as decimal numbers (using the code snippet below). I can change these back to times by formatting the cells using the format painter after the macro completes but I would like the VBA to do this for me. (using 2002 SP3).
View 4 Replies View RelatedI need a way to copy part of contents from a cell, the cell contains product information like size, name and weight of a product, and I need a copy the weight to be put in it’s own cell, here’s a copy of one cell “E65 MAPP SKDV 5 DIGIT 90G ST.K” the information I need from this is “90” the number is always followed by a capital G, but it’s between two and three digits where the lowest is 55G and the highest is 300G. Is this possible?
View 6 Replies View RelatedI would like to copy the contents of a cell from a sheet in workbook 1 into a textbox that is on a userform in workbook 2. This is what I have but I get a runtime error 438:
Code:
ActiveWorkbook.Sheets("ID").Range("a1") = Workbooks("Key.xlsm").userform1.TextBox1.Text
I need a macro to automatically copy the contents of a cell to a text box.
View 7 Replies View RelatedI have 2 inventory reports: what my store has and what my supplier has. I need to copy Tab1:K# to Tab2:T# provided that Tab1:A#'s contents match Tab2:A#'s contents. The A column represents the SKU of the item, but there is a difference in the amount of SKU's in each (my store sells ~6,000 items, supplier has ~10,000 items), so it's not as simple as sort by column A and copy pasting column K to column T.
For instance:
On Tab 1, A2's value is [1], K2's value is [9.38].
On Tab 2, A70's value is [1], K70's value is blank, but I need it to be [9.38], to match Tab 1's respective SKU.
I almost thought I had it figured out with VLOOKUP, but I cant seem to get it right... It doesn't reference the correct number.
Screenshots for reference
First tab, from the wholesaler: [URL]
Second tab, store's stock: [URL]
Looking forward VBA coding for:
If input is entered into column C (range C2:C100), then row cells for columns D, E ,F, H or I must NOT be blank upon save.
Could be that one or more of these row cells are left blank by mistake.
An error msg pops up upon attempting to save, stops the save and colors each cell yellow that needs info entered into.
Using Excel 2010.
Basically lets say I have in cell A1 to A10 floor access data i.e. Users who used their ID cards to access a room.
Now the data always starts with either Rejected or Admitted then the user's name and then the card number and the access floor etc. the card currently has.
What I am looking for is that the macro should first check if the cell has Rejected or Admitted written in it - this I can do myself using =Left(A1,8) which should give me the helper column I need.
Then based on this I want it to only copy the name of the individual i.e. it should look in the cell and only copy whatever is written between "Rejected" and "(Card". The cell data is something like this:
Rejected Doe, John (Card #123456) at ABC 123 Floor1/Floor2/Floor3/Floor4 Door 1 [In] [Clearance]
I have a line of code that returns a run-time error 1004 whenever it is passed through. All I am trying to do is copy and paste. I am missing some glaring error? (It is only a selection of the code to highlight the part I am having issues with. "maxdate" and "d" have been set)
VB:
Dim ws, ws1 As WorkSheets
Set ws = ThisWorkbook.Sheets("Data")
Set ws1 = ThisWorkbook.Sheets("Target")
[Code].....