VBA Code To Detect Longest Cell Containing Data And Copying Whole Range
Feb 9, 2014
I am trying to do the following with VBA.
What i need is to find out the last cell with data and then selecting the whole range and copying it.
Please see the below.
As you can see, the column with the "longest" data range is B9,C9,D9,E9.
I need a VBA code to detect which Column has the longest Data and from there copy the entire range.
Hence, in this case, the range to be copied is From A2:J9.
Column A
Column B
Column C
Column D
Column E
Column F
Column G
Column H
Column I
Column J
1
2
ttt
rrr
m
vvv
gg
ff
fff
fff
fff
[Code] ..........
Hence,in this case, the range to be copied is From A2 to J14.
Column A
Column B
Column C
Column D
Column E
Column F
Column G
Column H
Column I
Column J
1
2
hjhjh
ghj
gh
ghj
ghj
ghj
[Code] ..........
View 5 Replies
ADVERTISEMENT
Aug 25, 2007
I am currently using the following macro to input a formula into my worksheet:
View 12 Replies
View Related
Jul 16, 2008
I am looking for a formula that returns the date of the first and last value in the longest continued range.
In the example:
CD30CLA3101/02/200833201/03/20086
3301/04/200853401/05/20083501/06/200863601/07/200823701/08/2008
The two formula should return the two dates in blue.
View 9 Replies
View Related
Aug 7, 2007
I had asked about automatically naming regions and this is an extension of that post because it's closed. The code we ended up with to name the region is:
Dim sNm As String, sRT As String
If Intersect(Target, Rows(1)) Is Nothing Then Exit Sub '------------------->
If Target.Count > 1 Then Exit Sub '---------------------------------------->
sNm = Replace(Trim(Target), " ", "_")
sRT = "=offset(" _
& Target.Address _
& ", 1, 0, counta(" _
& Cells(2, Target.Column).Resize(Rows.Count - Target.Row).Address & ") )"
ThisWorkbook.Names.Add Name:=sNm, RefersTo:=sRT
My problem now is that I need to have the regions be the length of the longest column. I've tried using a few different ways using the worksheet range but I can't seem to get it to work.
View 9 Replies
View Related
Apr 16, 2006
how to make such code by VBA. but i'm desperate to have it.
I need a code to copy a two different ranges from two sheets and paste them below the original ranges in each sheet "a range a sheet". And then if a clicked again the same ranges should be pasted after and so on so forth.
View 3 Replies
View Related
Feb 27, 2014
I'm going to be using a spreadsheet to keep track of where different people are at. So if Person 1 is in Room 3, I will stick a 3 in the box next to their name and then can look at the spreadsheet whenever I need and see what room they are in. When I'm deciding what room to put a person in, though, I need to be able to quickly glance at a list of Room #'s and see what one's are still available. So I have a bank of Room #'s in the spreadsheet....1,2,3, etc.
What I'd like, is some way to set this up so that when I put, for example, "3" in the cell next to "Person 1" the spreadsheet automatically removes "3" from the bank of available Room #'s and when I delete the "3" because the person has left, it adds "3" back to the bank of available Rooms.
View 7 Replies
View Related
Jul 3, 2014
I would like to be able to find the largest visible area of continuous rows in a filtered table. I know one possible way would be to loop through visible cells using the "xlCellTypeVisible" property and count cells in each visible area. However, the data is consisted of tens and sometimes hundreds of thousands of rows so I was wondering if there is a faster, more efficient way to do this.
View 3 Replies
View Related
Mar 18, 2007
i m looking for code that would copy the contents of cells A3:E100, but there might not always be 99 rows of data so could it check for rows of data below row 3 between A and E, and then copy G3:H4, all this data is in ' sheet 2' and could it paste all this data in 'sheet 3' but two columns away (to the right) of any existing data already pasted in row 3.
View 4 Replies
View Related
Apr 27, 2014
The idea is that I start out with a number of XML files, which I'm trying to manipulate to calculate descriptives and make graphs of in Excel.
So I've made a large "script" in VBA to accomplish these goals, which works, but I'm trying to optimize the code step by step.The overall process that I want to achieve, consists of :
1) Open the XML in Excel as an XML Table
2) Use the filters in the top row of that XML Table to select the data that I want to use
3) The resulting selection consists of data in 6 columns of which I only wish to select column 2, 5 and 6
4) I only wish to select the data in the table of column 2, 5 and 6 (without the header and only the cells in the table) and copy
5) Last step is to paste this data in Sheet "Calculations"
The step I'm working on right now, is step 3-4. My current code is: [Code] ......
This does the job, but I'm trying to optimize it, since I'm handling tons of XML files and I'm performing this copy function a number of times per XML file.
This copies the data of all the columns in the table for the cases that meet the selected criteria, but I'd like to make an even stricter selection of only column 2, 5 and 6 to not waste space and processing power.
So I tried to select the data from the 3 columns and combine them with the Union function, to copy them as one array to the sheet Calculations.
Optimized a similar VBA code to: [Code] ........
But I'm having issues with getting the right selection method and when I run the macro, I get the error message that the Copy and Paste area aren't the same size.
I tried to alter my initial code to something in the line of : [Code] ..........
But I get error messages 1004 : Method 'Range' of Object '_Global' failed.
I've also tried [Code] ........
But this seems to select the whole column, including the header and tons of rows even after the table ended.
View 2 Replies
View Related
Dec 27, 2011
I have data on Sheet2 and would like to only copy all rows associated with column D2 to the Sheet3. For example Sheet2 has two different values Voice or Data I would like to copy all rows associated with column D that contains voice to Sheet3.
View 4 Replies
View Related
Oct 7, 2009
I have written a code for a cell in excel but it only works for the row it is on. I want to copy this code down the column (until reaching an empty row) will cells refernced in the code changing accordingly (just as if i had written the code in the cell and dragged it down a column). A sample of the code I have written is given below.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E4").Value = "L" Then
Select Case Range("D4").Value
Case 43
Range("H4") = "=2*G4"
Case 48
Range("H4") = 60
End Select
View 9 Replies
View Related
Apr 20, 2009
I am trying to display a message box for the user if there is "agency" in cell o8 but nothing in p8... I tried the following code but it doesnt work..
If Range("o8").Value = "Agency" And Range("p8").Value = "" Then
MsgBox "Please provide name of agency in cell p8"
Sheet9.Shapes("cross").Visible = True
Else
View 9 Replies
View Related
Mar 21, 2014
I have a range of weekly data that I need to copy into another workbook, paste it below the data that already exists there and then delete the data from the original workbook. I would love to do this with vba but after hours of searching on how to do this my brain is frazzled.
I have 50 workbooks that I need to import weekly into one master sheet (Master.xlsm) but they need to be done individually after the weekly data has been checked. The master sheet will therefore have existing data and the new data needs to be appended at the bottom. Also column A will be blank in both workbooks so to find the last used row it will need to look in column B.
The number of rows in the weekly sheet will also vary rather than be a fixed range so I guess the last used row will also need to be found there too.
The attached file is a cut down version of my working file showing where the data starts on Row 14, I won't need to copy the headings.
Example file 21.03.xlsm‎
View 4 Replies
View Related
Sep 2, 2009
I am having some 100 excel files in a folder. I need to copy specific values in those files to another new excel file. The file names are like file_0.xls,file_1.xls.....etc and the range to paste those values are like B1, B51,B101...etc...
I got the code for one file. Now i need to increment the final name and pasting range.
View 14 Replies
View Related
Apr 12, 2009
if i have data across multiple rows than is it possible to analyze that data in say row 1 and once row 1 ends move to row 2. example
Array Data
Colmn A B C D E
Row1: 3 1 4 6 8
Row2: 6 7 8 9 10
Row3: 4 5 1 2 8
Row4: 6 4 3 2 1
Row5: 2 4 1 2 2
OutPut Format
Colmn F
Row 1: Age is 3
Row 2: Always Same - Note this appears even though not part of data
Row 3: Year is 1
Row 4: Time is 4
Row 5: Hour is 6
Row 6: Minute is 8
Row 7: !
!Not Part of Output Comment: Now row 1 data has ended. Move to Row 2!
Row 8: Age is 6
Row 9: Always Same - Note this appears even though not part of data
Row 10: Year is 7
Row 11: Time is 8
Row 12: Hour is 9
Row 13: Minute is 10
!
etc
etc
etc
also note that the text that comes up in each row is not part of the data portion. Its just the number or string that gets pulled from the data portion.
View 9 Replies
View Related
Jul 22, 2014
I'm trying to use the SendKeys function to copy data from a range using a button.
I realise this is not the most elegant of ways to acheive the result, but there are a number of factors involved.
The range is laced with code.
View 4 Replies
View Related
Apr 12, 2007
I am trying to detect if a user leaves a cell empty. I have tried If statements like:
If Target.Value = "" Then
and
If (IsNull(Target.Value) Then
The problem is when the user uses the spacebar to delete an entry in that cell. If they leave any spaces after exiting the cell those if statements fail to run.
View 5 Replies
View Related
Jul 21, 2006
I have a macro which inserts rows at certain places in a data table. This works fine. I then want to copy the formulae from the the row aboove or below (dependent on certain criteria). This sort of works.
I have is that when the row is copied, the row numbers within the formulae do not change relative to the new row. Eg if I copied down "=A6" one row, the formula still says "=A6", rather than "=A7".
I have tried variations of
Selection.PasteSpecial Paste:=xlPasteFormulas
I also tried the AutoFill method (but this didn't work at all when I tried it with a whole row)
Previously, I would have selected ranges and then pasted on the active sheet. However, I am trying to re-educate myself in writing macros that do not 'select' ...
View 5 Replies
View Related
Oct 25, 2009
I've a sheet that presents the profitability of sales locations in a geographic layout (similar to Tables in a restaurant), each sales location is a cell, with roughly 1,600 locations presented. Each location is colour coded based on performance / measure, in a basic thermographic way [e.g. dark blue for very poor, solid red for high performance] with users being able to change metrics and re-colour cells accordingly.
The sheet is already information rich, but I'm wanting to detect the cell address directly under the pointer and populate a text box or other cell based on the value in the cell directly below the mouse pointer.
My question is; Is there a simple way of detecting the mouse position on the XL Grid? nb. Want to avoid having to activate cell beneath pointer.
View 6 Replies
View Related
Jun 4, 2012
I have a user that uses pivot tables and charts every month to do a report. He wants to copy his charts every month and then just change the month in the data for the pivot table, but not matter what he tries its tied to the previous month and then chart data range in the select data source properties is grayed out. how to get this to work?
View 3 Replies
View Related
Sep 8, 2009
We have a workbook with over 20 worksheets, each sheet with one or more tables in it. Several people use the workbook and we have decided that when someone changes a cell, they should mark the changed cell by filling it with blue using Format Cell. We have then nominated one person at end of each week who will check all the changes made during the week and either approve or reject them. So her task is to find all the blue cells, check them and then take the shading off.
What I would like to do is to create a macro to help her. I would like the macro to automatically identify all the blue cells in the workbook and give her a list of these cells. I wonder if someone could give me direction on a couple of things:
1) The command in the macro that would return whether a cell is shaded blue
2) The way in which I could cycle through all the content of each worksheet. I'm thinking worse case I would have to write instructions to go to each sheet, and then do an outer loop to go through each row, and an inner loop for each column (and the number of active cells varies by worksheet) -
View 9 Replies
View Related
Aug 11, 2006
I am try to do a test on cell to see if it’s a string, and then do something if it is: IF Range ("a1").value "equal a string" THEN. But I am not very experience in VBA
View 2 Replies
View Related
Mar 13, 2007
I'm doing the vba programming for excel where I added a button to the excel, and when user click on the button, it will trigger my function.
My question is: if currently there is a cell been focused, how can I know whether that is in the 'editing mode' (ie, focus on that cell and double click on that) or merely 'focus' on that cell? Any of the excel object property for this?
View 9 Replies
View Related
Dec 4, 2007
I need an equation that lets me determine whether a cell contains a static constant value (either a string or a number), or an equation that generates a value.
Problem: I have a cell that contains a default equation that generates a default value, depending on a few conditions. The user can overwrite this cell with a constant. In another cell I need to know whether that cell is still the default equation or a new constant value.
I cannot simply test the value of the contents to see if they match my default, because the user may choose to enter that value.
View 9 Replies
View Related
Apr 2, 2012
How can I get the Longest sequence of 3's. E.g.
CA
1
2
3
5
3
3
5
4
View 2 Replies
View Related
Jun 21, 2014
I am looking to run two separate macros. I have a project plan and I am looking to be able to select a button whereby on-click, a new row is created within a selected cell. However if the cell clicked is outside of a pre-determined range, then the task is automatically entered at the bottom of the plan. I would like for the copied row to go ABOVE the selected cell and have all of the same formatting as the row below (not the top - as is default in Excel).
The second is going to be very similar but will copy a task category (like a header item) and the first task (row) found below. It will also be copied from below and be inserted above the selected cell.Both macros will clear certain cells, whilst maintaining the contents of others, with formula contained. I.E. Columns C,D,E,H,I,J will be cleared.
View 2 Replies
View Related
Jun 12, 2008
I'm attempting to summarise several hundred control charts.
One thing I'd like to do is be able to put in a formula to count the maximum number of successive entries that are all the same side of the mean.
Another related thing is to be able to count the longest run where successive values are the same.
View 4 Replies
View Related
Dec 3, 2008
I know of
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
but I would like to expand this idea to detect any change in cell selection across all open workbooks.
View 6 Replies
View Related
Mar 13, 2014
How I can show the longest string in a column, I've tried to find a formula that does this but it only shows the number of characters, not the actual string contents.
View 2 Replies
View Related
Nov 10, 2008
I have a list of dates in column A (sequential from low to high).
I have corresponding rainfall data in column S.
I am trying to find the longest run of 0's in the rainfall data and return the start and end dates. It would be great if i could tell it (in cell C8) to find the longest run below this number.
ie: i say i want to find the longest run of numbers below 5.
View 7 Replies
View Related
