I'm working on a spreadsheet that has a title sheet with a list of company names, each subsequent sheet has that company’s info. I have a macro in it that uses the name in A1 (on the company info sheets) to name the tab (with error checking).
What I now need (and can't for the life of me figure out how to do) is to have a link between the title sheet -when you click on a company name- and the company info sheet.
The company info sheet had the same exact name in A1 and on the tab as what is on the title sheet.
I have a workbook with multiple sheets. I need to create a macro and associate it with a command button that will cut the row the user has selected and paste it into the last empty row on another sheet in the same workbook, then, go back to the first sheet and delete the empty row.
I have 2 col A & F. F col associate with date values & Col A has some color cells.I want to move down those color cells to a selected non-color cell row when run a macro.
I have code which perform to move color cells down to selected cell but problem is, if i have A4 & A6 color cells and i selected F2 cell & run macro then color cell A4 & A6 move down to cell A2 but cell A3 move to place A6. The sequence is
A1A2A4A6A5A3A7A8 & so on but i want cell A3 just push down the order & sequence will be
A1A2A4A6A3A5A7A8 & so on My code is as
Code: Public Sub Move_colored_cells_rows() ' Instead of moving the entire row , 10 columns will be moved Const NUMBER_OF_COLUMNS = 10
enables the user to select a row to delete. However, I need to do more than that. I need to be able to copy all the rows until row 37 and move it one row up after the selected row is deleted. Below is the code
I have an array, let’s say B1:D20. I would like to be able to manually select any cell within this array and then run a macro which will place the contents of the selected cell into the cell in column A in the same row as my selection.
I have listbox of information set up to have a user choose several items. I want the items to then transfer to another worksheet. I am using the code I found here:
Private Sub CommandButton2_Click() Dim lItem As Long For lItem = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(lItem) = True Then Sheet2. Range("A65536").End(xlUp)(2, 1) = ListBox1.List(lItem) ListBox1.Selected(lItem) = False End If Next End Sub
But it is only moving The first item in a column, instead of all the columns of information. What do i do to get it to move all the information??
The following code populates a forms' second listbox (Elements_lbx) with True. No amount of diddling (by me) can get the selected items from form's first listbox (Content_lbx) moved over to the second. (NB. the list box isn't the standard VBA listbox but an open source: ListEX from Marco Bellinaso.)
Private Sub CommandButton2_Click() Dim lbx_Sel As Long ' loops through ListBox to test if it is selected For lbx_Sel = 0 To Content_lbx.ListCount - 1 If Content_lbx.Selected(lbx_Sel) = True Then
I am trying to select and move text from one column to another. I have roughly 1,000 cells in column A and I would like to tell Excel to select characters at certain positions and move them into the adjacent column.
I want it to look like this...
column A column B ABCDEFGHI BCI
Each cell in column A has a 9-letter sequence. I would like to move characters 2,3 and 9 into the adjacent column
When I use the mouse pointer to select a cell I can't use the arrow keys to move to another cell while the pointer is over the cell and I can't edit the cell while the pointer is over the cell. If I move the pointer away from the cell then I can move around and edit as normal therefore I don't think this is a scroll lock issue.
This issue also happens when I select a tab. If I select a tab and then leave the pointer over the tab I selected then I can't use the arrow keys to move around the worksheet or edit a cell; if I move the pointer away from the cell then I can move around and edit as normal.
I am using this code to hide or unhide rows of text on another sheet:
VB: Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String Dim sValue As String
'Get the address of the cell that changed without '$' signs sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB: If Target.Value = "Not Pursuing" Then ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
Basically it is a if statement saying that if the selected cell falls between 1/01/06 and 31/01/06 then Jan would be selected. The end part is not a problem; I’m just not sure how to write the one line of code that would test if the cell falls between the two dates. I attemped to create it as shown in the code attached below but wasn't successful. I used an else if statement to test the other 11 months.
Sub test() Dim SelectDate As Range Set SelectDate = Range("SelectedDate") If selectedDate >= 1 / 1 / 2006 And selectedDate <= 31 / 1 / 2006 Then ActiveSheet. PivotTables("PivotTable1").PivotFields("PnLDate").CurrentPage = _ "Jan" ElseIf selectedDate >= 1 / 2 / 2006 And selectedDate <= 28 / 2 / 2006 Then
is there a way to stick a few row of cells together so that when i move one they all move.. i have some rows that when i sort them i want them to move together with the other ones..
However, I need to alter this to work for inserting more than one row at a time. ie. the user selects 'x' number of rows and 'x' rows are inserted below (in the same way 'Insert Row' works in Excel) and the row above the selection is copied down.
How would one go about making a module that would tell Sheet1 that if any number in column B is greater than 1 then take the contents of the row that number is in and copy it to Sheet2? Attached is an example of the workbook.
I have 8 rows (B345:B352) that have a formula similar to this:=IF(Site1!B53>0,CONCATENATE(Site1!$B$53," Scansys 942 @ ","$",Site1!D53,".00"),""). By the way, can the formula be shortened? I tried formatting the merged cell but nothing changes. When Site1!B53=0, then there's nothing in the cell.That's how I want it. But say, row 3, Site3!$B$53 >0 how do I programatically move (copy/paste?) row 3 to row 1 (since row 1 and row 2 are blank)? In other words, Since rows 1 & 2 is blank, I don't want the two empty rows there, so I would like to move row 3 up to row1.
I have a workbook with several sheets each containing different numbers of rows. These rows contain data from clients (codes etc applying to motors). The rows have been randomly populated and I am having to move rows from somewhere in the sheet up or down so the codes are grouped according to which motor they apply to.
What I want to do is select a row and be able to run a macro that will move it where I want. The destination can be up or down and any number of rows away. Does anyone have any ideas how to do this? I was thinking that if I selected the row I wanted to move and the one I wanted to move it to then run the macro it could be moved. Its not to replace the destination row, but be inserted alongside it.
I have got a problem with moving to another cell. For example, I click A1, the active cell is A1, then I wanna move to B1. I usually just need to use the right arrow on my keyboard to move. But this time, it didn't move - instead, it moves the scroll bar.
I've got a selected area and a button I've got to click on. I can't see them both on the screen at the same time.
If I try to move from the selected area to the button the selected area becomes unselected!
How do I keep it selected?
That's the problem and the question. If you'd like to know the background it is this:
I need to put a spreadsheet into a web page and I downloaded a macro that will generate slim html code for you, for any spreadsheet.
This is it. When I ran it I discovered it opened in its own spreadsheet with this button to get it started once you've pasted into it the spreadsheet or part of a spreadsheet that you want converted.
Makes it nice and easy. Easier than bothering to import a macro into your own spreadsheet.
I tried to move a tab to a new Excel workbook. You may say that it is very straightfward to do it: right click the tab and then do 'move' or 'create a copy'.
I found the problem is that the whole color will be completely changed and look bizarre. I really like to get a genuine copy of the tab: all remains the same.
I could get a code to move a row from one area of a worksheet to another area on the same worksheet once a cell is tagged "Paid" via a refreshed macro. The updating data table starts on Row 3 for columns "B" - "R." The paid table starts on row 56 where column "B" always has a date in its cell.
Can this code be modified to copy pictures rather than move them? I want to keep them in a tidy library column A:A. The workbook finds a picture based on the picklist, it is an example I found online but I need it to copy and paste the picture (and leave the original where it is).
F1 cell =VLOOKUP(A2, PicTable, 2, FALSE) this is connected to a 2 column validation table called picTable that has names in the first column (values in the picklist) and picture names in the second column (which corrosponds to the actual picture names)
Also, long after they have been copied, I need to clear all of what I have copied (with a macro button), but when I record a macro to do this it doesnt work because the copied "picture number' changes each time it is copied and the recorded macro only deletes the picture object number that I deleted when recording it!
I require code which will transfer text+numerical data from column K to column I (same row) and numerical data in Column I to one row above. I enclose an attachment by way of illustration. Actual s/s is 332324 rows deep - making manual changes impractical.
