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)
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
Please see the attached sheet. I have columns B through a lot (B through O in my oversimplified example). In every 7th row in each of these columns there is either a 1 or a blank/zero. I need to multiply that 7th number by the Quantity in column A, to achieve a total (ie the sum of each result of 7th cell*quantity) for each column in the bottom row, labeled "Totals".
In the actual version of my sheet, there are far too many rows to select everything manually. I've been fiddling with combinations of COUNTIF/COUNTA and OFFSET, but I haven't come up with a way to check for the 1 in every 7th row, THEN multiply that 1 by the quantity in column A, THEN add up the results for each column. As you can see, there are 1's elsewhere in the columns that are irrelevant to this particular calculation, so something like LOOKUP would also have to look in every 7th cell and couldn't just look at the column as a whole.
If you can't provide an immediate solution, but can at least point me to a resource that would allow me to devise a way to isolate every 7th row (THAT part is the sticking point), I'll surely post the solution to my own thread with updated keywords if I need it.
I'm trying to search column 1 for the word "STATE".
Dim rFound As Range On Error Resume Next With Sheet5 Set rFound = .Columns(1).Find(What:="STATE", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False) debug.print rFound
On Error GoTo 0 If Not rFound Is Nothing Then Application.Goto rFound, True
I have 10 columns and 18 rows. Every 2nd row might contain a number. I need to sum those numbers, however, sometimes group of cells in a row can be merged and i value of a cell is then 0.
example:
A1 to D1 merged; value 6 A3 to B3 merged; value 3 B5 to E5 merged; value 2
=sum(A1,A3, A5) would return 9 - correct =sum(B1,B3, B5) would return 2 - should be 11? =sum(C1, C3, C5) would return 0 - should be 8? =sum(D1,D3, D5) would return 0 - should be 8? =sum(E1, E3, E5) would return 0 - should be 2?
i want information on my "Intra-op tab" to automatically populate on my "Tissue" tab. In Column "A" of my intra-op tab i enter case id's, 1 per row, and i would enter a date received under column "D". On my "Tissue" tab, i also enter those case id's under column "A" but i would have multiple rows of the same number. I want that whenever i type a specific case id on my "Tissue" tab, it will automatically fill in the date in column "T", the date that coincides with the case id in column "D" of my "Intra-op Kit" tab.
how do I apply a formula I entered into one cell to all the cells in that column, without going through the tedious process of typing the formula in again in each cell ? I've done it before but don't remember how.
Search column "I" for blank cells. If one is found then all adjacent cells to the left in that row are shifted to the right by one. (in other words for that row cells A-H are shifted right to become cells B-I).
Search column "I" for blank cells. If one is found then all adjacent cells to the left in that row are shifted to the right by one. (in other words for that row cells A-H are shifted right to become cells B-I).
I'm using the following code to delete select rows one at a time. I need the last row in the range to remain therefore I prevented the user from deleting the row one up from the row that contains "Total Hours" (which is always in Column B). The code works great as long at the user clicks into a cell in column B. If the user clicks into a cell in column A, C, D, E, F, G, H, or I then the code allows the user to delete the last row.
I believe I need to search entire rows to determine if the row contains "Total Hours" .
I needed to match the width a merged area of seven columns to a single column width (for row autofitting). Adding the column unit values and setting the single column to that value produced a significantly narrower width.
The documentation mentions that the column width unit is scaled to the font type and size and the absolute width is given in points.
This is set by the normal style setting in Excel Options or by VBA application.standardfontsize = 8 (in this case).
For instance, ten columns of Arial font 8 at 8.5 units you would think to be equivalent to a single column of 85 units. In points, the difference is 420 vs. 386.25, or 33.75 points.
Well, the standard character zero has a width at this setting of 4.5 points and 1 unit is 8.25 points, leaving 3.75 points for margins.
Then (10-1) margins allowances time 3.75 points resolves the difference.
Determining the margin allowances is straightforward, and reveals that the gradation with size is stepped by MS design. For instance, sizes up to 11 use 3.75 points for margins and increasing points for characters (except between 9 & 10). Sizes 12 through 18 use 5.25 points, 20 & 22 use 6.75, 24 & 26 use 8.25, etc.
I have created a table for this purpose, however I rarely use a "normal" other than 8, so I can probably use that set in programming.
I have a huge excel file (who doesn't ) and would like to create a macro to select cells between 2 blanc cells in a column. (Then another macro will continue to select all in the table for that specific range and copy-paste to another sheet. But this part is not relevant)
The details
The table will be like below.
So the macro should select between F2:F6. (then another macro will copy F6:A3 and cut-copy this range to another sheet); and when I re-run this macro this time it will copy the range of Model B..
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.
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.
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
The above code works fine when I have information stored in multiple cells (C9, C10, C11, etc.). However, if I only have data stored in C9, my selection is expanded to the last row. I need a way to select all the data up to first empty cell even if the only cell containing data is C9.
In cells A71:A140 I have the following formula: =IF(A4"";A4;"").
How can I select only the cells in range A71:A140 where the formula has returned a value (number or text) and not the blank cells? When I try ctrl + shift + down arrow, all cells in the range are selected...
