I've written a macro and i've added a button to the toolbar so that it's easy for users of the spreadsheet to run the macro. the problem i'm running into is that the sheet that the macro's written in is a template. the macro formats some downloaded junk. soooo, every time someone downloads stuff, they copy-paste into the template, push the button, and it formats it.
my problem is that when they Save As, the button's assigned macro gets reset to the name of the file they saved as. therefore, when someone else comes along and press the button, it doesn't run the macro out of the original template sheet which they have open, instead it tries to find the last sheet that was saved and run the macro through it.
I wrote this code inside the excel spreadsheet itself. The code sits in BA1 to BA2000. I would then copy and paste this code to a VB module, then run it. As the data changes, the SchemeColor number changes. My question... is there a way to run write a macro in VB and have it use the code in cells BA1 to BA2000 so that I do not have to copy and paste it into the VB Module and run it? Manually running it is ok with me, but I do not want to copy and paste the code into VB each and every time.
Here is my code: Sub Macro2_() ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Points(1).Select
I have a workbook which has a variety of command buttons with assigned macros, one of which is a product detail button which redirects to a new worksheet.
Is it possible to be able to click on the button, display a new window (the new worksheet), but only display a section of it?
For example, I have 5 products. Each of the five products are detailed on the same worksheet and I have a button for each. I would like Button 1 to open up the details for product 1 only and button 2 to open up product 2 details etc.
I could go to individual sheets, but if I had 2000 products, the book would be a little large.
is it possible to write vb code to open the workbook, scroll through everysheet? extract the values from each worksheet?
let's just say, I only know the workbook name, but not the sheets of the name inside. So the vb code could scroll through every worksheet without knowing the worksheet name, only the workbook name(workbook.xls)
I want to create a macro that will “open the look in list” and stop so I can pick a file to open. I’ve tried to use “record a macro” and “ctrl-o”, but the record a macro won’t stop until I pick a file or cancel the file list. I also tried to use “o” in the short cut key box
I did a macro on my mac to transfer a sheet from one workbook to another worbook. It works very well when the destination workbook is open. Therefore I wanted to add some piece of code to check if the destination workbook is open. If not then I wanted the macro to open it before tranfering the sheet. Here is the code I´m using for tranfering the sheet
Sub Transfer_Sluttet() If ActiveSheet.Index <> Sheets.Count Then Application.DisplayAlerts = False Set ws = ActiveSheet Sheets(ws.Index + 1).Delete ws.Move Before:=Workbooks("Sluttet.xls").Sheets("sheet2") 'Moves active sheet to beginning of named workbook. 'Replace Test.xls with the full name of the target workbook you want. Application.DisplayAlerts = True End If End Sub
This is the type of macro I useually use on my pc to check if a workbook is open and if not then open it
If IsWorkbookOpened("Filename.xls", "C:Documents and ..................
Month, Loan(left), Interest Februari, =above-Instalment, =X%*Loan(left)/12 (rent is divided per year),
Instalment, Total payment Constant, =rent+Instalment
and so on... as long as you want ^^ (it's quite messy, but try :D)
The question is as follows "What would a loan of 900'000kr with 9% interest rate totally cost over 30 years?"
[use "IF" to avoid getting anything written after the loan expires]
The question itself can be easily solved by just dragging the formulas down to 30 years and fill in the % and loan etc. But what I do not understand is the "IF" question. I'm supposed to use the IF function to instantly show the cost of the loan (total rent payment) after the 30 years? That's how I understood it. In that case... how do I do that? ^^
This is a a formula entered in a checkbook program for excel that I downloaded. But I want to use my current accounting spreadsheet to print checks. The problem is I don't know how to get excel to write out a number like $23.40 as:
Twenty Three & 40/100
Does anyone know how this is done? Is it something simple that I am overlooking - i can't find anything like this in the number formatting section of excel.
I have a formula that will give me a phrase that I need to be able to paste into other applications - the value and not the "mid"s and the "search"s, etc. So, can anyone tell me how to take that formula's value and write it to the clipboard?
I wrote out a long IF statement in Word, but when I pasted in the formula bar, I got an error. I've determined that the quote marks are causing the error. Can anyone advice how to fix this going through and changing the quote marks one-by-one?
Whilst I was searching through the channels on telly the other night I came across a 'Quiz Call' channel where you had to add ALL the number within a certain sum (see sample) Sixteen minus five times seven multiply by nine add twelve
You not only have to do the sum you also have to add in all the less obvious numbers like the Six within Sixteen, plus also all the Roman numbers in each word like the I, X, & IX within the sixteen. I've done a small example to show what I mean, but I don't have any idea how to create a formula that will add up all of all of the permitations of roman numerals within each word.
Is there any way to a column be filled automatically by what is written on others columns.
Example: If one of the cells A2 or B2 and C2 are Nonblank, fills automatically the cell H2 with "ABC2" And If some of the cells D2 and E2 are Nonblank fills the cell H2 with "DE2"
The script below writes a ".csv" file to the same directory that contains the workbook the macro, "foo" is run from. I'd like to change the script to always write the file to a separate directory which is: "c:etcupload".
Is it possible to add text to individual cells which can be written over?
e.g. I would like A1 to have the background text of "slot 1"... Once user has inserted text then "slot 1" is removed... and when the user text is removed, "slot 1" reappears.
I am using the following code, slightly modified, written by Tom Urtis.
I would like to enhance the code such that it will filter on two criteria to enable more specific results to obtained e.g. from the possibilities below I would like to get "Jones Manchester".
Data list:- Jones Blackburn Jones Liverpool Jones York Jones Manchester Jones London EC1 Jones London N12
Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address "$D$1" Or .Cells.Count > 1 Then Exit Sub ActiveSheet.AutoFilterMode = False If Len(.Text) > 0 Then Dim myVal$, myVal2$ myVal = .Value myVal = "*" & myVal & "*" If WorksheetFunction.CountIf(Columns(1), myVal) > 0 Then
I am creating a financial summary on a worksheet and I want to be able to write up a summary about each category. Is there a way that I could write text on my worksheet and create a parameter where my text could go to the next line such as a word document?
creating a MSG box to be placed at the start of the code, i need the following reminder statements written in the message box. If the answers to all statements is Yes then proceed running the code.
1. Is the value date in Sheet Summary Correct? 2. Is the workbook free of errors, check sheet "Errors" 3. Are all the graphs up to date?
Sub Save_File() Application.ScreenUpdating = False Sheets(Array("SUMMARY")).Copy With ActiveWorkbook .Sheets("SUMMARY").Cells.Copy .Sheets("SUMMARY").Cells(1).PasteSpecial xlPasteValues .SaveAs Filename:="S:Recsdata ReportingRec StatsSummary Stats" & Format(Date, "yyyy\MMM") & _ "Stat Summary_" & Format(Date, "dd-mm-yy") & ".xls" .Close False End With Application.ScreenUpdating = True End Sub
Is there anything in Excel 2007, the spreadsheet and written data are tangled lists of numbers and its hard work sorting it out? So something like highlight current row and darken others and tick each correct row with one click would help a lot.
I have a spreadsheet with numerous transactions that contain the same name but are often spelled differently or inconsistently. I would like to pull all the transactions with the similar name and in a new sheet, make all the inconsistent ones, the same e.g. (space)mr smith or mr smiths or mr smith's or mr smith would all be mr smith. I am thinking of using the match command as a possibility but want it to repeat each row.
I am attaching a spreadsheet to show the existing table and the desired result which is similar to what I am showing below.
Example:
Existing Names and data A B C D E 1mr smiths xyz10020% 2 mr smith abc12430% 3mr smith's def20040% 4mr smith xyz7550% 5simon inc zbc14065% 6simon's inc xyz20070% 7simon abc9525% 8shows zbd18045%
Want it to show Names and data:
A B C D E 1mr smithxyz10020% 2mr smithabc12430% 3mr smithdef20040% 4mr smithxyz7550% 5simon inczbc14065% 6simon incxyz20070% 7simon incabc9525% 8showszbd18045%
I am trying to write (but not very well as bit of a novice) some code to open another Excel workbook called 'Sweep Log' once this is open copy certain data from my already open workbook to the 'Sweep log'. Save this log and then close it. Once that has been done a Msg box to say 'data saved in sweep log' result leaving my original workbook open
Private Sub CommandButton1_Click() Dim oExcel As Object Set oExcel = CreateObject("Excel.application") oExcel.Documents.Open "R:ConnexSweep Log.doc" oExcel.Visible = True Sheets("Sweeplog").Select With Selection Range("A5:K100").Copy Sheets("database").Select With Selection Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Range("A5:J1000").Select
I have multiple lists like company A company B so on and on. each has multiple accounts maturing at different dates.how can I group accounts maturing in one particular month? the maturing dates are different in some accounts and same in others.
company A account no maturity date account no maturity date company B account no maturity date account no maturity date so company C, company D etc..
All are on different sheets, I tried to figure out with Vlook up, and filter, but could not make formula.
I have amended the code below and have got it working. The problem I have now is that every time it loops it overwrites the data it wrote the previous loop
Offending line being ActiveSheet. Range ("A1: D30") = ValuesArray
I have known that somehow it should remember the last row and copy below this one but I cannot get it to work
Code: Sub Basic_Example_1() Dim MyPath As String, FilesInPath As String Dim MyFiles() As String Dim SourceRcount As Long, Fnum As Long Dim mybook As Workbook, BaseWks As Worksheet Dim sourceRange As Range, destrange As Range
By "Return all row numbers that have a given value written somewhere inside text in their column B" I mean....
I want to be able to search an alphanumeric value "ABC12345" within a column that has a paragraph of text written in each row, I want to know which rows have this value written somewhere in them and have it return 2,4,33, as row 2 and 4 and 33 have this value in them inside column B on that row.
on column A i have the respective row numbers all the way down ie: ( 1,2,3,4, etc) (to pull up the row numbers)(unless you have a better way)
On Column B i have the paragraphs of text to search in (there is lots of text and spaces in the paragraphs.)
On column C i have the value to look for... ie: ABC12345 (different values in each row of column C) to be compared to all of column B
On column D would be the formula to Pull down and get the results.
and something tells me you might have a better way of getting the row numbers rather than having column A dedicated to numerating each row 1,2,3,etc
1 paragraphs of text look for it's found in row #
2 anything can be written here and might have ABC11112 DDD77777 4
3 anything can be written here and might have ABC12345 ABC55555 5,6
4 anything can be written here and might have DDD77777 BBB11111 Not Found
5 anything can be written here and might haveABC55555 ABC11112 2
6 anything can be written here and might haveABC55555 ABC12345 3
I had the following VB string written for me recently, that cross refers Tab2 on a spreadsheet to tab1 with any duplicated fields in Tab1 being moved to Tab3.
Column B is the column I am comparing over the 2 sheets...
Sub DIVIDEND()
Dim Master As Worksheet 'Tab 1 Dim RefTab As Worksheet 'Tab 2 Dim NewTab As Worksheet 'Tab 3 Dim Cell As Range Dim iRow As Long Dim jRow As Long Dim ff As String
The addition I would like to add is after this first action has taken place, I need all all of the data that is in Tab2 and not Tab1 moved to Tab 3.
To summarise, I need any info that appears in Tabs1 & 2 moved to Tab 3 and any remaining lines that are on Tab 2 and NOT Tab1 moved from Tab2 to Tab3.
I want to be able to run the following lines of code to edit all xy-scatter plots on worksheet that is currently open by clicking and running a .VBS file. This is the code that works in excel in my macro. I'm having trouble getting the .VBS file to execute and run correctly. I realize I don't need the dim statements for the .VBS file, and have been able to get it to run without errors, but it doesn't edit the chart.
Code: Sub ChartLineWidth() Dim c As Chart Dim s As Series For Each co In ActiveSheet.ChartObjects() Set c = co.Chart For Each s In c.SeriesCollection s.Format.Line.Weight = 1 Next s Next co End Sub
