Select Specific Columns Rather Than Entire Row
Sep 28, 2013
I plucked a macro off an old post from here (as I always do), but I'm having trouble tweaking it.
VB:
Sub completedtest()
Dim c As Range
Dim rngG As Range
For Each c In Intersect(ActiveSheet.UsedRange, Columns("i"))
[Code] ....
As it currently stands, the macro selects the entire row of rows containing the letter Y in column I. All I need to change is, I want to simply select columns B through I, rather than the entire row.
View 2 Replies
ADVERTISEMENT
Jun 13, 2008
how to format a row based on text that is in a certain column. For instance, if a cell in column B has text in it I need to format the entire rest of the row with a certain background color and text color. I've been searching around here for a while and I think I'm really close, but I just can't seem to nail it down. Here's the code that I've worked on so far.
Sub Reformat()
Dim SrchRng3
Dim c3 As Range
Set SrchRng3 = ActiveSheet.Range("B1", ActiveSheet.Range("B65536").End(xlUp))
Set c3 = SrchRng3.Find("Europe - *", LookIn:=xlValues)
Do
View 3 Replies
View Related
Mar 25, 2014
I have been trying to find a way of formatting an entire row based on the contents of cells in each column. However i come unstuck when trying to make the column dynamic. Below is an example:
Month
2010
2011
2012
[Code]....
The idea is that i say current year is 2011 and all rows where C contains an a will turn green. What i would like to achieve is that when i change current year to say 2012 the conditional formatting adjusts so that it looks at D instead of C.
View 3 Replies
View Related
Feb 19, 2010
As the title sugests I would like to Select a cell and a macro will highlight the row and column
Sub Select_Entire_Row()
Dim RowNo As Integer
Dim ColNo As Integer
RowNo = Selection.Row
ColNo = Selection.Column
If RowNo.Value >= 1 Then
Cells(RowNo, ColNo).EntireRow.Select ' I want it to do both not one then the other
Cells(RowNo, ColNo).EntireColumn.Select
End If
End Sub
View 9 Replies
View Related
Jul 31, 2007
Is it possible to select entire row while Pressing Down Arrow Key from the key board.
View 2 Replies
View Related
Sep 4, 2009
I have a workbook that uses Autofilter.
Column A has data. Column B is hidden, has no data, and is empty.
Colmn C has data, on through the rest of the sheet (to Column AB).
Why column B has no data is unimportant for now. It, however, must maintain its existance and cannot be deleted.
When I select the autofilter sort button on column A, it selects only that column, and not the rest of the sheet. Data is subsequently scrambled.
When I unhide the empty column B and select the sort button on column B, it selects the entire sheet. Data remains intact.
When I select the sort button on column C, it selects the rest of the sheet, but not column A (with data), or B (with no data). Data is subsequently scrambled.
View 5 Replies
View Related
Jul 7, 2014
I have code to Add a row to my Table ...
[Code] .....
Now, how do I select the entire Table row below ActiveCell?
View 3 Replies
View Related
Mar 30, 2012
I 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
View 4 Replies
View Related
Feb 6, 2007
I have this problem quite often and always have to think of a way around it, however I think there must be a simple method of doing what I want.
If I want to select row three, I would write:
Rows("3:3").Select
However, if I have a variable which holds my row number how do I rewrite the above code? I've tried serveral varations of:
Rows("CurrentRow:CurrentRow").Select
View 9 Replies
View Related
May 19, 2014
I've been working on a macro which delivers a daily report. the report is made up of 4 sections (received orders, scheduled orders, pending orders and unusual orders) each section is topped by a title which is a merge of all columns (A through I) the problem I am having is that the first column displays case numbers (to be displayed in text or number formats) and the 7th and 8th columns are dates When I try to have the VBA select the first column to format as a number, it will select all columns due to the merged cells is there a way to format only non-merged cells of a columns
This is the section I currently use for formatting but it doesn't actually work, (everything ends up in a date format)
[Code] .......
View 2 Replies
View Related
Oct 30, 2012
I have data that i import on a daily basis, the data can range from a couple of rows to thousands,
What I need to do using VBA is select the active cells, where cells in row ''G'' is blank then delete the entire row where that cell is.
View 3 Replies
View Related
Aug 19, 2009
I recently found this code for selecting a whole column of non continuous cells.
ActiveSheet.Range("a1",ActiveSheet.Range("a65536").End(xlUp)).Select
How can I change the "a1" & "a65536" so it can work and be activecell instead?
View 9 Replies
View Related
Aug 29, 2007
I've been tasked with developing a macro that will generate schedules. For background, we're taking a QuickBooks Customer file and exporting it to be picked up by the macro. I've got that part working, but now I need to delete various rows based on certain criteria.
The spreadsheet has a field for Job Status which we use to define whether an account is under contract (2 in QuickBooks), or some other status. Basically what I need to do is delete the entire row of data where JobStatus (Column R) is anything but 2.
View 9 Replies
View Related
Jul 18, 2012
Ihave a list of names in column A in certain rows instead of name there is an email address in this case I want to delete the entire row
View 4 Replies
View Related
Aug 13, 2007
I have column A with various values in cells.
For instance, DG, GS, HG etc
I wanna do if a cell in column A is equal to DG then select the entire row that contains the cell. then call other sub.
View 9 Replies
View Related
May 4, 2014
i want to delete entire blank row from column C2:C300 i mean if i have data c2:c100 then c101:c300 delete entire blank rows
View 4 Replies
View Related
Apr 3, 2013
I'm trying to copy entire row from sheet "source" to sheet "output".
Condition: If cell or cells in range (E7: lastcoll, lastrow) value is "A" then copy entire row.
Find the excel template in attachment.
My problem is that my macro is copying particular row, as many times as many "A" finds.
I want to copy entire row just once doesn't matter how many cells with "A" are in particular row.
VB:
'function to find last column a change letter of column to number
Private Function ColLetter(LastCol)
ColLetter = Split(Cells(1, LastCol).Address, "$")(1)
End Function
[Code] .....
copyROW.xlsm
View 3 Replies
View Related
Jul 12, 2007
I tried to writer my code myself but I have a long way to go. Here is what I must do for my case:
I want a macro to find the row that include a specific text (For example "SMSC") in a range (A1:A100) then copy this entire row below the cell which has the value "OTHERS". That is, if there are 10 pieces of "SMSC" so these rows including "SMSC" should be listed below the cell "OTHERS"
View 9 Replies
View Related
Sep 23, 2009
The following sub will look in the file ("FY09 SOF"), in column "A", search for the strings that begin with "2109", "3009", or ends in "-1", and copy the entire row. It will then paste these in the file ("FY09 PR Log Blank").
I also need it to look in column "C" in the ("FY09 SOF") file and pull the entire row if it finds the word "Payroll".
For some reason it will pull everything needed except the "Payroll" rows. What am I doing wrong?
Sub get_data()
Dim wb As Workbook, wbDest As Workbook
Dim ws As Worksheet, wsDest As Worksheet
Dim lngCalc As Long
Dim FoundCells As Range
Dim FoundCell As Range
Set wb = Workbooks("FY09 SOF")
Set wbDest = Workbooks("FY09 PR Log Blank")
Set wsDest = wbDest.Worksheets("Paste all here, then sort")
With Application
.ScreenUpdating = False..........................
View 9 Replies
View Related
Aug 24, 2008
Code that will highlight a entire row when a cell from a column has a value of 0. It will check all the cell from Column C1:C100 and check all the cells that contains a 0 value. Need to highlight the entire row that contains this cell value and fill it in orange color.
View 9 Replies
View Related
Apr 5, 2012
I am a total newb to excel and vb, and only have minimal experience in embedded C.
I have a very large spreadsheet with 9 columns and the max number of rows that excel supports (office 2010).
What I want to do is copy the entire row of data IF a cell in that row contains a specific string I'm interested in.
If it's necessary, the column that contains the values that would trigger a row copy would be column C and the data would be pasted onto a new sheet.
View 1 Replies
View Related
Aug 22, 2014
I am trying to create a graph that is conditional on two different columns. The first column is a date column, the second column has various categories. I want to show how many times each category appears per month. This database is continually added to so I wanted the formula to reflect the entire column range.
For example, let say I have 5 categories (Grapes, Apples, Peach, Pear, Banana). Column A would show a date (in a M/D/Y format) and Column B would list the fruit type. I want to show how many Grapes were input in January, February, March, etc. and then move on to show how many apples in each month, and so on.
View 5 Replies
View Related
Oct 26, 2009
My macro's function is to paste the workdays of an entire month in a specific row of a worksheet. Everything seems to work except using a number to reference the column in which to store the values. I've searched the web for over an hour and found two "solutions":
1. write a function to convert column number to a letter
2. utilize Cells object
#2 seemed more efficient but the function is giving me the error: "Runtime Error: '1004': Method of 'Range' of object "_Worksheet' Failed"
View 4 Replies
View Related
Mar 27, 2013
I'm trying to have a macro run to search a specific column (S) for a particular text value "y" and if true it will change the font to bold and the color to red for the entire row of the cell that contains the "y". the column is part of a data table that is constantly refreshed not sure if that makes a difference or not.
View 2 Replies
View Related
May 5, 2014
I need to conduct keyword searches in excel and color the keywords a different color without changing the font color of the entire cell. now, i found some code from another thread that does this, but i cant seem to get it to work with more than 2 keywords. i need fine-tuning the provided code to do what i need it to do.
[URL]
the VBA code i used was this:
[Code].....
I was playing around with the example, the Cat_Mouse.xlsm, and when i modified the 'myList' and 'myColor' arrays, it does not work.
Cat_Mouse.xlsm
For example, I modified the code to add the word bat:
[Code] .....
When i run the macros, the word "Bat" does not become colored red. interestingly enough, when i substitute the word "bat" for the word "hat" in the "myLIST array, the word "hat" does change to the red font.
I am looking to use this code to address keywords in my excel file by coloring all key words red and i have more than 10 key words.
View 9 Replies
View Related
Jun 23, 2014
I am using the code below in Excel 2013.
Sub Test()
For Each Cell In Sheets(1).Range("J:J")
If Cell.Value = "131125" Then
[Code]....
This works great except that it pastes formulas. I would like to paste values only. I've tried
" PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False" and it gives me an error.
View 3 Replies
View Related
Aug 19, 2013
I'm having some problem with a part of my code that deletes entire columns. With ActiveCell as my reference, I want to delete 'Abs_Diff' Columns to the left hand side of the ActiveCell column, including the ActiveCell column. 'Abs_Diff' is a variable of integer type.
SO if ActiveCell column is "P" and 'Abs_Diff'=2, then delete Columns "O:P"
if ActiveCell column is "P" and 'Abs_Diff'=4, then delete Columns "M:P"
My code is selecting columns incorrectly, maybe due to merged cells in cols A,B,C or something..not sure.
Here is my code:
Code:
'DELETE COLUMNS
Set StartPoint = ActiveCell
For X = 1 To Abs_Diff
StartPoint.EntireColumn.Delete
Set StartPoint = ActiveCell.Offset(0, -1)
Next X
View 1 Replies
View Related
Aug 4, 2007
I have a weekly worksheet that my office uses to track order issues. Column H has only 4 possible entries. They are:
Multiple Orders
No Order In System
Credit Info Incorrect
Other
What I need is a formula to keep a running percentage of these 4 entries. Example: Next week, there are 10 errors entered. 3 are Multiple Orders, 2 are No Order in System, 3 are Credit Info Incorrect, and 2 are Other.
I need to get the total # of errors entered and the percentage of each. So in this week, I would need the formula to realize we have 10 total entries with 30% Multiple Orders, 20% Order in System, 30% Credit Info Incorrect, and 20% other.
View 5 Replies
View Related
Feb 3, 2014
I am wanting a Macro or a VBA to look at all of my rows and completely highlight the row after 2 text values are found.
Example: Range A3: P:28, Find in Row A3:P3 that has "Text1" and "Text2"
View 3 Replies
View Related
Aug 22, 2013
I have worksheet, whose snapshot is given under (in reality, there are over 2000+ rows in worksheets)
I want a Macro which can perform following function in entire worksheet used range
Only retain the rows where the cell value in current row is identical BOTH in Column B, as well as column D in its immediate previous row
i.e. B14=B13 and ALSO D14=D13 (both condition should be valid, if not Delete entire ROW, i.e. having unique value)
Normally, ppl wish to delete the duplicates, but i want to retain the duplicate as identical data is of two different dates, control in Column O
My Worksheet looks like - [URL]
View 8 Replies
View Related
