I have this macro which does a really nice random selection, the problem I have though is that it deletes everything except for the result set. How to adjust the macro in such a way that instead of deleting the the original data, it copies and pastes the result set to a new worksheet?
Code:
Sub RandomSelect()
Application.ScreenUpdating = False 'disable screen updating to avoid screen flashing
Application.DisplayAlerts = False
Dim wbk1 As Workbook, wbk2 As Workbook, lstRow As Long, wks As Worksheet, startCut As Integer, selNum As Integer, lstCol As String
Set wbk1 = ActiveWorkbook
Set wks = wbk1.ActiveSheet
I have to extract all the entries that have certain words.
The worksheet has 600 rows, setup like
Column A=unique document number (never repeats) Column B=Document Titles (some repeats, though the documents that are the same are not titled the same, though they have certain keywords in like documents) Column C=Document Types
I want to search Column B for all titles containing the word/text string WOR, and then copy the row of A, B, and C when WOR appears in Column B, and put it into another worksheet.
Now obviously, I can do a "Find All" for WOR on Column B, but I can't cut and paste the results into another worksheet.
I prefer a simple formula, cause my VB and Macro skills are pretty non exsistant, though I will learn if that is what it takes.
I am attempting to copy the results of a formula in a column to a row. The data in the column is in a different worksheet. Although pasting the data using the transpose option in the drop down menu works, I really want to have the results of the formula returned. The reason for this is the results are variable based on the formula.
From time to time the data on worksheet x changes and it is picked up by worksheet y and I need to copy and paste the new information to sheet z. I've been fiddling with the code to get it to paste the values and pick up the new values, but it won't.
I need to adjust the code to copy to the last column, and the last row, and copy just the values. Ifm unable to do t his.
I've attached the sheet so you'll see that the data will only copy once.
I have a sheet that I need to routinely filter for a specific code then paste it into a different sheet in the same workbook. I would love to set up a simple macro that would do this for me, but I can't seem to figure it out.
In the results I would like the header row if at all possible, but I can always just make it part of the macro.
I am having trouble copying and pasting the results of a calculation on one sheet to another sheet. I believe my problem is that my destination cell is actually two cells merged so the destination is obviously not the same size as the source. Here is the section of code I am working on:
Code: Sub CalculateDeviceFailureTimes() ' ' Used to manipulate the UEM data file to find the outage times of different devices in the Astro System ' Dim Output As Integer
[Code] .......
Like I said the section after the initial 'If' works and 0:00:00 is entered into the cell D15 with no issue. My problem comes when I try to copy the result of the formula in 'G3' to 'D15'. Like I said I believe my problem is that 'G3' is a single cell and 'D15' is two cells merged..
Trying to paste filtered results except header row. My code below pastes the header row for "Details" 2x. I tried altering the row to row 2, but that caused incorrect results to be returned.
Detail - Sales First I filter the data range for " Total Sales" Paste the results with header row to wsDetails
Details - Details Then filter the data again for "N" I would like to paste these results to wsDetails w/o the header
Option Explicit Sub comp_pl_ytd_Totals() Dim wbBook As Workbook Dim wsData As Worksheet Dim wsTotals As Worksheet Dim wsDetails As Worksheet Dim wsExtract As Worksheet Dim rngData As Range Dim rngCrit As Range Dim rngDest As Range Dim arrCrit Dim myRange As Range Dim C As Range Dim lngrows As Long Dim strFormula As String Dim rngCase As Range With Application . ScreenUpdating = False .DisplayAlerts = False .Calculation = xlCalculationManual End With................
I'm trying to take column A (number of records can change from time-to-time and may contain blanks), copy that to column B less duplicates and then use a count forumla to count items in column B based on original list in A. I am aware of how to do this in Excel but am interested in VBA.
I am performing an autofilter within a spreadsheet to display only those lines where a name exists in column A. Then I delete all hidden rows. I am having a problem when the autofilter results in no rows being visible. Here is the code I am using for the delete hidden rows:
On Error Resume Next ' In case there's no hidden cells
With Cells Set rngHidden = .SpecialCells(xlCellTypeVisible) .EntireRow.Hidden = False 'Unhide all cells rngHidden.EntireRow.Hidden = True 'Hide previously visible cells .SpecialCells(xlCellTypeVisible).EntireRow.Delete 'Delete previously hidden cells rngHidden.EntireRow.Hidden = False ' Unhide previously visible cells End With End Sub
1. Copy cells B5 to V-First blank row in Strength Tests worksheet 2. Paste cells into Racks worksheet in cell C5 3. Change font size to 6 4. Sort by Column T descending then by Column C ascending 5. Copy one row (A5-W5 (1Rx23C)) from Racks worksheet 6. Paste row into M1 worksheet in cell D4 7. Print M1 8. Drop down one row on the Racks worksheet 9. Repeat steps 5-8 until there's a blank row.
I would like to make a macro that compares two worksheets, highlights the differences, and paste the whole row in a third worksheet if a difference is found.
I managed to highlight the difference between two sheets using the following code. But how to modify it to paste the differences in a third sheet...
Code: Sub Compare() CompareWorksheets Worksheets("Sheet1"), Worksheets("Sheet2") End Sub
Code: Sub CompareWorksheets(ws1 As Worksheet, ws2 As Worksheet) Dim diffB As Boolean Dim r As Long, c As Integer Dim lr1 As Long, lr2 As Long, lc1 As Integer, lc2 As Integer Dim maxR As Long, maxC As Integer, cf1 As String, cf2 As String
I have the following code that copies only the visible cells in an auto filter...how could I modify this code to paste only the values and not the format?
I have this macro and at the present time, can only compare two worksheets. One of my worksheets contains column headers with data, the other worksheet just contains column headers. The macro will match the data against the column header and paste below. I'm doing it this way because I have several tables I export from a MySQL database, but some of them have more fields than others so I was trying to get all of the data to line up in under the correct column header from each table. I need editing the macro to allow for
1) More than one worksheet to be analyzed at a time 2) If the first request is not possible, I would like for the macro to paste results at the next empty cell. As of now, it will only copy one at a time (which requires me to house the data in another worksheet everytime I run the macro).
Below is the code:
Dim ws1 As Worksheet, ws2 As Worksheet Dim HeaderCells As Range, Hdr As Range, hdrFIND As Range
Application.ScreenUpdating = False 'speed things up Set ws1 = ThisWorkbook.Worksheets("HEADERS") 'Define name of worksheets Set ws2 = ThisWorkbook.Worksheets("B")
I have a worksheet named "List" with static values in columns A & B. I want to search all the other worksheets in the same workbook for the one that matches the value I entered in column B on the "List" sheet. The cell on the other worksheets with the possible match is B5. When it finds a match, I want it to take the data from cell B3 on that worksheet and paste it in Column C of the "List" sheet on the corresponding row (all rows in the "List" sheet have a different value in Column B).
In other words, when "List"b7 = worksheetb5 , then worksheetb3 is pasted to Listc7.
I would like to implement specific cell ranges from two specific worksheets each within 33 workbooks (which all have several tabs) into a summary page in a separate workbook.
The cell ranges are going across my spreadsheet in rows and I would like for them to transpose into a columns depending on the data which I have separated by catergory on the summary page. They are all on the same location in each workbook which is separated by country. The cell ranges are E26:P37 and I would like to transpose them and have them put below eachother without overwriting for my format on the summary page, how I can put this together in a macro?
Attached is my code, pay attention to the bold part. I want the sourceSheet to be copied as a sheet and pasted in the targetSheet (the Sheet2 of "NewBook") but I want it pasted asvalues. Here is the specific part which needs to be looked at...and below is the full code.
VB: Set sourceBook = Application.Workbooks.Open(sourceFilename) Set sourceSheet = sourceBook.Sheets("Current") Set targetSheet = NewBook.Sheets("Sheet2")
On the "Complete Backlog" tab of my workbook, I want users to enter in the requested information based on the column header. Then I would like a Macro attached to a button that says "Refresh" that the user would click after they have entered in all of the information. This macro should look in Column M (WIP Status) and if any of the cells say "Close", it should Cut the entire row from the spreadsheet(Ex. A2:M2) and Paste it into the speadsheet titled "Closed Jobs".
This is so that as jobs are closed/finished, they are removed and stored on a separate sheet. The items would have to be pasted so that it pastes into the next available row - not just on top of each other.
I also need another macro that i can put into a button that doesn't "delete" a row from the sheet, but just copies over to another sheet - so that there are two instances in the workbook.
If would look something like: If a cell in "Column G / Director" of the "Complete Backlog" speadsheet is equal to "Snodgress" then copy columns A-L of the same row to the spreadsheet titled "Snodgress" - of course skipping down the rows to the next blank row.
.....is equal to "Herr" copy row to "Herr" spreadsheet. ....is equal to "McCormick" copy row to "McCormick" spreadsheet. and so on.
I am currently working on a data analysis project (data mining) and need to collect and later analyze statistics for the inputs which control a series of calculations. These statistics are shown in the Statistics 1, Statistics 2 and Statistics 3 cells in the workbook that I attached. The inputs are X,Y; all possible values for these inputs are listed in the N,O columns. Basically I need a macro which would take the values from these two columns and place them pair after pair into the controlling cells (K3, L3), then it would copy cells H2 through L3 (updated stats) to a new sheet after each copy operation - so that I will finally have a list of statistics for all of the input pairs.
I've tried to write a VBA code that copies a value down and deletes empty rows. The macro needs to copy down the value in column A from the above row if the current column is empty but delete a row if column B is empty. The following code will copy down the value but will trigger a 400 error and won't delete any rows. The desired effect is to have column A completely filled and the empty row (Row 5) and the row containing "Page 1" (Row 6) deleted.
Code: Public Sub fillType() Dim LastRow As Integer Dim Count As Long LastRow = ActiveSheet.UsedRange.Rows.Count For Count = 0 To LastRow - 1 'If A column is empty, copy value from column above
attached the file. Sheet1 & Sheet2 are the "Source" sheets and "Summary" sheet is the "Target" sheet.
1) Macro "TopParts1" filters the Top 80% (Column B) in Sheet1 and copies this to A1 in the "Summary" sheet.
2) Macro "TopParts2" filters the Top 80% (Column B) in Sheet2 and copies this to E1 in the "Summary" sheet.
What I am hoping for is to combine the macros 1) & 2) so that the Table as shown in "Summary2" sheet is done in one instance. The highlighting is just for illustration. Presently I need to select sheet1 rum the 1st macro... select sheet2 run the 2nd macro. Not very efficient. One table for 1 macro would be excellent.
How would you prevent the copy/paste of cells that have comments?
Also, how would you allow cells with comments to be copied and pasted without pasting the comments?
I also have an aside question about the forum advanced search. When searching for multiple search words, how would you type the search to include all words, for example, "prevent" & "paste" & "comments".
I have 4 source workbooks and a master workbook which is linked to the source workbooks, if the source workbooks have no value in specfic cells the master workbook which is linked to it shows a 0 (not a problem). Now if I want to copy only cells which have a value other than the 0 to the end of used rows on another sheet on the Master workbook using VB I run into a problem because it sees 0 as a value and copies as well.
The issue is how do I stop the 0 showing and not being seen as a value. This 0 shows regardless of format.
I have a customer data base going across each row about payments/address/DOB etc. When i go to alter some information in certain cells the rows become uneven and the information for customer B1 will be for C1 instead. I'm not familiar with excel but what i did notice when scrolling down i saw an outline of uneven rows.
I have several macros that join spreadsheets and then sort and subtotal them. I now need to use my spreadsheet that has the subtotals and place only the subtotals into a new workbook. For instance the new file should contain the name of the item and "subtotal" for that item, and the list of all the data should remain in the original file.
I would like if someone could tell me what formula to put in the cells in Column E so that I can copy it to all cells in Column E and get the right results.
I wonder if someone has a clever solution for the following, I have a spreadsheet where I have done subtotal on some of the figures, does anyone know how I can copy (and paste into a new sheet)only the rows where I have a subtotal?
