Create New Sheet Based On Currently Highlighted Cell?
Feb 18, 2013
I have a sheet with a table. Cell A12 downwards will contain part numbers. I wish to have a button that creates a new sheet based on the currently selected cell in Column A. I have the following code that creates the sheet based on a static cell value.
Sub Add_Worksheet_Name_From_Cell()
Dim NumberSheets As Integer
NumberSheets = ActiveWorkbook.Worksheets.Count
Sheets.Add After:=Sheets(NumberSheets)
ActiveSheet.Name = Sheet1.[A12].Value
Sheet1.Activate
End Sub
I have a spreadsheet worksheet 1 "BOM" and created worksheet 2 "Risk List"
I have multi Rows of highlighed (ColorIndex = 44) and I would like to have a marcro that copys the highlighted rows from worksheet "BOM" to Worksheet "Risk List" starting the entery at row A3 on "Risk List" as row A1-A2 are Header.
I have a master template with columns running from A to Q. Most of what she wanted is fairly simple 'if' statements, however she also wants to move the contents of one cell to an adjacent sell based on the number exceeding a certain value,
[Code].....
My problems start when I want to create a new sheet/tab and let her name it. I would have simply created 12 months for her, unfortunately there is a sheet for a number of people and the start of the year can vary. My simple solution was to create a macro that copies the original Template (effectively sheet 1) and puts it into the newly created tab. However this does not copy the above VBA code across
I would like to automatically create a filestructure in c:projects based on entries in sheet1.
Column A Row 1: Admin
Column B Row 1: Meetings Row 2: Div Row 3: Presentations
Column C Row 3: Master presentations Row 4: External presentations
I have a fixed structure used for all projects, but it differs what each project is using of the structure.
Question: 1. Is it possible to loop through this sheet and create the structure in a predefined location
2. Optional I would like to use a column after/before each folder in sheet 1 where I can use ' ' for not making the folder and 'x' to create the folder.
I have a set of data on sheet1 indicating test scores and basic information. At the top of the data, I have some drop-down menus that allow me to select certain minimal score results. I used conditional formatting to highlight the rows of individuals that meet the selected criteria from the top of the screen. You will notice in the screenshot, that I placed a button at the top called "Go!". Ultimately, I'd like for when I push the "Go!" button, Excel will copy the highlighted cells and paste them into sheet2 (beginning on row 2 as I have a title bar in row 1).
I have a workbook with a hidden sheet ("Template") and a visible sheet("New Job"). I need code so when cell F1 in "New Job" is populated:
1-the sheet is renamed to the value of F1, 2-a new tab is made (a carbon copy of the hidden sheet "Template") 3-the new tab is named "New Tab" and marked as unhidden.
Public Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Name = Range("F1").Value End Sub
Function WorksheetExists(SheetName As String, _ Optional WhichBook As Workbook) As Boolean Dim WB As Workbook Set WB = IIf(WhichBook Is Nothing, ThisWorkbook, WhichBook) On Error Resume Next WorksheetExists = CBool(Len(WB.Worksheets(SheetName).Name) > 0) End Function..................
I want to create a loop, that copies the cell B11 from each sheet, and creates a new sheet called "Average". In this sheet I want it to add sheetname in column A, and in column B the value fetched from that sheet..
Ok, basically C3 is a dollar amount. The default total for C3 is $0.00. If C3 is $0.00 then this formula cell will display a blank cell. If there is any other amount in C3 then the formula C3-C2 will run.
I have 52 sheets in my workbook. Is there a simple way of creating a summary page of the data contained within specific cells which are the same reference on each sheet ?
The slow way is to edit the Sheet reference in the formula, but I sense this is not the most elegant way to do it.
In the attached, I want cells to be highlighted red if they're NOT EQUAL to 0. Why is this conditional formatting not working (i.e. the cell is being highlighted)?
Is there a formula I can use to see if a cell is highlighted? I need to filter for highlighted cells and want to use a formula to produce a binary result (1 for highlighted or 0 for no highlighting) so I can filter on that to only the highlighted cells.
I have a master list of names on sheet 1 column A. I want to create a list of names on sheet 2 column A of the people from Sheet 1 column A that have a specific value (Y) in column z sheet 1. I might also want to different numeric values for the Z column
I want to change (via conditional formatting) the background colour of cell H64 and K72 when I select / highlighted / activate (i.e. just left click in the cell) cell C66.
I don't seem to be able to find in the formulae something to indicate if C66 is selected / highlighted /activated.
I need a hint for one complex validation. In column B I am having emails and need to validate that after ” @ “ the extension is yahoo.com. If something different from that I need the cell highlighted.
How to get the contents of the currently highlighted cell into a variable and how to place it elsewhere. They suggested this....
Sub CurrentCell() Dim CurrentCellText As String Dim CurrentCellString As String CurrentCellString = CStr(ActiveCell.Value) '....... '....... Range("G16").Value = CurrentCellString End Sub
My question now is - If the cell contains a runnable Dos comand, how do is send it to a Command window. (E.g. netsh interface ip address local static 192.168.0.1.255.255.255.0) (this sets your NIC's ip address).
situation: 3 rows of data, row 1 has HDR in several cells (always in A1).
task
1. search row one for next example of cell containing HDR, excluding cell A1. 2. IF found, create a new worksheet and move all data below and/or to the right of that cell to the new sheet. 3. Repeat steps two and three until the search does not turn up another HDR except in A1.
I want this to link to Work_Log!.Cells(b,1), however instead of grabbing the specific cell, it is pulling the contents of the cell and creating a URL of that. For instance if b = 1 and cell A1 contains the value "yellow" then this code is giving me the hyperlink to WorkLog!Yellow when I want it to read WorkLog!A1
I have ranges that are named Math, Reading, Science. I would like to create a drop down list in validation that chooses the range based on a value in a particular cell.
I have a excel file where I have the list of File Path in Column A & list of File names in Column B, Default path location is available in Column C. Now I want create a zipped folder based on the file name in Column B to the location Column C. I had browsed in Internet and found some code for creating the zipped file by selecting the files in Windows browser window. However my case is need to create the Zipped file based on excel cell contents.
I had found the code in the following location
Zip file(s) with the default Windows zip program (VBA)
create a code for creating the zipped folder based on Excel cell contents
In Sheet2 I have a list of cell addresses showing values such as D5, D32, D59, D221, D869 stored in cells AB7:AB16. In Sheet1 the "D" column holds dates. I want to return the corresponding date for each D# cell into Sheet2 in column AC7:AC16. I'm unaware of the proper syntax for this. I though it would look something like:
