Pick Data From A Specific Row/column (eg 10/B) Related To Active Cell
I have a spreadsheet with my Periods along row 10. e.g. C10: "1", D10: "2", E10 "3", F10: "4", G10: "5" etc. (green on the attached sheet). I have my departments along column B, e.g. B11: "Baked" B12: "Fresh" B13: "Frozen" (yellow on the attached sheet)
what I need and cannot work out is some VBA code that will populate two variables (lets call them Period & Department) when I click on one of the figures. For example if I click on cell: if I click E14: Period would have the contents of cell E10, and Department the contents of cell B14.
if i click G14: Period would have the contents of G10, and Department the contents of cell B14 again. I know how to get the click on the cell to work properly etc, and I have code to slot these variables into that works very nicely, I just can't get this bit to work!!!!
View Complete Thread with Replies
Sponsored Links:
Related Forum Messages:
Paste Formula To Specific Row In Active Column
I'm trying create a macro to enter a series of forumula's in a series of rows in whatever column is currently selected (or column which has a cell selected). IE if the active cell is C5 I want "=A1+B1" copied to C10 of it was AA43 selected I'd want "=A1+B1" copied to AA10. Have done this with setting a row as a variable, but whenever I've defined the column as one it comes out as a numeric value. and gives me "method range of object global failed"
View Replies!
View Related
Pick Up A Specific Number From Column
I have two columns in excel. Column “A” where I have different group names column "B" all the different numbers and column “C” where I have ranked based on column “A”. I need a formula that would pick a number that is ranked 51 with specific group. Currently I’m using below formula (where MC1 represents one of the groups)that is working great unless there is no tie, however if there is a tie for rank 51 and let say two numbers are 22 and 22 the formula will return 44. SUMPRODUCT(--(Terr!$Q$16:$Q$518=MC1),--(Terr!$AC$16:$AC$518=Main!C69+1),Terr!$Z$16:$Z$518)
View Replies!
View Related
Highlighting Active Cell's Row, Along With Any Row That Shares Same Value In That Column
Is it possible to click on a cell in column C, and have the wishlist below happen: That active cell's row is hightlighted. Any cell in that column that has the same value as active cell is also highlighted. Plus, any cell in another sheet that has that value it's row is highlighted too. Example: I click on C5 in Sheet 2 its value is 45000789 it row is highlighted, this value also appears in C3 in the same sheet, so it's row is highlighted as well. Plus, in sheet 1 in C10 this value appears and it's row is highlighted as well. When any of the values are clicked again the highlight is removed from all parties.
View Replies!
View Related
Set Variable To Row & Active Cell Column
I have a sort procedure I have been working on. Sort By Active Cell Column Now I would like to make sure the row of the activecell.column is row 7. I tried Private Sub comp_myMonthlyReport_SortAscend() Dim rng As Range With ActiveWindow rng = .ActiveCell(7, .ActiveCell.Column) End With Selection.Sort Key1:=rng, _ Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub But I receive this error: Run-time error '91': Object variable or With block variable not set
View Replies!
View Related
Color Row If Cell In Column Contains Specific Word
I've been trying to come up with a conditional that will format a row if a cell contains any instance of a given word. I know the following will format rows containing the EXACT entry of "apple" in column E: =$E1="apple" But I'd like a conditional that will find entries like "apple pie" and "crabapple" as well. I'm sure it's a simple solution, using a SEARCH function or something...but I can't figure it out.
View Replies!
View Related
Copying Row To Other Worksheet If Cell Has Specific Data
I have an Excel 2003 spreadsheet with multiple sheets - one main one with all data and others which have only the data that falls into certain criteria. I'm wondering if there's a way to enter the information on the main sheet and have it automatically populate the correct "sub-worksheet" depending on what is entered in a specific column. I'm not describing this well but I've attached a sample of what I mean.
View Replies!
View Related
Macro To Copy Specific Cells From Row From Source & Stop When Next Row Cell = Specific Value
I have a protected template and unprotected source worksheets - - - what I would like to happen is for the macro to start and if the source worksheet cell B3 equals "Report Total" then stop - otherwise copy template worksheet then copy 6 specific cells from the source to paste values to specific cells on the newly created worksheet (B_ to C7, D_ to I7, E_ to C9, F_ to K9, A_ to C11, M_ to K11 and then K13=F13-30) After that then start all over again unless the next row’s cell (B4, B5, B6, . . .) is "Report Total" then stop - - - the row count could be from one to a couple hundred. Here is what I have so far but I know that with each copy the name will change and as it goes down the source file each row will change and I also need help with that. Sheets("ee template").Copy After:=Sheets(3) ActiveSheet.Unprotect Selection.ClearContents Range("I7").Select Selection.ClearContents Range("C7").Select Sheets("source").Select ActiveCell.Offset(0, -11).Range("A1").Select
View Replies!
View Related
To Highlight Active Row And Column
I found this code to highlight the active row. I tried to make it highlight the row and column, but I was not successful. What I really need is to highlight the active row and column above and to the left of the active cell, not the entire row and column. For example, if G10 is active, the highlighted cells would be G1:G10 and A10:G10. Private Sub Worksheet_SelectionChange(ByVal Target As Excel. Range) Dim i As Long Cells.Interior.ColorIndex = xlColorIndexNone If Application. CountA(Target.EntireRow) 0 Then i = Target.Row Else For i = Me.UsedRange.Rows.Count To 1 Step -1 If Application.CountA(Me.Rows(i)) 0 Then i = i + 1 Exit For End If Next i End If Rows(i).Interior.ColorIndex = 6 End Sub Also, I have fill colors on the sheet and I just noticed that the code removes those fill colors. I need it to not remove my fill colors. The only fill colors it should remove are ones it previously colored.
View Replies!
View Related
Insert Row On Sheet & Move Active Cell Row To It
I would like to create a macro that could archive entries from one sheet and insert them in another. I created one but the problem is that the entry has to be the same row each time. Example: Sheet 1 – is current jobs and sheet 2 is old jobs. My macro moves an entry from Row A-5 of Sheet 1 and moves it to the top of Sheet 2. I would like to be able to scroll through each entry select it and have it moved to the top of the Old Jobs sheet.
View Replies!
View Related
Insert Row At Active Cell With Formula From Fixed Row
I want to insert a new row that contains the formulas of a fixed row (1:1). The inserted row is changeable and is determined by whichever is the current active cell. Eg: Active cell is something random like E16 I want to add a new row but don't want a blank row - rather want a row that contains the properties of 1:1
View Replies!
View Related
Minus Number From Cell And Result In Specific Cell And Specific Column
I have number in cell (A1) = 100. when I enter number in any cell of column(B) for example (B1)=10. then in cell (C1) the result of (A1) - (B1) = (90) and if I add in cell (B2)=10 then in cell (C1) the result of (A1) - (B1+B2) = 80 .accumulatively in cell (C1). and any number in column (B), the result will be (A1) minus any number in column(B) accumulated in (C1) second question I have number in cell (A1) = 100. when I enter number at cell (B1) = 10 then the result would be in the adjacent cell (C1) = (A1) - ( B1) = 90 and If I enter a new number in cell (B2) = 10 then the result would be in the adjacent cell (C2) = (A1) - (B1+B2) = 80 and If I enter a new number in cell (B3) = 10 then the result would be in the adjacent cell (C3) = (A1) - (B1+B2+B3) = 70 and so on. I want the result to be add automatically to adjacent cell in column (C)
View Replies!
View Related
Combobox To Show Only Values Related To Row
I have an inventory sheet that uses multiple userform comboboxes to input data to a sheet. Everything works great except on one userform "pullmat" where the user removes inventory from a unique list of all material available in "Master Log" sheet. The combobox that im trying to fix is "combobox3" in the "pullmat" userform. I'm trying to get that combobox to only show P.O. numbers that are related to the material selected in the "Material Code / Name- combobox2. In other words, the user should only be able to select a P.O.# that matches that specific material on the Master Log sheet. The file size is too large to attach but I can email a copy if needed.
View Replies!
View Related
Use Value Of Active Cell To Name Row
I'm trying to take the value of a cell and use the value as a name for the row. If cell a1 has value = June. I want to change the name of row 1 to June. I'm not sure what I'm doing wrong with the following code. Sub Name_a_row() ' ' Dim TheName As String Dim RowNum As Integer TheName = ActiveCell.Value RowNum = ActiveCell.Row ActiveWorkbook.Names.Add Name:="TheName", RefersToR1C1:="=Data!R&RowNum"
View Replies!
View Related
Fill An Empty Cell With First Data Cell In The Same Column, Next Row(s) Down
I am looking for advice on how to move cells containing data (columns D to K in EXAMPLE A), upwards so that the information lines up with data already existing in columns A to C (to be included as part of an overall VBA routine). In the upper example data in cell D2 needs to move upto D1, E3 to E1, F4 to F1, G7 to G1 etc and K9 to K1. Now, data on following rows is to move upto row 2 eg: E5 to E2, F6 to F2, G8 to G2. The first 'block' of data starts at row 1 and finishes in this case at row 9. The next 'block' of data starts at row 10 and finishes at row 18. Row 19 shown is the start of the next 'block'. These 'blocks' may have upto 20 rows ....
View Replies!
View Related
Delete Row If Specific Data Is Found With That Row
I have been trying to create a macro vba that will look at a specific row in the current sheet and if it sees a name I need to delete that row. But I am looking to also under stand what it is doing so I can use this script in other instances. I just bought some things off MrExcel's Store but i won't get this for a few days.
View Replies!
View Related
Use Active Cell For Row Number
There is a chart encompasing column A, B and C. The column D has certain numbers stored in its cells. All I wont is to build a code which would check the value of the cell in column D which is in the same row as the active cell, and then paste certain date into the active cell - basing on the value of the cell in column D. Here an example: Sub pasteif() first one) column D has 'if the value is i.e 2 then it should paste into the active cell whatever there is in Range F1:G1 'if other value is present in this case in cell D1 (it is always the D column) then other range would copied into the active cell Range("F1:G1").Copy ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
View Replies!
View Related
Highlight Row Of Active Cell
Is it possible to have a specified shading (say 50%) applied to all rows except the currently picked row and the header rows to allow a user to focus on inputting across the row? I'd use this in conjunction with " Move Selection After Enter" to "Right" so the user would stay on the same row. I've tried the Help function, but can't find anything.
View Replies!
View Related
Delete Row Of Active Cell
I have a macro for deleting a row. I want iit to delete the row that I have selected, that is i if I mark cell B22 I want it to delete row 22. But it deletes the row under it, that is 23. Sub Tabortrad() Dim intRadnr As Integer Dim intStartrad As Integer Dim intSlutrad As Integer intRadnr = ActiveCell.Row intStartrad = ActiveSheet.Range("Första").Row + 1 intSlutrad = ActiveSheet.Range("Sista").Row - 2 If intRadnr < intStartrad Or intRadnr >= intSlutrad Then MsgBox "Kan inte radera denna rad. Placera markören på en av bokföringsraderna mellan rad " & intStartrad & " och rad " & intSlutrad - 1 & "." & Chr(13) & "En ny rad kommer att infogas under den rad där markören står.", vbOKOnly, "Felaktig rad markerad".......................
View Replies!
View Related
Range In Same Row As Active Cell
I'm looking for a piece of code, which would activate a certain Range i.e. the start of which would be in column A and the End in Column G. My problem is that the activated range of cells shuld be exactly in the same row as the currently active cell i.e. active cell B3 -> activated range A3:G3 .
View Replies!
View Related
Column Header Of Specific Value In 2nd Row
Have a set of dates as column headers across a worksheet. Rows are product names. When a product is delivered, the cell is marked "delivered" for the date (in the column header) it was delivered. Need a formula that will look across each row (product), and return the date of the first cell with the value "delivered". I have: =INDEX(F19:AS19,1,MATCH("delivered",F19:AS19,0)) <for row 19. right now, but its just giving me "delivered" as the value and I cant figure out why.
View Replies!
View Related
Convert 2 Column List To Multiple Related Columns
I have a long list of 2 columns containing data as follows: col A col B country1 date1-1 country1 date1-2 country1 date1-3 country2 date2-1 country2 date2-2 country3 date3-1 country4 date4-1 country4 date4-2 country4 date4-3 which I would need to move to get one row per country in column A with all related values from col B in multiple columns on a single Row, e.g....
View Replies!
View Related
Return Active Cell's Location/row
I'm having trouble identifing a way to return a location for the position of the active cell. I've searched Excel help with "Position, location, return, activecell, etc." and I can't seem to figure this out. I know that it's possible, so that's why I'm on here! ... Ok, say the active cell is currently "F1", and I need the location "F1" to identify the ROW to be used in a formula later, how would I go about that? The current contents of cell "F1"' will be "REPLACE", but I need to change the words "REPLACE" in "F1" and other cells labeled "REPLACE" in column F to the following formula (where the "1" in "A1" is is the current row):
View Replies!
View Related
Merge Range Based On Active Cell Row
I am working on a macros that creates a new row for every data entry. Below is the macros that I have. In the new row, I want for the cells in columns F through O to merge right after creating the row. How do I go about this? If Sigma = 0 Then Selection.EntireRow.Insert ' New row for new entries ActiveCell.Value = "NONE" ActiveCell.Offset(1, 0).Select End If
View Replies!
View Related
Macro When Selected Will Take Me To A Specific Row And Column In Another Worksheet
I want to create a macro that when selected will take me to a specific row and column in another worksheet, this will be the outcome of two cells, so far i have it to take me to the row but no reference to the column can anyone help. code i have so far. Sub Find_Todays_Date() Dim FindString As Date Dim Rng As Range FindString = Sheets("Dynamic Whereabouts").Range("B1:B1") With Sheets("whereabouts 08").Range("A:A") Set Rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlFormulas, _
View Replies!
View Related
Color Row Where Cells In Column Contains Specific Word
I have a spreadsheet with 12 coloums. In the last coloum are the ords "yes", "no", or is empty (null?). I need to find a way to have each row that contains the word "no" or is empty to be highlighted in red font and bold type. When the word "yes" is typed then the font is black and the type in normal. This allows me to see at a glance what orders have not been picked up or have problems.
View Replies!
View Related
Macro-Copy&Paste Fixed Data Ranges Into Last Empty Cell Of Specific Column
I 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
View Replies!
View Related
Sort By Active Cell Column
I am trying to perform a sort based on the ActiveCell.Column I thought my code would exclude the hearer rows, but presently it moves the header rows beneath the data I tried Header:=xlGuess as well as Header:=xlNo Same result What am I doing wrong? Thanks -marc Private Sub comp_mySort() Selection.Sort Key1:= Cells(1, ActiveCell.Column), _ Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub
View Replies!
View Related
Find Name Of Column Active Cell Is In
I have a code which looks at sheet2, useing a date value, and returns the Vent value and the Tanker value to sheet1. Because of the file size I have pasted a small section of Sheet2 in the hopes you can see what I am doing. As can be seen my code is not going to work with Offset as soon as the Data fills further down the sheet(every 2 weeks). I need a way to reference the active cells column name (it is a named range) or header name. Both are the same. That is the header name is the same as the name of the range. there is a way to perhaps find the first cell of the column,which I guess would work,but have reached a stale mate with what I've tried so far. Vent 01Vent 02Vent 03Vent 04 Date3/06/063/06/06n1/06/06 Tanker8248824617606 WhoJ AshJ AshEmptyHarry Date Tanker Who Private Sub DueCommandButton_Click() Dim strRecordID As Range Dim rngData As Range Dim Vents2 As Range, Tanker_Result As Range Dim wsheet1 As Worksheet, wsheet2 As Worksheet Dim Column_Name As Range Dim ActiveCell As Range Set wsheet1 = Worksheets("Sheet1") Set wsheet2 = Worksheets("Sheet2")....................
View Replies!
View Related
|
TRACKER
