If cells in column J are not blank, values in column K must be copied from column I.
If not, i.e. cells in column J are blank, values in column K must be copied from column I + the fixed value in cell $C$2.
Can't get "if" nor "notblank" formula working.
I have a workbook with 12 sheets. On the 12th sheet I need some VB to go to each of the other tabs and find the letter “E” or “H” in column F. Once the “E” or “H” is found in column F and a number =>9 is found in column E then copy that row from column A-F and paste this row to sheet 12.
On sheet 12, I would like to be able to paste the row in a way that will hold the date in column A. The date can also be copied from each sheet found in cell E1. Also, the tab name has to be copied to sheet 12 with the row the E or H was found if “=>9 criteria” was met.
Basically this is what I want to do:
1. Search a specific column (Column 21/U) for non-blank values in Worksheet 1
2. Copy the entire row containing the non-blank values
3. Paste these rows into Worksheet 2.
Repeat steps 1-3 an additional 2 times, where Worksheet 1 is always searched but one more column to the right (ex. Column 22/V) is the target column for the search, then the rows are pasted into the next Worksheet (for ex. Worksheet 3)
I am working with arrays that extend far beyond their actual content, and so i am looking for a way, through macros, to find the first blank cell in a column and then copy all preceding cells in that column.
View 8 Replies View RelatedI have rather large Excel file that spans around 245 columns & has multiple users responsible for certain columns. Columns are chunked to provide data about a specific group. Every 72 hours, I need to provide to managers what’s currently on this file in a specific summary format.
I’ve recorded a macro that gets me half way there. Here’s where I’m clueless. After my macro deletes unnecessary columns, what remains are the columns for “Main Data” group + each of the 5 “Business” groups (Investors, Lawyers, Credit, Finance, and Support) which would have identical column headings.
(1) Name (2) Address (3) ID# (4) Control#
Furthermore, for each of the 5 “Business” groups, there are 9 slots (ie- a user can enter up to 9 unique entries for a particular group.)
Example- The Investor group contains 9 slots. Each slot will contain the 4 columns mentioned above. So there are 46 slots in total – 1 for Main Data, 45 (5 groups x 9 slots) for Business groups.
MAIN DATA (columns A-D)
Investor1 (columns E-H)… Investor2 (columns I-L)… Investor9 (columns AK-AN)
Lawyer1… Lawyer9
Compliance1… Compliance9
Finance1… Finance9
Support1… Support9
MY PROBLEM: I need a macro to now cut & paste all data from each of the 45 Business groups slots & then paste at the bottom of the MAIN DATA slot.
The final file would be 4 columns (as listed above) wide. Data from each of the 45 business group slots would be one below the other- all of it underneath the data in the Main Data group.
I attempted to record a macro where I’m copying a section’s data range starting from row2 to row4000 (I know there will never be 4000 entries. I did this just to ensure that all future data would be captured) then pasting that after the last entry in the Main Data.
Example- I’d copy data from Investor1 slot(starting at column E2-H2) & go about 4000 rows down. Then I’d press CTRL+Down Arrow key in column A & then click the down arrow one time to take me into 1st empty cell where I would paste my copied data. I was going to repeat this process for the remaining 44 slots.
I’ve added some extra entries to test the macro & the problem is that the recorded macro is pasting data in specific cell location in column A instead for looking for the 1st empty cell in column A & then pasting the copied data.
So far I've gone thought the net & tried to paste in a few VBA posts/tips that I thought would work. Here's what I have so far from tinkering around. I need someone to tell me what to replace the xxxxxxx line with. This would be the language to tell Excel to paste copied data range into the first blank cell in column A. I've gone thought the net & tried to paste in a few VBA posts/tips that I thought would work.
Here's what I have so far from tinkering around. I need someone to tell me what to replace the xxxxxxx line with. This would be the language to tell Excel to paste copied data range into the first blank cell in column A.
Sub transposedata()
Sheets("ConsolidatedYTDReport").Select
Range("E2:H4202").Select
Selection.Copy
XXXXXXXXXXXX
ActiveSheet.Paste
End Sub
I have attempted to alter this example to simply check if the cells are not blank by replacing the "X" with "<>", but I get errors in the SMALL function--it looks like the IF statement is just returning an array with all of the values set to FALSE, and none of the values in the array call out a location of the next filled cell.
How could you alter your fixed XLSX file to check for non-blank cells instead of "X" specifically?
In table 1 you will see that not all rows contain data (this is because i have removed it previously with a macro) the second table shows what i want the macro to do but without deleting rows:
A
Hiddenrow with formula
B
C
[Code]....
So basically i would like a macro to search for the first none blank value in column A and copy the row to the first available blank row , it also needs to blank out that row once done. i.e row 3 would be moved up to row 2, 5 up to 3, 7 up to 4 etc etc.
The hidden rows contain formulas which cannot be deleted or my ws goes Pete Tongue.
using 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'm getting random data and i want to put it in a fixed formatting
Therefor i need to be able to search a name and copy the corresponding rows to a fixed position
I put in a file
I want the range B111:B167 from the hidden sheet copied to Column A of the questionnaire sheet 5 rows after the last used row on the sheet. There is text in cells C261 & S261 at the bottom of the sheet, so currently row 261 is the last row, but users could/might insert or delete rows, when answering questions. I then also want to copy the error check responses from C111:C167 to column N of the questionnaire sheet 5 rows after the last used row on the sheet, so the question # and response matchup. I then planed to delete any rows that have “Answered” in column N on the questionnaire Sheet. The Idea being the user can run the macro over and over until no questions remain.
View 3 Replies View RelatedI have a column with random numbers of blank cells.
I have a method of looking up a particular number in this column, but I want to be able to display the number in the first cell that is above it, that contains a number.
Is there some way to use the first cell (that is not blank) above a given cell in a function?
How can I reference this cell?
The numbers in this column are not in order.
I am using this to find the first and last date that a particular group of shares were purchased.
I have a list of #'s starting from 1, and the next cell down adds 1 to that.. based on some other info, it will either add 1 or come out blank.. i want to be able to have cell A1 point out which is the last cell that has a number and is not blank.. does this make sense?
Here is the formula in this column..
In this sheet cell L284 has the same formula in it as cell L283, however because R283 is blank it also comes out blank...
Here is a copy of the sheet.. I want cell A1 to equal 282 in this example...
I am trying to find the last non blank cell in a row. I am using the following line of
RC = Range("IV" & AR).End(xlToLeft).Column
It does not quite work for me, because there are what appears to be blank cells in the row but there is a formula that is auto filled and returns a blank. Can this line of code be modified or is there a different line of code I can use.
I need to know the value (which is a date) of the first non-blank cell in a range in a row. I have found some array formulas, but they either return it for the whole row (which I don't want), or they return text (which I don't want), or they don't work at all.
The range is: B9:FL9. Some of the cells in this range are blank, some are "0", and some contain dates. I need to know the most recent (furthest left) cell that contains a date and what that date is.
I am trying to find the column number of the first non-blank cell in a range. But I need it as a formula, not a macro.
I have attached a example.
I need a macro to find the last cell in the column, then copy the formula to the next blank cell. Then, it goes back to the last cell (above) and paste's values. Then, go to the next column and repeat the process. I can do this but have to call each cell separatly...however, I would like to do it in a loop to simplify things. It would be great to even be able to just set the start and ending columns. Here is my current code:
Dim rng As Range, aCell As Range
Set rng = Range("C8, D8, E8, F8, G8, H8, J8, K8, L8, M8, N8, O8, P8, Q8, R8, S8, T8, U8")
For Each aCell In rng
Selection.End(xlDown).Select
Application.CutCopyMode = False
[Code] .......
It does not go to the next column, instead it stays in the same column and repeats the process.
I am trying to write a macro and i am having trouble hgetting it right. I have large amount of data in columns and what I would like to do is the following.
1. First I need to find the first blank cell in that row.
2. After finding the blank cell, I would like to compare the value in 3rd column from the blank cell( For example if the last blank cell is Row1,ColumnR then I need to Compare Row1,ColumnO) with Column E ( Is always Column E).
3. Based on above example if Row1,ColumnO>Row1,ColumnE, then goto next row else Row1,ColumnR value should be Row1,ColumnE and I would like to get Row1,ColumnS and Row1,ColumnT vaues to be same as last 2 columns from the blank cell which was determined first (i.e., from above example Row1,ColumnS and Row1,ColumnT vaues to be same as Row1,ColumnP and Row1,ColumnQ).
4.I would like to perform the above procedure for all the rows in the worksheet and the blank cell may be anywhere in the column for that particular row.
I don't know whetehr it is possible to write a macro to perform above procedure or i need to do that manually which i hate as i have large amount of data.
I am try to write a bit of code which will find the non blank cells in column H (Range H4:H24) and when it finds a non blank cell make column C in that row the active cell and then run a macro. Once the macro as been run i would like it to look for the next non blank cell.
View 5 Replies View RelatedI have a row of dates with a variable number of nonblank cells between them. e.g.:
A1 1/9/12
B1 6/9/12
C1
D1 8/9/12
E1
F1
G1 12/9/12
I want to calculate the NETWORKDAYS between dates, but where there is a blank cell, I want to be able to use the date in the previous nonblank cell. For example, NETWORKDAYS(B1,D1), if cell C1 is blank or NETWORKDAYS(D1,G1), if cell F1 is blank.
how to get the value of the previous nonblank cell and nest it inside the NETWORKDAYS formula?
I am looking for a way to find the first blank cell in a column.
Range("A2").End(xlDown).Offset(1, 0).Select
The problem is that there are no 'blank cells because they have a formula in them that checks a different sheet for data. If there is data then it simply copies that data. If there is no data then the value of the cell is "". So the cell shows blank but in fact it isn't.
So how do I find the first cell that don't show data because of the formula that resides in the cell? Here is the cells formula..
=IF(Data!J2"",Data!J2,"")
Starts in A2 through A151
I had a macro to do this but forgot to save before close now i can't find it.
I need to find the next blank cell in range F15:F240 and select it so i can paste data there.
Is there a way to find the first blank cell in a column using a formula?
View 9 Replies View RelatedI have a row of 2900 single letter (middle initals) however 222 users have no middle inital. this is a password scheme and need 7 digits, without the middle inital i only have 6. so I want to replace all 222 cell that are blank with a dash can this be done without doing each by hand?
View 4 Replies View RelatedI am trying to write a macro that will do a bunch of stuff then go to the next blank cell in a particular column.
The rest of the code for the macro is irrelevant I just don't know how to code it to find the next blank cell in the column. It could be anywhere from cell A2 to A1000000. Basically I want the macro to select the cell that is next on the list to enter data into.
I need to write entries into an open spreadsheet with data input on a userform.
i need to use the xlup facility to find the last used row in the spreadsheet, select the next line and then enter the data, but how to return to VBA the actual cell reference that has been selected after doing the xlup and down one row. I need to be able a total potential 31 rows of data from the userform.
I have this table, which can be seen as a basic custom gantt chart: KLRWo.png
And I would like to fill the A column with start dates, based on the first filled cell of the range on the same row, and the header value of its respective column (row 1). It's easier to show my expected result than write it actually:
WiMZH.png
I have a listing with Middle Initials in column D. D also contains dates and Names. I want to remove the Middle Initials only. I need to do this without moving around cells. So a Find:="A", Replacement:="" type of situation. Right now I have 26 two line entries to take care of this, but I know it has to be easier and use less lines. (Trying to consolidate code for a better look).
Here is some of what I have (that works, but is long):
Code:
'
' Replace Middle Initial from Prod Sheet
'
Cells.Replace What:="A", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
[Code]...
I thought that I might be able to do something like this, but I can't get it to work.
Code:
Dim Alpha as Variant
Alpha = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
For ABet = 1 to Cells(Rows.Count, "D").End(xlUP).Row
If Range(ABet) = Alpha Then Range(ABet) = ""
Next ABet
' or I thought maybe this would work.
Cells.Replace What:=("A", "L", "R", "M") Replacement:="", LookAt:=xlWhole, SearchOrder _ :=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
' or I thought maybe this would work with the variables.
If Range("B" & ABet) = Alpha Then Range("A" & ABet) = "" None of them worked though.
I need to find the total number of rows down to the next blank cell (and then perform a function based on that number).
I'm using:
CountA(A1,xlDown)
Situation: I have a raw data import - each record is anywhere from 2 to 9 rows, and I need to move each row in that group into a column.
I would like to use something like:
totalRows = Application.WorksheetFunctions.CountA(Range("A1, xlDown"))
If totalRows = 4 Then
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Cut
ActiveCell.Offset(-1, 1).Range("A1").Select
ActiveSheet.Paste
etc.
I have a userform that I am using to populate a column with data. I have the following code to find the next blank cell on the first row to enter the data from the first textbox in the userform
ActiveSheet.Range("av1").End(xlToLeft).Offset(0, 1).Value = TextBox1
I was then going to populate the rest of the cells in the column by changing the range "A1" to "A2" and so on. The problem I have is that not all of the cells have a compulsory entry so when the end(xlToLeft) function may not always end in the same column and the data will be staggered.
First Entry
A B C D E
1X
2X
3X
4
5X
Second Entry
A B C D E
1XY
2XY
3XY
4Y
5XY
What I want to do is find the first blank cell in the first row, as that will have a compulsory entry, and then fill the rest of the cells in the same column. So if the first blank cell is D1 i want to go down then D2,D3,D4 etc.
I can do it going across the rows but cannot figure it out using columns.
Short and simple. What is the quickest, easiest & most efficient way to find the first blank cell within a column using VBA?
