I am trying a macro to merge cell without losing the data until I find a next cell with the data - This merging should be pertain only for the column selected. Is it possible to write a macro and preform this activity.
View 1 RepliesI've got two columns:
A, B
abc, def
qwe, rty
asd, fgh
zxc, vbn
And I need to bring these together in one column so it looks like this
C
abcdef
qwerty
asdfgh
zxcvbn
My data is in column A , Column B and Column C, where are column C has a uniuqe value for certain rows.
Based on these uniques value, column A and Column B should be merged to singe Row without loosing data.
MY Data:
Source address
Destination address
Destination Port
Application
IP Protocol
192.168.1.2
192.168.250.10
53
dns
udp
[Code] .......
Result expecting is :
Source address
Destination address
Destination Port
Application
IP Protocol
[Code] .......
I have 4 different workbooks that I want to merge into one workbook. I tried moving the sheets from these workbooks into one workbook but to my surprise all the vba / macros didn't transfer over to the other workbook.
I searched here but all I can find were people that wanted to make a summary workbook or merge workbooks into a worksheet which isn't what i want to do.
I just want to simply merge these workbooks into one workbook without losing all the marco and vba stuff that are in each workbook.
I have a data set that I'm trying to sort in order to be efficient for some of my team members.
Below is an example of the raw data and how I've currently got it sorted. I think my problem may be that I am trying to join a number with a string but I'm not positive.
Col A
123-45678-A-1
123-45678-A-10
123-45678-B-2
I need to eliminate the letter from the data, add a leading zero to all single digit numbers and sort ascendingly.
My first step is to split the data into columns using the "-" as a delimiter. I end up with 2 columns as shown below.
Col A
Col B
123-45678-
1
123-45678-
10
123-45678-
2
Next I add a leading zero to Col B. The assumption is there will never be more than 99 numbers, so I use the following code:
Columns("B:B").Select
Selection.NumberFormat = "00"
To produce:
Col A
Col B
123-45678-
01
123-45678-
10
123-45678-
02
Now all I need to do is rejoin these 2 columns before sorting. My current code is:
Sub Rejoin_Container_Number()
x = 1
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Do While Cells(x, 2).Value ""
Cells(x, 1).Value = Cells(x, 2).Value & Cells(x, 3).Value
[Code]...
As many have probably already guessed, this produces the following result:
Col A
123-45678-1
123-45678-10
123-45678-2
I'm looking for:
Col A
123-45678-01
123-45678-10
123-45678-02
**zeroes in BOLD for reference only, result does not need to be bold**
Collapsing function: I want to select cells that I want merged, and have them COLLAPSE into the first cell selected calls
Combining function: OR Select the cells I want merged, and allow me to pick a destination cell for the result COMBINE
I would like to add this functionality to all my spreadsheets in the future.
Excel-Forum-Data Collapsing sample.xls
Trying to create a macro that will add the date & time & initials (i.e 8/26/09 2:34 PM JOD) into the current cell.
I've found plenty of macro's that will do this but it ends up deleting any existing text within the cell. I need to be able to add it in the middle of a text string.
i have the following code for sending a worksheet to a closed workbook
View 14 Replies View RelatedI have been using the following code to fill data down a col. For example if a1=blue and a5=green and a7=red. The macro will fill a1(blue) down to a4, then take a5(green) to a6, then a7(red) etc.
Sub Filldown()
If ActiveCell.Text = "" Then
MsgBox "please start with a non-empty cell"
Exit Sub
End If
For Each x In Selection.Cells
If x.Text = "" Then
x.Value = x.Offset(-1, 0).Value
End If
Next x
End Sub
code works great, but I was hoping it could be changed so that instead of filling the data down it would merge the data down. So, in the example, a1:a4 would be merged leaving the word blue, a5:a6 merged, and a7:etc would be merged.
Is this possible?
for creating the macro As I dont have any idea about macro.
My question is that I just want to marge all the tab into one tab however some header in all the tab are dirffernet however I need one header.
I have attached the example file, in that tab named as "OUTPUT" that is what I needed by macro.
I have data like Below Mentioned in column A and Column B.I Want to Merge
and Center the Data in Column based on column A.
For example; I want to Combine the Cell i.e b2 and b3,B4 to B7,No Need to merge B8 Because A8 have a Same name But Differnet City. and so no.
I need a Macro.I have 6000 data in one sheet.I have 18 Sheets like this
DEALER NAME
A M MOTORS MALLAPURAM8
A M MOTORS MALLAPURAM
AALIANZ AUTOMOBILES NEW DELHI7.35
AALIANZ AUTOMOBILES NEW DELHI
AALIANZ AUTOMOBILES NEW DELHI
AALIANZ AUTOMOBILES NEW DELHI
AALIANZ AUTOMOBILES Noida15
ABHARAN MOTORS UDUPI7.88
ABT MARUTI CHENNAI7.89
ABT MARUTI CHENNAI
ABT MARUTI CHENNAI
ABT MARUTI CHENNAI
ABT MARUTI CHENNAI..................
creating a macro in excel that will merge data based on matching id's.
The spread sheet looks something like this
A B C D E F ...
1 12 X 12 2 1 4 ...
2 13 X 17 3 4 4 ...
3 17 X 21 1 1 2 ...
4 21 X 22 2 1 3 ...
.
.
.
I would like to move Cells C2,D2,E2... down to where
the number in column A = the number in Column C
So in this cas C2-End of the sheet where there is data will move down one row, and the same with C3.
In the attached file (I'm sorry it is zipped, it was just too big), I gave you a snippet of my database. The actual one has 9000+ records. Over in Y4, you'll see the Sum of all the amounts (column X). Run the first macro, that is, Copy Dups, and you'll see it splits the item up by the numbers in column N. This works perfectly (or so it appears.) Then, run the Summary macro (the only other macro in there) and you will see that it pulls the Sums of each spreadsheet and places them on one nice overview page. The summary page. The only problem is, the total of the subtotals on the summary page do not match the total on the main (unadultered) page. I hope i am explaining this right. Somewhere in the macros, I am losing data from my spreadsheets so that the summary page is not equal to the un-macro'd data.
/scratches head
See attached the example worksheet. I am wondering if there is a way to write a macro that will change data from individual strings within a cell row to merged and centre data for that set of data. The issue is the data in the row will be varied i.e. sometimes there will be 20 x 2013 other times there may be 22 X 2013 etc. however, the data will always be fixed in the same row on the worksheet.
At the moment the best I have is a recorded macro, which really doesn't work too great and I end up fixing it constantly.
I have excel data containing in column A "Plot number" which is repeated and other four column is land area and the next column is "Land Owner Name". Now I want to merge same plot no if the land area is same if differ then I want to leave as it is. And another thing I want to do that the all land owner name is merge in a row.
View 8 Replies View RelatedI'm trying to use the "clear contents macro" for merge cell, but I keep receiving this "compile error : Expected End Sub" error.
FYI, I have named my merge cells to "myMergedCells"
[Code] .....
Does anyone have a VB macro that will copy information from a cell (this will be variable based on criteria) and paste it into the middle of another cell that contains HTML code?
The criteria for the copy/insert/paste is that the information in the cell that is to be copy/inserted must match up with the correct number (part number).
I hope this makes sense. I have attached an example spreadsheet. (Pictures are worth 1000 words. ) Hope someone can help. I checked this site and couldn't find anything that was solved that matched the specifics.
I need a macro, that will merge the cells and the data in cell A1 with data in B1, and the data in cell B1 will paste to the end of data in cell A1.
Column A Column B
KL8CB6S90DC505233
3GYT4MEF9DG331323
I need the final result to look like this:
Column A
KL8CB6S90DC505233
3GYT4MEF9DG331323
I need it to complete this for all data in Column A and Column B.
How to convert "Excel table" to a range without loosing data connection to access?
View 2 Replies View RelatedIs there a way to clear the contents of each cell in a range without losing formulas?
View 9 Replies View RelatedNormally i have a row and data as below:
Item
Red
Comfortable
New
Car
1
and i would like to merge them into one cell like this(with spacing between them):
Item Red Comfortable New Car 1
Can VBA do this move?
The problem is when I highlight a row with some color the original color of the row is gone, so I tried this code, and again, it's removing the original format and color for the row This is the code from McGimpsey & Associates : Excel : Highlight row with background colors
Code:
PrivateSub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Const cnNUMCOLS AsLong=256
Const cnHIGHLIGHTCOLOR AsLong=36'default lt. yellow
Static rOld As Range
Static nColorIndices(1To cnNUMCOLS)AsLong
Dim i AsLong
IfNot rOld IsNothingThen'Restore color indices
[code].....
How can I retain the range's historical color so that when I deselect the row it reverts properly?
i have a large amount of data with a lot of formatting (font sizes, colours, fill colours, mulltiple conditional formatting etc) and i now want to turn it into a table so i can use a data filter without mixing it up with the data that follows.
i tried leaving a blank line after it because i thought the filter only worked on a continous block of populated cells but it still includes rows after it so i'm going to define it as a table.
however, i spent ages getting the formatting right and from what i can see the action of creating a table applies new formatting. Is there a way to create the table preserving my formatting?
if not, the only workaround i can think of is to make a temporary copy of the range and use that to copy and paste the formatting back to the table. would that also work?
I have two macro's that I need merged together. Specifically, the macro Find75 is run first which produces a new sheet, Peaks Found, and then normally I would run the kTest macro to give the Final Results sheet. Need to get this all into one macro? Thus one macro to run would produce the final results sheet, without producing the intermittent step of producing the Peaks Found sheet.
View 2 Replies View RelatedDisclaimer: I know almost nothing about VBA or Macros. I started with them yesterday. I took the following code off Ron de Bruin's website. I am attaching his example spreadsheet. When you click on Test 2 it does everything I want BUT copy the header row over. The workbook I want to apply this too has 12 sheets++ which have the same exact columns and headers, but different row counts. Ron directed me back to his site and the following code:
View 3 Replies View RelatedI have a range of data, that I need to setup a smart macro for, but I need the macro to do the following:
Merge Rows if Column G is the same, merge shall be done in Column A, C, D, E, F, G, H, I, J, K, L, M, N, S, T, U, V, W, X, YNo Merge: Column B and O, P, Q, RMake SUM in Column L, M, N for column O, P, Q. The macro to run for the entire sheet, until first empty cell in column G
A
B
C
D
E
F
G
[Code]....
I have tried with a Pivot, but it doesn't work out, as I need to be able to make changes to all cells after the "merged" cells has been done.
I have three source workbooks that needed to be consolidated into a master workbook pasting the data with values & formatting.
The Master workbook also contains 6 additional worksheets that link to the data pulled in from the source files.
My question is how do I write the code so the source files populate the master in a specific order.
For example, the 3 source files are named "Central" "NED" and "WEST" and I need them to populate the master workbook in that order.
This is the code I am using to consolidate the data:
Option Explicit
Sub ConsolidateSheetsFromWorkbooks()
'Author: Jennifer Starr
'Date: 7/12/2013
'Summary: Open all files in a folder and merge data (stacked) on all
[Code] .....
The code to merge sheets to a master sheet runs great, however when I copy the code to the Personal.XLSB to have the macro available to use on every workbook I’m getting an error. The line of code is Application.Goto DestSh.Cells(1) and the error is Method ‘Goto of object’_Application’failed. This happen even if I create a new workbook with 3 sheets and only a few cells with information. The macro to mail the sheet works fine using the Personal XLSB.
View 11 Replies View Relatedthe code necessary to merge all open workbooks (each contains only one worksheet) into 1 workbook made up of all of these individual worksheets?
View 2 Replies View RelatedI have been looking everywhere and I can't seem to find what I am looking for. I want to create a Macro that will go into a folder, search every Workbook (each with multiple Worksheets), and copy and paste the data onto a single Worksheet. The data that I want will begin in Row 3 of each Worksheet (the first two rows are titles and headers). The formatting will be the same for each sheet.
The only other part is that Column G has the following formula in each cell that I would like to keep if possible.
Code:
=IF(AND(ISNUMBER(F4),ISNUMBER(D4)),"Complete",IF(ISNUMBER(D4),TODAY()-E4,0))