microsoft.public.excel.programming Google Group

Re: break at space

2009-12-16T03:53:28Z

I think this macro does what I think you are saying you want to do (just
change the Worksheet name and Range reference for the cell containing the
words in the With statement to match your actual set up)...
Sub SplitDownAtSpace()
Dim Words() As String
With Worksheets("Sheet4").Range("A1 ")
Words = Split(.Value)

text boxes

2009-12-16T03:50:01Z

Hi all,
I have a textbox within a userform that displays a value. I don't want any
users to be able to edit this information. How do I go about this?
Thanks in advance
Dawna

Re: Insert Zip codes into weather code

2009-12-16T03:33:54Z

You still have the object of the With statement constructed incorrectly. I
don't do QueryTables, so I can't vouch for the accuracy of your actual over
method call, but here is how it should look with the Zip variable
concatenated in...
With ActiveSheet.QueryTables.Add(Co nnection:= _
"URL;[link]" & Zip & "?lswe=" & _

Re: break at space

2009-12-16T03:28:57Z

Hmmmm,
Perhaps under Data > Text to Columns > Delimiter > Space > OK > Finish.
Try it on a test set of data first!!!
HTH
Regrds,
Howard

cannot insert object in excell 2007

2009-12-16T03:24:02Z

I cannot insert MSHFLXGD in excell or access 2007

Sheet activate question

2009-12-16T03:17:44Z

I have 5 sheets that each process "Worksheet_Activate()". When
my workbook first opens, Sheet1 is automatically selected by
default as the first active sheet, however it does not receive any
"Activate" event when the workbook is first loaded.
What is a good way to ensure that the default activated sheet's

Re: Hyperlink

2009-12-16T03:09:01Z

Why do you need to open all of those links, and in that order ?
Tim

Re: Insert Zip codes into weather code

2009-12-16T03:03:23Z

Hi Rick and Tim
Thanks for looking at my post. I think I posed my problem incorrectly
and/or missunderstand you solutions.
This code works fine, for the hardcoded 97401 zip. (Of course it wrapped the
long code line here in this post but works okay when copied back into the VB
editor.)
Sub SomeWx()

Re: break at space

2009-12-16T02:52:19Z

I forgot to mention that I have all the words in one cell.
Thanks
____

RE: Copy and Paste link between workbooks

2009-12-16T02:36:01Z

The Activate command (to select the workbook & worksheet) may be the problem.
Sub FindMatchesInBooksR2()
Dim swb As Workbook, dwb As Workbook
Dim sd As Worksheet, dd As Worksheet
Dim cell As Range, x As Long
Dim LastRowS As Long, LastRowD As Long
Application.ScreenUpdating = False
Set swb = Workbooks("SourceData.xlsx") ' change workbook name

break at space

2009-12-16T02:34:29Z

Hello, I have thousands of nouns separated by a space (abandonments
abbreviating abbreviation abbreviators ...) and I would like to put a
formula so that at each space the remaining is copied to the next cell
(killing the needless space).
Can it be done, can you hint me to how to do this?
thank you

Re: Matching Columns

2009-12-16T02:18:01Z

Thank you very much. Works perfect.

Re: Help with Macro please...

2009-12-16T01:56:14Z

Your code works for me in that it will fetch the body of all the
messages selected in my outlook inbox.
So, if you're not getting any data the problem must be in your parsing
code.
Hard to tell without a sample message to look at.
Comment on this:
Tabl = Split(mybody, Chr(10))
For Each Item In Tabl

Calendar Control for Excel 2010

2009-12-16T01:51:02Z

I am now using Excel 2010 and the Calendar Control no longer works. Is there
a calendar control that works with Excel 2010?

How to do check for factors in formulas?

2009-12-16T01:44:41Z

I need help creating a function.
The goal is to parse formulas from cells A1 to A5 and find the values
of each factor.
Example:
A1 - "A+B=CD"
A2 - "C+D+E=A"
*Notice the double digit in the first formula.
In this example the macro needs to parse these two rows and find the
values for A,B,C,D and E that satisfy the two formulas.