I may be being a bit of a tool here, but I can't find a way to centre colums without selecting the columns (ie using with selection, centre, end with). I've written some variations below, none of which work.
Sheets("Journal").Columns(6).HorizontalAlignment = x1HAlignCenter
or
Range("F:F").HorizontalAlignment = x1Center
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..................
VBA Macro to work through a worksheet that consist of static data (tab 4) cost centres and to populate a new work book per cost centre consisting of three tabs for every cost centre found in the static data.
The master Workbook has the following tabs:
Tab 1 is called travel and consist of column a which is the cost centre number (plus 14 other columns)
Tab 2 is called Mobile and consist of column a which is the cost centre number (plus 14 other columns)
Tab 3 is called Expenses. and consist of column a which is the cost centre number (plus 14 other columns)
Tab 4 Static Date column 1 cost centre number and consist of column 1 which is the cost centre number (plus 14 other columns).
If no information found on a specific cost centre, the tab will include the headers and return the words "No transactions for this period"
Whilst splitting data into Tabs the workbooks should check against the Static Data table and include cost center description in Column B of each tab in the new workbook.
If master workbook consist of the following....
Tab 1 is called travel and consist of column 1 which is the cost centre number (plus 14 other columns), cost centres, 555,557,
Tab 2 is called Mobile column 1 cost centre number and consist of column 1 which is the cost centre number (plus 14 other columns) cost centres, 555, 78689,
Tab 3 is called Expenses. column 1 cost centre number and consist of column 1 which is the cost centre number (plus 14 other columns), cost centres, 555,
tab 4 Static Date - column 1 cost centre number and consist of column 1 which is the cost centre number (plus 14 other columns). cost centres, 555, 557,78689
It should output 3 workbooks by cost centre number.
One for 555, which consists of 3 tabs, travel, mobile and expenses.
A second for 557 which has 3 tabs travel, mobile and expenses, but only with data in the travel tab.
A third for 78689 which has 3 tabs travel, mobile and expenses, but only with data for mobile data.
The workbooks will be replicates of the contents within the tabs where column a wil be the cost centre plus 14 additional columns.
I have a spreadsheet that has columns hidden from column Z to the end and rows hidden from row 50 to the end thus when viewing the spreadsheet the user sees the working area and hidden area in blue. What I would like to do is have the spreadsheet window minimize to the size of the spread sheet and also allow the user to drag the window around the screen. Is this possible if so do I need VBA Code.
View 1 Replies View Relatedif it was possible to create a shape, such as a rectangle, with a hollow centre so you can see the cell positioned behind it? E.G. the shape could cover cells B3:D5 so you could see cell C4 through the hollow centre/gap?
View 6 Replies View RelatedI attached a workbook and it shows data in row 2 - 960. and in cells BA1574 -BM1604 are the summary by using 'sum if' function. As you can see, row 160 countercheck the results and it shows differences.
So my questions are
1) any formula that i can use to ensure all cost centres are taken up in Col AZ1574 - AZ1604? I am sure that i have missed something out.
2) My goal is to summarise the total of each cost centre. Is there other options to reach this goal apart from using 'sum if' function? I would like to learn something new.
I got this code from someone who is not currently available,
I modified it a little so that when I pick a picture it always lands on j96, but I need it to line up exactly on top of the picture underneath it
I have also attached a sample.
The pictures will always be exactly the same size
Is it possible to find the centre point of these 6 figure National Grid References (sample)
345723842214
346094842080
346087842611
346359842379
346502841967
These are point on a map - these points will vary and the number of point will vary too,
heres the data: [url]
Im meant to produce a simple spreadsheet that calculates the floor area of a new build city centre hotel. The developer is looking at various plots of land that allow differing sizes of floor plates and storey heights. The key variables are the number and type of bedrooms, number of floors and whether the hotel is classed as a premium or budget hotel.
I need to produce a spreadsheet that shows the key variables and the total calculated floor area at the top of the sheet.
I have on sheet1 a number (72 at the moment) of Form CheckBoxes.
In simple terms: I would like a macro to look at each CheckBox and remember its state (Checked or Unchecked)
Then, go through and Check All checkboxes
Call MyMacro
Once MyMacro is complete (Filtering & Printing)
Revert the checkboxes to their original state.
The purpose of the checkboxes:
When Checked column on sheet2 is UnHidden
When UnChecked column on sheet2 is Hidden
Or, UnHide All columns on sheet2, run MyMacro, then "re-hide" the columns that were previously hidden.
probably missing something simple, but how do I centre the text in a userform "Label"
View 2 Replies View Relatedcan you format msgbox? i want to centre/center some text
(also - mods...
....If are you new to the forum, or unsure,...
surely -
...If you are new to the forum, or unsure,........?
)
When I view a sheet under Page Break Preview, it shows the Page numbers in the centre of the Page. While I am aware that it would not print the page number I was wondering if there is an option to remove/hide the page numbers.
View 3 Replies View Relatedwhat I'm after is a macro to check the contents of Column 'A' against column 'B' and display any duplicates in Columns 'C' & 'D'.
N.B. The headings of Columns C & D are :-
C = Value Found in Column A
D = Value Found in Column B
Any duplicate entries logged in columns C & D should be listed in C2,C3,C4....C20 and D2,D3,D4......D20 etc (in effect creating two new lists)
I have file with so many columns and i want to keep only columns i want.
Data
genredyellowgreenwhiteblue
1aaggttccbb
2aaggttccbb
3aaggttccbb
4aaggttccbb
5aaggttccbb
expected
genredwhite
1aacc
2aacc
3aacc
4aacc
5aacc
for example here i want to keep only gen, red and white columns only out of columns what i have in my data. I have so many columns in my original data but here i given just small example. How to proceed with macro or any other way because removing manually taking long time for me.
Excel 2007 - need to adjust protected view settings but the protected view tab is missing from my Trust Centre settings - have the following tabs - trusted publisher / location, add-ins, activeX, macro, message bar, external content and privacy options. Document is a revenue authority download and without being able to adjust the protected view settings, can't input data.
View 3 Replies View RelatedEssentially, I am working with a database for a school and up until this point, each row matches up to a student with a bunch of information on them. One of these pieces of info is their parent's names. This is a much simplified look at things, but the screenshot below is a basic version of what everything looks like:
Now, the school wants me to split up the parents names from the student's and place them in their own row. I have recorded a macro to do this where you make the active cell the "full name" column for the row you want to expand, and then run the macro. Afterwards, up to two more rows are added, with the parent's names and some data copied. Below is a screenshot of what that looks like: (yellow is the new data generated, and blue is the active cell I marked to run the macro properly)
The issue is that there are thousands of these that need to be done, and I figured there is a way to do this with a macro. The issue is that not every row has parents names to expand out.
In layman's terms, I need a macro that will look at the two columns titled "Father's Name" and "Mother's Name" on each row of the spreadsheet and then, if there is any data in both or either of them, it should set the active cell to the "Full Name" column for that row then run the macro accordingly. After that it should repeat this all the way down, skipping any where neither of the columns have text in them
In the actual spreadsheet, the columns that need to be checked are AW and AX, and the column that needs to be set to the active cell before running the macro is B.
I am trying to write a macro to populate column A "main sheet"with all data from column A "info sheet", Also, in the "main sheet" Column B add a Batch number from a static cell value B5 in "Settings Sheet" every time we have data in Column A. then insert the today's date in Column C "main" every time we have data in column A.
I put a sample of the data I want to see in my "main sheet" ...
I have 2 tabs (tab 1 is "Data", tab 2 is "Compare")
Data tab is filled with results from tests I do in a lab, each test has its own row, each 'test subject' has its own column.
In the second tab I want to have the ability to pick from a drop down list one of the other columns from the first tab.
So I have 2 columns (D and F) in tab 2 with drop down lists that I have populated with the names of the test subjects (using data validation grabbing the top row in tab 1).
I have formulas set up in Column E of tab 2 for the actual comparison.. What I'd like to do is when I select a test subject (for example SubjectA), from the drop down list in $D$1.. I want to populate $D$3:$D$155 with rows 3-155 of the matching column in tab 1 (so if for example SubjectA is in column X, it would copy from tab 1 X3:X155 to tab 2 D3:D155.
So so far I have the validation part done with the drop down list.. and I have the following VB code for tab 2.
Problem: The following code autofills columns O:P beyond the last row of data in column H.
Range("O3:P3").AutoFill Destination:=Range("O3:P3" & Range("H" & Rows.Count).End(xlUp).Row)
I am trying to program a macro to AutoFit 29 columns on 3 different sheets. However it keeps coming up with "run-time error '1004' select method of range class failed". Here is the code
[Code] .....
Imagine the spreadsheet contain informations.
(For eg, columns A to Z all got contents)
Then i want to delete columns A, B, C, K,L,M, X,Y,Z
Problem faced:
When i delete A,B,C
D,E,F . . will shift to the left.. becoming A,B,C
I need to use macro buttons so that next time i dont need to remember what to delete and what not to delete.
with hello and regards two all members and administrators
i have this table
COUNTRY1EXPORT$COUNTRY2IMPORT$SAME CODEEXPORT$IMPORT$30% MINOR
1019011710190294
102107410210138
10290161029029
10511271051111
105191271051970
106391271063947
10690191069047
…………
…………
…………
9617001996170018
9618005589618001
97011097097011027
9701901169701903
97050009705003
970600097060091,969
Column A: Country1 Export Code
Column B: Export value for Country 1
Column C: Country2 Import Code
Column D: Import value for Country 2
------------------- NOW ---------------------
i want to fill in Column E to H with a macro
Column E: same code in Column A and Column C
Column F: export value for same code (from Column B)
Column G: import value for same code (from Column D)
Column H: 30 percent of Minor Value
for example if F3 is 9000 and G3 is 1000 then H3 will be 2700 that is 30 percent of F3
I have created this macro (below) in a standalone spreadsheet and the expected results are that Columns A,B,C,D,G,H will be displayed after I run the macro.
But when I use the same macro in my production worksheet (columns and ranges adjusted accordingly) this macro creates the following results: Column A is displayed and all the rest are hidden (B,C,D,E,F,G,H). I am stumped as to why this occurs. Can you advice me as to how to get this macro to work and display A,B,C,D,G,H ?
I have a work book with 97 sheets, all of the sheets are identical in format but contain different data. I need to multiple column F (which is a price) by column G (which is a quantity). I then need to sum the results and spit this number out on a new sheet. So in then end I would have 97 entries on the new sheet with this new sum which would give me are total stock value on hand.
View 4 Replies View RelatedI've used the macro recorder to copy a cut and paste routine, but it won't play back correctly. Here's the macro I recorded:
View 7 Replies View RelatedI need with the below statement. I need the statement to autofill columns b6:y6 down as long as there is data in column A6 down.
I am hitting a wall here
Sub Macro3()
'
' Macro3 Macro
' Macro recorded 10/14/2011 by Oasis Group
'
' Keyboard Shortcut: Ctrl+Shift+B
'
Range("B6:Y6").Select
Selection.Copy
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B6:Y" & Lastrow)
Range("B6:Y" & Lastrow).Select
End Sub
Now that I have my data sorted, I am trying to write a macro that will save each columns according to the name in row 1, in seperate spreadsheets.
My data currently looks like this:
A B C D
E12144116501367923134587310715136781403013910587415223136808724234615258
11649675211546423253525711033109522325411542155241402112799
(A, B, C, D & E is row 1.)
What I would like the macro to do is copy each column to it's own unique spreadsheet and save it as a .csv. The first spreadsheet becomes:
A.csv and contains only this data:
A
12144107151522311649
The second spreadsheet is called B.csv and contains only:
B11650136781368067521110331154212799
C.csv etc.
I have recorded a basic macro that allows me to copy a formulas in cells CF11 to CH11, and it pastes it into cells in columns CJ to CL. Copy of code is below if you need it.
The issue I have is that I need to insert new coumns into the worksheet, and I need to copy the formulas from columns CF to CH, and they will now need to pasted to columns CN to CP. Note that this is a monthly report where we keep the prior months, so each month will need to add new columns. There are 8 tabs in the workbook, and they all use the same macro, just over different rows (columns all line up).
Is there a way that I can get the macro to paste into the correct column without me having to adjust the macro each time?
Copy of code is as follows:
Range("CF11:CH11").Select
Selection.Copy
Range("CJ11").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("CJ20:CL20").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
[code].....
I am trying to write a Macro to basically do a lot of redundant formatting for me and I am stuck on one part of this code. Everything else works just dandy, but I am having the darndest time getting this Macro to sort by 2 columns instead of just 1.
I did the basic first step and recorded myself sorting the datasheet by both columns in 1 sort and got the code, but the problem is that the number of rows will change day-to-day, week-to-week, and so on, so I need it to not specify a cell number as the end of the range.
While searching around, I saw a very handy little piece of VBA code that will search for a header name, which is really nice because that would make it much easier to share this Macro with my coworkers who have different reports that all have columns in different locations.
So, I have a multi-part question. I will start with the most important one:
How do I alter this to not specify A9590 and D9590 as the last cells in those ranges?
ActiveWorkbook.Worksheets("Date XREF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Date XREF").Sort.SortFields.Add Key:=Range( _
"A6:A9590"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Date XREF").Sort.SortFields.Add Key:=Range( _
"D6:D9590"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
[code]....
Is there a way to have the Macro find where the header row is? The header rows in our reports can appear anywhere from Row 1 to Row 8 depending on how the report is set up (usually we have some information about the data, date range, etc at the top).
Dim c As Integer
With ActiveWorkbook.Worksheets("Date XREF").Range("A5").CurrentRegion
c = .Find(What:="Assignment ID", After:=.Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Column
.Sort Key1:=.Cells(1, c), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With