There is an excellent spreadsheet compare addin you can upload from
http://sourceforge.net/projects/spreadshcompare/
It can easily do what you want.
On Tue, Apr 27, 2010 at 10:51 AM, sudhir wrote:
> Dear friends , i m waiting for reply,
> thanks
>
> On Apr 26, 8:59 pm, sudhir wrote:
> > Dear
You can download a free copy of Microsoft Office Compatibility Pack for
Word, Excel, and PowerPoint 2007 file formats from
http://office.microsoft.com/en-us/products/ha101686761033.aspx
Tom Jeffries
On Sat, Feb 6, 2010 at 1:19 PM, Harpreet Singh Gujral <
harpreetguj...@gmail.com> wrote:
I strongly recommend
Advanced Modelling in Finance Using Excel and VBA
Mary Jackson and Mike Staunton
Tom
On Sat, Oct 10, 2009 at 1:38 AM, summu wrote:
>
> I want to learn Financial Modeling ,Can any body help me?
>
> I need step by step tutorial or books or what ever needed to learn
> Financia
I strongly recommend
Advanced Modelling in Finance Using Excel and VBA
Mary Jackson and Mike Staunton
On Sat, Oct 10, 2009 at 1:38 AM, summu wrote:
>
> I want to learn Financial Modeling ,Can any body help me?
>
> I need step by step tutorial or books or what ever needed to learn
> Financial M
The attached provides a possible solution. If you have any questionslet me
know.
Tom
On Tue, Apr 28, 2009 at 11:19 AM, Tom Jeffries wrote:
> The attached provides a possible solution...If you have any questions let
> me know.
> Tom
>
> On Tue, Apr 28, 2009 at 8:27 AM, ronnie wr
The attached provides a possible solution...If you have any questions let me
know.
Tom
On Tue, Apr 28, 2009 at 8:27 AM, ronnie wrote:
>
> I did this much coding and i am stuck out here can you help on how to
> approach from here.
>
> Sub seating()
> Dim inputrow As Integer
> Dim seatNum As Inte
Try This :
Select Case Crit_Value
Case 0
Cells(25, 1).Text = "No Order"
Case Crit_Value < 0
Cells(25, 1).Text = "Error Crit_value < 0"
Case Is < Init_Inven
Cells(25, 1).Text = "No order inventory on hand>Crit value"
Try:
LastRow = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row
On Fri, Apr 17, 2009 at 8:01 PM, boney wrote:
>
> I have two sheets A and B . I need to copy the columns ( A through an
> unknown number of columns ) from sheet A into sheet B starting from
>
The following does what you describe:
Public Function Action(exposure As Integer) As String
If exposure <= 300 Then ' 0 - 300
Action = "No Action Required"
Else
If exposure > 300 And exposure <= 500 Then' 301 - 500
Action =
rading_risk_graphs.htm
> I'm not interested in the option combos, but just one option (put or
> call).
>
> Thanks,
>
> On Apr 10, 6:36 pm, Tom Jeffries wrote:
> > Take a look at the attached spreadsheet. I think it does what you want.
> If
> > you have any q
Take a look at the attached spreadsheet. I think it does what you want. If
you have any questions let me know.
Tom Jeffries
On Fri, Apr 10, 2009 at 8:44 AM, mother wrote:
>
>
> I'm trying to figure out how to create a Simple Risk Graph (profit/
> lost diagram) like the
fine when this field is
> all numeric, but it does not work when it is alpha-numeric. (it does fill
> the left with zeros).
>
> Can you re-look at your formula and see what I need to change.
>
> Thanks a whole bunch
>
> On Thu, Apr 2, 2009 at 10:48 AM, Tom Jeffries wr
The attached workbook contains a macro (CvtToText) that does what you
describe. You may want to change variable FilePath to define the location
of the text file.
If you have any questions let me know.
Tom
On Wed, Apr 1, 2009 at 4:43 PM, Cesar Delanoval wrote:
>
> I need to know if anyone can he
This should do what you want:
Public Sub GetNonBlank()
Dim TotalRows As Integer
Dim LastCell As Integer
TotalRows = Cells.Find("*", ActiveCell.SpecialCells(xlLastCell), , ,
xlByRows, xlPrevious).row
For i = 1 To TotalRows
With ActiveSheet
LastCell = .Cells(i, .
2009 at 8:27 AM, xmux wrote:
>
> How can i manage it with the If Selection.Cells(x, 8) ??? Can u please
> explain?
>
> Thanks
>
> On 23 Mrz., 20:31, Tom Jeffries wrote:
> > An Alternative Solution:
> > Public Function IsAcct(code As String) As Boolean
> >
An Alternative Solution:
Public Function IsAcct(code As String) As Boolean
Dim Acct
Dim Found As Boolean
Acct = Array( _
"AD", "AE", "AF", "AG", "AI", "AL", "AM", "AN", "AO", _
"AQ", "AR", "AS", "AT", "AU", "AW", "AX", "AZ", "BA", _
"BB", "BD", "BE", "BF", "BG",
The following does what you describe:
Public Function FMT(s1 As String, s2 As String, s3 As String, s4 As String)
As String
s1 = Format(s1, "#")
s2 = Format(s2, "0#")
s3 = Format(s3, "0#")
s4 = Format(s4, "###")
FMT = s1 & "." & s2 & "." & s3 & "." & s4
End Function
s1,s2,s3
The attached workbook contains a possible solution. It's not elegant but
does what you want.
Tom
On Tue, Feb 17, 2009 at 4:08 AM, Pooja Sharma wrote:
> Hi All,
>
> I need a help on the Vlookup formula, for this I'm attaching a file in
> which in one worksheet there is a Base Data and the second s
4 instead of A4? I
> tried to adjust this in your Weeknum function but I did not succeed
> unfortunately.
>
> Like to hear from you.
>
> Regards,
>
> Anton
>
>
> On 31 jan, 03:25, Tom Jeffries wrote:
> > I am attaching a Workbook containing a macro (FmtWeekNu
I am attaching a Workbook containing a macro (FmtWeekNum) that does what you
describe. If you have any questions let me know.
Tom
On Fri, Jan 30, 2009 at 5:37 AM, Ometoon wrote:
>
> Hello,
>
> I am trying to highlight the present week with a border. The
> weeknumbers are shown in Cell A4:BA4.
>
hat?
>
> Thanks!
>
> On Jan 25, 3:45 pm, Tom Jeffries wrote:
> > It is not clear what you are trying to do. Can you provide a sample of
> your
> > raw data?
> > Tom
> >
> > On Sun, Jan 25, 2009 at 3:18 AM, agrinshtein
> wrote:
> >
> > >
It is not clear what you are trying to do. Can you provide a sample of your
raw data?
Tom
On Sun, Jan 25, 2009 at 3:18 AM, agrinshtein wrote:
>
> I am importing my financial data from the internet to excel as I would
> like to view it in excel due to its powerful pivot tables. All of my
> expe
A more general solution if you use a macro:
Function ConcatRange(r As Range) As String
Dim s As String
Dim c As Range
For Each c In r
s = s & c.Value & ","
Next
ConcatRange = Mid(s, 1, Len(s) - 1)
End Function
Tom
On Fri, Jan 23, 2009 at 2:34 AM, TEAMPL wrote:
>
>
Consider using the ROUND, ROUNDUP or ROUNDDOWN functions
On Thu, Jan 22, 2009 at 4:36 AM, Kamran Haider
wrote:
> Dear Group mates,
>
> Please help me on round formula as xl built in formula round the figure on
> general math rule i.e 25.5 to 26 and 25.4
> to 25 whereas i want to work this form
Take a look at the attached macro. It may do what you want.
Tom
On Tue, Jan 20, 2009 at 12:49 PM, Debasish Sahu wrote:
> hi
> I have several work books having contact details in a folder (with same
> headers). Now I want to merge all files in to one sheet. Could somebody
> please provide a macro
If all you want to do is print a few sheets from your workbook. Try the
following :
Public Sub PrintSomeSheets()
Dim FileName As String
Application.ScreenUpdating = False
FileName = "C:\Accounting\Reports\Budget.xls"
Workbooks.Open FileName, , True
With Workbooks(FileName)
2009 at 4:14 AM, Joe wrote:
>
> I have Tom, but how can I attach the spreadsheet for you to view ?
>
>
> On Jan 5, 9:53 pm, "Tom Jeffries" wrote:
> > Do you have an example of the Calendar? Describe its format in more
> detail.
> >
> >
> >
>
The best way to convert your "nasty" file is to create a macro to scan the
file and transfer the desired data to a new spreadsheet in the format you
want . Without knowing the format of the file I can't be more specific.
To create a link from PowerPoint to your Excel file.
1. If you're wor
This may help
To create a link from PowerPoint to the info in your Excel file.
1. If you're working with content on a worksheet rather than on a
chartsheet and don't want grid lines in your PowerPoint presentation, choose
Tools, Options, View and remove the checkmark next to Gridlines; then
Do you have an example of the Calendar? Describe its format in more detail.
On Mon, Jan 5, 2009 at 5:18 AM, Joe wrote:
>
> > I wonder if you can help out an absolute novice when it comes to excel
> > macros.
> > My girlfriend has sent me some homework as she has to work today and I am
> > a
I think the following does what you want:
Sub MoveData()
Dim LastRow As Integer
Dim Row As Integer
LastRow = Cells.Find("*", ActiveCell.SpecialCells(xlLastCell), , ,
xlByRows, xlPrevious).Row + 1
For Row = 1 To LastRow
Cells(Row, 2).Value = Cells(Row + 5, 1)
Cells(
The attached Workbook contains a macro (ProtectWBs) which I believe does
what you want. Enter the complete path name for the starting point eg.
C:\FilestToProtect and the password when prompted. Each Workbook (and its
Sheets) along the specified path will be protected using the password
provide
The attached workbook (GetJobs) shows a way to get the data you want. Use
the Worksheet_Change event to launch a subroutine to retrieve the desired
information. It is not very elegant but does appear to work. If you have
any questions let me know.
Tom
On Sat, Dec 27, 2008 at 3:00 AM, konark vya
Take a look at the attached workbook. I believe it does what you want.
Click the button and a tab will be created for each report and its contents
copied to it. If you have any questions let me know.
Regards,
Tom
On Thu, Dec 18, 2008 at 4:53 PM, guggd2868 wrote:
>
> Hi all
>
> I have searched
The attached workbook contains a macro (CombineWorksheets) that may do what
you want. If you have any questions let me know.
Tom
On Wed, Dec 24, 2008 at 8:28 AM, 2008ra...@gmail.com <2008ra...@gmail.com>wrote:
>
> hi,
>
> i have 5 sheets and columns A and B have same title's data,
> for exampl
The following should help you. If you have any questions let me know
Sub FindIt()
Dim What As String
What = InputBox(" Enter a search string ", "Search String")
Set Found = ActiveSheet.UsedRange.Find(What)
If Not Found Is Nothing Then
r = Cells.Find(What).Row
Msg
The following macro does what you want. Note it must be named Auto_Open to
run automatically when the workbook is opened.
Sub Auto_Open()
'
' When Workbook is opened if Cell A1 is empty create
' a text file having same name as the WorkBook
'
If Cells(1, 1).Value = "" Then
Sorry , I place signature within code...
On Tue, Dec 23, 2008 at 5:27 PM, Tom Jeffries wrote:
> The following macro does what you want. Note it must be named Auto_Opento
> run automatically when the workbook is opened.
> Sub Auto_Open()
> '
> ' When Workboo
I'm not sure what you are trying to do. I think the following does what you
want:
Function car(dnm As String) As Date
Dim table(10) As Date
table(1) = #12/19/2008#
For i = 2 To 9
table(i) = table(1) + i - 1
Next i
table(10) = table(1) + 11
If dnm = "K1" Then
The attached file demonstrates what you describe. I created a directory
C:\FactSheets containing ten Workbooks FactSheet 1 - FactSheet 10 as test
data. OpenFile contains a comboBox that allows you to open one or more of
the FactSheets. The code for the comboBox is as follows:
Private Sub ComboBox
What you describe is best accomplished by a macro rather than a formula .
Take a look at the attached function (GetValue). If you have any
questions let me know
Tom
On Sat, Dec 6, 2008 at 3:31 PM, watmatt <[EMAIL PROTECTED]> wrote:
>
> Can you help me please? I have a bit of a situation and I
Here's a function (TotalFee) that does what you describe. Take a look at
the attached file.
Tom
On Thu, Dec 4, 2008 at 6:26 AM, Ahmedhonest <[EMAIL PROTECTED]> wrote:
> Please find the attach file and suggest your valuable answers
>
> Expecting for a faster reply
>
> --
> Ahmed Bawazir
>
>
> >
I am attaching a function (GetRate) that does what you describe. If you
have any questions let me know.
Tom
On Wed, Dec 3, 2008 at 11:25 AM, raghuveer kumar <[EMAIL PROTECTED]>wrote:
> Hi,
>
> I had a small query.
>
> I had a data like as given in below example.
>
>product slab(units)
a solution to your problem is to precede the numeric string with a single
quote ' . For example '6-2 will show the text sting 6-2 while 6-2 (without
the single quote) gives 1-Jun. Not very elegant but it seems to work.
Tom
On Mon, Dec 1, 2008 at 9:02 AM, kondaveti <[EMAIL PROTECTED]> wrote:
> H
To create an Excel add-in file, follow these steps:
1. Load the workbook that is destined to become your add-in.
2. Start the Visual Basic Editor by pressing *A**LT**+11*.
3. At the very top of the Project window, select the bold entry that
declares the name of the VBA project that is
Could you post the file in question?
Tom
On Thu, Nov 20, 2008 at 10:46 AM, macrogirl <[EMAIL PROTECTED]>wrote:
>
> I have a sub procedure written under another procedure. When I press
> F5 to run the procedure, it is not listed in the drop down menu but
> the code right above it is. Any suggestio
The attached Workbook contains a macro (ColToTable) that does what you
describe. It's not elegant but appears to work. If you have any questions
let me know.
Tom
On Wed, Nov 19, 2008 at 12:43 PM, KO <[EMAIL PROTECTED]> wrote:
>
> Hey all-
>
> I have been searching every Excel help site I can fi
The Excel Validation feature will do what you want:
1. Select the cell(s) you want to validate.
2. On the Data menu click Validation then click the Settings tab
3. In the Allow box select List
4. Select Range containing allowed values
5. Click OK
The attached spreadsheet illustrat
The attached Workbook contains a macro(SplitCol) that does what you
describe. If you have any questions let me know.
Tom
On Wed, Nov 19, 2008 at 10:13 AM, Mike <[EMAIL PROTECTED]> wrote:
>
> Hi,
> i have a data populated into a column with company name and other data
> devided by a comma.
>
> So
What specifically doesn't work?
Tom
On Wed, Nov 19, 2008 at 2:33 AM, arun p <[EMAIL PROTECTED]> wrote:
> Tom, your combineworksheets macro doesnt work.
>
> regards
>
>
>
> On Sat, Nov 15, 2008 at 8:37 PM, Tom Jeffries <[EMAIL PROTECTED]> wrote:
>
&g
Consider using a pivot table
On Mon, Nov 17, 2008 at 9:14 PM, Dean <[EMAIL PROTECTED]> wrote:
>
> I have a list of building data. Within that data, there are 15 unique
> towns. I want to know how many times a building of a certain age group
> occurs in each town. There are 13 age groups. For
I think the proper syntax is:While InputSheet.Cells(iInputRow, 2)
.Value <> ""
On Mon, Nov 17, 2008 at 12:10 PM, <[EMAIL PROTECTED]> wrote:
>
> I am trying to input a loop While/Wend with If statements in between
> but it's showing me this code as an error:
>
> While InputSheet.Cells(iIn
The attached workbook does what you describe. It uses the Worksheet_Change
event for Sheet 1 to capture changes in the target column. I substituted
your "Gold" and "Silver" routines with a Print for testing. Uncomment and
add whatever modification routine you need. If you have any questions let
Assuming that the Worksheets you want to combine are in the same workbook
the attached macro CombineWorksheets will combine them into a single sheet
named "Combined". Then proceed with your pivot on the combined sheet.
Tom
On Fri, Nov 14, 2008 at 4:37 AM, arun p <[EMAIL PROTECTED]> wrote:
> Good
I tried your example and it worked as it should. If you have a large number
of nested If statements consider using the Select Case construct in VBA. I
created a function cmp() included in the attached workbook that uses Case
Select to to what you want.
On Fri, Nov 14, 2008 at 10:48 AM, jmholt <[
for inserting more sheets then
> it is giving a Run Time Error 104. On this error i would request you to do
> it yourself once and try to provide the solution.
>
> Thanks in advance
> Regards
> Ahmed
>
> On Thu, Nov 13, 2008 at 3:50 AM, Tom Jeffries <[EMAIL PROTECTED]>
adane
>
> On Wed, Nov 12, 2008 at 4:13 AM, Tom Jeffries <[EMAIL PROTECTED]> wrote:
>
>> The attached file does what you describe. When a workbook opens Excel
>> automatically executes a module named "Auto_Open". I used Auto_Open to
>> display an InputBox
The attached worksheet contains a macro (AddSheets) that will create a
specified number of worksheets as you describe. If you have any questions
let me know.
I am resending this message due to an email problem at my end.
Tom
On Wed, Nov 12, 2008 at 5:20 PM, Tom Jeffries <[EMAIL PROTEC
The attached worksheet contains a macro (AddSheets) that will create a
specified number of worksheets ass you describe. If you have any questions
let me know.
Tom
On Tue, Nov 11, 2008 at 7:56 AM, Ajay Varshney
<[EMAIL PROTECTED]>wrote:
> Hi,
>
> Is there any macro using which i could get number
I noticed you were looking for a function rather than a subroutine. The
attached file contains a function (BoldParse) that parses your strings. Use
whichever meets your needs.
Tom
On Wed, Nov 12, 2008 at 2:27 AM, atta khan <[EMAIL PROTECTED]> wrote:
> Hello All,
>
> What i want to do is to sepa
The attached workbook contains a macro (ParseBold) that does what you
describe. If you have any questions let me know.
On Wed, Nov 12, 2008 at 2:27 AM, atta khan <[EMAIL PROTECTED]> wrote:
> Hello All,
>
> What i want to do is to separate BOLD text from a string by a formula or VB
> function. As
The attached file does what you describe. When a workbook opens Excel
automatically executes a module named "Auto_Open". I used Auto_Open to
display an InputBox and looped until I got a match to one of your user IDs.
To keep it clean I used a tab labeled Login for the security check. I also
mov
I've attached a workbook containing two macros PrintWorkbooks and
Traversethat together do what you are describing. Invoke
PrintWorkBooks and provide the full starting path (e.g. C:\TEST). Starting
at this point all subdirectories are traversed and each workbook found is
opened and sheets meeting
I think this does what you want:
Public Sub GetNames()
Dim n As Integer
For n = 1 To ActiveWorkbook.Names.Count
Sheets("Sheet2").Cells(n, 1).Value = ActiveWorkbook.Names(n).Name
Next
End Sub
On Sun, Nov 9, 2008 at 2:04 PM, <[EMAIL PROTECTED]> wrote:
>
> Hi,
>
> I have an exce
This may do what you want:
Sub Print_()
Application.ActivePrinter = "HP LaserJet" ' put in printer name
Sheets("Sheet 2").PrintOut Copies:=1
Application.ActivePrinter = "Lexmark 615"
Sheets("Sheet 3").PrintOut Copies:=1
Sheets("Sheet 4").PrintOut Copies:=1
End Sub
On Sat,
A good source of all things macro is http://excel.tips.net/
On Sat, Nov 8, 2008 at 6:16 AM, Pinku Tinku <[EMAIL PROTECTED]> wrote:
> Hello and Hi all the Clever foxes of the group,
>
>
>
> 1) This is my first Query to you all is that can any one
> suggest my an excellent site for
66 matches
Mail list logo
