Using A Find Result in a Range

Hello,

I'm trying to search for a word on a spreadsheet, in this case the word
"Label."  I then want to copy everything from A1 to the row above that word
"Label" and paste it to a new spreadsheet. I've got everything worked out
except how to use the Find Result address in a new range. I'm sure it's
simple, so simple I can't find it in any tutorial.  Currently I have to look
in each spreadsheet for the last row of the range I want to copy and type the
copy range manually into the code for each of the multiple spec sheet
spreadsheets I'm attempting to cut down into individual product spec sheets.
Perhaps somebody could point me in the right direction?  

Thanks in advance to anybody.

My code, in case it helps:

activate application "Microsoft Excel"
repeat 10 times
	tell application "Microsoft Excel"
		set MainWkbk to active workbook
		activate object worksheet "Sheet1"
		set SpecSheetEnd to (find (range "1:100" of worksheet "Sheet1") what
"Label" after "1:1")
		set SpecSheetRng to (get address SpecSheetEnd)
		copy range range "A1:H88"
		set newWkbk to make new workbook
		tell newWkbk
			activate object workbook newWkbk
			tell sheet "Sheet1"
				activate object worksheet "Sheet1" of newWkbk
				set column width of range "A:A" of sheet "Sheet1" to 12 -- characters
(columns)
				set column width of range "B:C" of sheet "Sheet1" to 4 -- characters
(columns)
				set column width of range "D:E" of sheet "Sheet1" to 12 -- characters
(columns)
				set column width of range "F:G" of sheet "Sheet1" to 4 -- characters
(columns)
				set column width of range "H:H" of sheet "Sheet1" to 14 -- characters
(columns)
				select sheet "Sheet1" of newWkbk
				paste worksheet sheet "Sheet1" of newWkbk destination range "A1"
				set StoryRow to (find (range "1:100" of worksheet "Sheet1") what "Label")
				set row height of StoryRow to 35
				set KeywordRow to (find (range "1:100" of worksheet "Sheet1") what "Key")
				set row height of KeywordRow to 35
				set IngredientRow to (find (range "1:100" of worksheet "Sheet1") what
"Ingredient")
				set row height of IngredientRow to 35
				set NutritionRow to (find (range "1:100" of worksheet "Sheet1") what
"Nutritional")
				set row height of NutritionRow to 35
				set WeightRow to (find (range "1:100" of worksheet "Sheet1") what
"Weight")
				set row height of WeightRow to 35
				set fc to (find (range "A:B" of worksheet "Sheet1") what "Weight")
				make new horizontal page break at worksheet "Sheet1" of newWkbk ¬
					with properties {location:range (get address fc)}
				set fName to string value of range "D1" & " " & string value of range
"D3" & " " & string value of range "D4"
				save workbook as newWkbk filename fName
				tell newWkbk
					activate object workbook MainWkbk
					activate object worksheet "Sheet1" of MainWkbk
					tell sheet "Sheet1"
						close window 1
					end tell
					activate application "Microsoft Excel"
					activate object workbook 1
					tell workbook active workbook
						tell sheet "Sheet1"
							activate object worksheet "Sheet1" of active workbook
							set SpecSheetEnd to (find (range "1:100" of worksheet "Sheet1") what
"Label" after "1:1")
							set SpecSheetRng to "A1:H88"
							delete range range SpecSheetRng shift shift up
						end tell
					end tell
				end tell
			end tell
			
		end tell
	end tell
end repeat

0
LHeld
4/20/2010 3:35:11 PM
mac.office.excel 1146 articles. 0 followers. Follow

2 Replies
896 Views

Similar Articles

[PageSpeed] 28

> This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

--B_3354720418_5025856
Content-type: text/plain;
	charset="ISO-8859-1"
Content-transfer-encoding: 8bit

I would hate to tell you how long I floundered about before I figured this
out...

The Find result IS a range :-)

An Excel Find returns either "nothing" or the range that matches what you
were looking for.  Here's a VBA example:

With Worksheets(1).Range("a1:a500")
    Set FindResult = .Find(2, lookin:=xlValues)
    If Not FindResult Is Nothing Then
        firstAddress = FindResult.Address
        Do
            FindResult.Value = 5
            Set FindResult = .FindNext( FindResult)
        Loop While Not FindResult Is Nothing And FindResult.Address <>
firstAddress
    End If
End With

This is a very typical �iterative Find� routine.  Notice they conduct the
first Find outside the loop and return the result to the FindResult
variable.

Then they test FindResult to see if they found anything.  If they didn�t, it
will be �nothing� and they exit.  If FindResult is anything other than
�nothing� it�s a range.  They then extract the address of that range and
fall into a Do...Loop that keeps repeating until it either falls off the end
of the spreadsheet range or ends up back where it started.

That�s a fairly convoluted way of writing this, by the way.  I don�t think
the person who wrote that was a VBA coder by training: it looks more like a
C++ structure to me.  I would have used a �While FindResult is not
nothing...� construct to save a couple of lines.  But you get the picture.

So if your Find result comes back as anything but �nothing� you�re holding
the range you want in the palm of your hand, no need to do anything else :-)

Hope this helps


On 21/04/10 1:35 AM, in article a6d1942aef751@uwe, "LHeld" <u59488@uwe>
wrote:

> Hello,
> 
> I'm trying to search for a word on a spreadsheet, in this case the word
> "Label."  I then want to copy everything from A1 to the row above that word
> "Label" and paste it to a new spreadsheet. I've got everything worked out
> except how to use the Find Result address in a new range. I'm sure it's
> simple, so simple I can't find it in any tutorial.  Currently I have to look
> in each spreadsheet for the last row of the range I want to copy and type the
> copy range manually into the code for each of the multiple spec sheet
> spreadsheets I'm attempting to cut down into individual product spec sheets.
> Perhaps somebody could point me in the right direction?
> 
> Thanks in advance to anybody.
> 
> My code, in case it helps:
> 
> activate application "Microsoft Excel"
> repeat 10 times
> tell application "Microsoft Excel"
> set MainWkbk to active workbook
> activate object worksheet "Sheet1"
> set SpecSheetEnd to (find (range "1:100" of worksheet "Sheet1") what
> "Label" after "1:1")
> set SpecSheetRng to (get address SpecSheetEnd)
> copy range range "A1:H88"
> set newWkbk to make new workbook
> tell newWkbk
> activate object workbook newWkbk
> tell sheet "Sheet1"
> activate object worksheet "Sheet1" of newWkbk
> set column width of range "A:A" of sheet "Sheet1" to 12 -- characters
> (columns)
> set column width of range "B:C" of sheet "Sheet1" to 4 -- characters
> (columns)
> set column width of range "D:E" of sheet "Sheet1" to 12 -- characters
> (columns)
> set column width of range "F:G" of sheet "Sheet1" to 4 -- characters
> (columns)
> set column width of range "H:H" of sheet "Sheet1" to 14 -- characters
> (columns)
> select sheet "Sheet1" of newWkbk
> paste worksheet sheet "Sheet1" of newWkbk destination range "A1"
> set StoryRow to (find (range "1:100" of worksheet "Sheet1") what "Label")
> set row height of StoryRow to 35
> set KeywordRow to (find (range "1:100" of worksheet "Sheet1") what "Key")
> set row height of KeywordRow to 35
> set IngredientRow to (find (range "1:100" of worksheet "Sheet1") what
> "Ingredient")
> set row height of IngredientRow to 35
> set NutritionRow to (find (range "1:100" of worksheet "Sheet1") what
> "Nutritional")
> set row height of NutritionRow to 35
> set WeightRow to (find (range "1:100" of worksheet "Sheet1") what
> "Weight")
> set row height of WeightRow to 35
> set fc to (find (range "A:B" of worksheet "Sheet1") what "Weight")
> make new horizontal page break at worksheet "Sheet1" of newWkbk �
> with properties {location:range (get address fc)}
> set fName to string value of range "D1" & " " & string value of range
> "D3" & " " & string value of range "D4"
> save workbook as newWkbk filename fName
> tell newWkbk
> activate object workbook MainWkbk
> activate object worksheet "Sheet1" of MainWkbk
> tell sheet "Sheet1"
> close window 1
> end tell
> activate application "Microsoft Excel"
> activate object workbook 1
> tell workbook active workbook
> tell sheet "Sheet1"
> activate object worksheet "Sheet1" of active workbook
> set SpecSheetEnd to (find (range "1:100" of worksheet "Sheet1") what
> "Label" after "1:1")
> set SpecSheetRng to "A1:H88"
> delete range range SpecSheetRng shift shift up
> end tell
> end tell
> end tell
> end tell
> 
> end tell
> end tell
> end repeat
> 

 --

The email below is my business email -- Please do not email me about forum
matters unless I ask you to; or unless you intend to pay!

John McGhie, Microsoft MVP (Word, Mac Word), Consultant Technical Writer,
McGhie Information Engineering Pty Ltd
Sydney, Australia. | Ph: +61 (0)4 1209 1410 | mailto:john@mcghie.name



--B_3354720418_5025856
Content-type: text/html;
	charset="ISO-8859-1"
Content-transfer-encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>Re: Using A Find Result in a Range</TITLE>
</HEAD>
<BODY>
<FONT FACE=3D"Calibri, Verdana, Helvetica, Arial"><SPAN STYLE=3D'font-size:11pt=
'>I would hate to tell you how long I floundered about before I figured this=
 out...<BR>
<BR>
The Find result IS a range :-)<BR>
<BR>
An Excel Find returns either &quot;nothing&quot; or the range that matches =
what you were looking for. &nbsp;Here's a VBA example:<BR>
<BR>
With Worksheets(1).Range(&quot;a1:a500&quot;)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;Set FindResult =3D .Find(2, lookin:=3DxlValues)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;If Not FindResult Is Nothing Then<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;firstAddress =3D FindResult.A=
ddress<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Do<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Fin=
dResult.Value =3D 5<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set=
 FindResult =3D .FindNext( </SPAN></FONT><FONT SIZE=3D"2"><FONT FACE=3D"Consolas, =
Courier New, Courier"><SPAN STYLE=3D'font-size:10pt'>FindResult</SPAN></FONT><=
/FONT><FONT FACE=3D"Calibri, Verdana, Helvetica, Arial"><SPAN STYLE=3D'font-size=
:11pt'>)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop While Not FindResult I=
s Nothing And FindResult.Address &lt;&gt; firstAddress<BR>
&nbsp;&nbsp;&nbsp;&nbsp;End If<BR>
End With<BR>
<BR>
This is a very typical &#8220;iterative Find&#8221; routine. &nbsp;Notice t=
hey conduct the first Find outside the loop and return the result to the Fin=
dResult variable.<BR>
<BR>
Then they test FindResult to see if they found anything. &nbsp;If they didn=
&#8217;t, it will be &#8220;nothing&#8221; and they exit. &nbsp;If FindResul=
t is anything other than &#8220;nothing&#8221; it&#8217;s a range. &nbsp;The=
y then extract the address of that range and fall into a Do...Loop that keep=
s repeating until it either falls off the end of the spreadsheet range or en=
ds up back where it started.<BR>
<BR>
That&#8217;s a fairly convoluted way of writing this, by the way. &nbsp;I d=
on&#8217;t think the person who wrote that was a VBA coder by training: it l=
ooks more like a C++ structure to me. &nbsp;I would have used a &#8220;While=
 FindResult is not nothing...&#8221; construct to save a couple of lines. &n=
bsp;But you get the picture.<BR>
<BR>
So if your Find result comes back as anything but &#8220;nothing&#8221; you=
&#8217;re holding the range you want in the palm of your hand, no need to do=
 anything else :-) &nbsp;<BR>
<BR>
Hope this helps<BR>
<BR>
<BR>
On 21/04/10 1:35 AM, in article a6d1942aef751@uwe, &quot;LHeld&quot; &lt;u5=
9488@uwe&gt; wrote:<BR>
<BR>
<FONT COLOR=3D"#0000FF">&gt; Hello,<BR>
&gt; <BR>
&gt; I'm trying to search for a word on a spreadsheet, in this case the wor=
d<BR>
&gt; &quot;Label.&quot; &nbsp;I then want to copy everything from A1 to the=
 row above that word<BR>
&gt; &quot;Label&quot; and paste it to a new spreadsheet. I've got everythi=
ng worked out<BR>
&gt; except how to use the Find Result address in a new range. I'm sure it'=
s<BR>
&gt; simple, so simple I can't find it in any tutorial. &nbsp;Currently I h=
ave to look<BR>
&gt; in each spreadsheet for the last row of the range I want to copy and t=
ype the<BR>
&gt; copy range manually into the code for each of the multiple spec sheet<=
BR>
&gt; spreadsheets I'm attempting to cut down into individual product spec s=
heets.<BR>
&gt; Perhaps somebody could point me in the right direction? &nbsp;<BR>
&gt; <BR>
&gt; Thanks in advance to anybody.<BR>
&gt; <BR>
&gt; My code, in case it helps:<BR>
&gt; <BR>
&gt; activate application &quot;Microsoft Excel&quot;<BR>
&gt; repeat 10 times<BR>
&gt; tell application &quot;Microsoft Excel&quot;<BR>
&gt; set MainWkbk to active workbook<BR>
&gt; activate object worksheet &quot;Sheet1&quot;<BR>
&gt; set SpecSheetEnd to (find (range &quot;1:100&quot; of worksheet &quot;=
Sheet1&quot;) what<BR>
&gt; &quot;Label&quot; after &quot;1:1&quot;)<BR>
&gt; set SpecSheetRng to (get address SpecSheetEnd)<BR>
&gt; copy range range &quot;A1:H88&quot;<BR>
&gt; set newWkbk to make new workbook<BR>
&gt; tell newWkbk<BR>
&gt; activate object workbook newWkbk<BR>
&gt; tell sheet &quot;Sheet1&quot;<BR>
&gt; activate object worksheet &quot;Sheet1&quot; of newWkbk<BR>
&gt; set column width of range &quot;A:A&quot; of sheet &quot;Sheet1&quot; =
to 12 -- characters<BR>
&gt; (columns)<BR>
&gt; set column width of range &quot;B:C&quot; of sheet &quot;Sheet1&quot; =
to 4 -- characters<BR>
&gt; (columns)<BR>
&gt; set column width of range &quot;D:E&quot; of sheet &quot;Sheet1&quot; =
to 12 -- characters<BR>
&gt; (columns)<BR>
&gt; set column width of range &quot;F:G&quot; of sheet &quot;Sheet1&quot; =
to 4 -- characters<BR>
&gt; (columns)<BR>
&gt; set column width of range &quot;H:H&quot; of sheet &quot;Sheet1&quot; =
to 14 -- characters<BR>
&gt; (columns)<BR>
&gt; select sheet &quot;Sheet1&quot; of newWkbk<BR>
&gt; paste worksheet sheet &quot;Sheet1&quot; of newWkbk destination range =
&quot;A1&quot;<BR>
&gt; set StoryRow to (find (range &quot;1:100&quot; of worksheet &quot;Shee=
t1&quot;) what &quot;Label&quot;)<BR>
&gt; set row height of StoryRow to 35<BR>
&gt; set KeywordRow to (find (range &quot;1:100&quot; of worksheet &quot;Sh=
eet1&quot;) what &quot;Key&quot;)<BR>
&gt; set row height of KeywordRow to 35<BR>
&gt; set IngredientRow to (find (range &quot;1:100&quot; of worksheet &quot=
;Sheet1&quot;) what<BR>
&gt; &quot;Ingredient&quot;)<BR>
&gt; set row height of IngredientRow to 35<BR>
&gt; set NutritionRow to (find (range &quot;1:100&quot; of worksheet &quot;=
Sheet1&quot;) what<BR>
&gt; &quot;Nutritional&quot;)<BR>
&gt; set row height of NutritionRow to 35<BR>
&gt; set WeightRow to (find (range &quot;1:100&quot; of worksheet &quot;She=
et1&quot;) what<BR>
&gt; &quot;Weight&quot;)<BR>
&gt; set row height of WeightRow to 35<BR>
&gt; set fc to (find (range &quot;A:B&quot; of worksheet &quot;Sheet1&quot;=
) what &quot;Weight&quot;)<BR>
&gt; make new horizontal page break at worksheet &quot;Sheet1&quot; of newW=
kbk &not;<BR>
&gt; with properties {location:range (get address fc)}<BR>
&gt; set fName to string value of range &quot;D1&quot; &amp; &quot; &quot; =
&amp; string value of range<BR>
&gt; &quot;D3&quot; &amp; &quot; &quot; &amp; string value of range &quot;D=
4&quot;<BR>
&gt; save workbook as newWkbk filename fName<BR>
&gt; tell newWkbk<BR>
&gt; activate object workbook MainWkbk<BR>
&gt; activate object worksheet &quot;Sheet1&quot; of MainWkbk<BR>
&gt; tell sheet &quot;Sheet1&quot;<BR>
&gt; close window 1<BR>
&gt; end tell<BR>
&gt; activate application &quot;Microsoft Excel&quot;<BR>
&gt; activate object workbook 1<BR>
&gt; tell workbook active workbook<BR>
&gt; tell sheet &quot;Sheet1&quot;<BR>
&gt; activate object worksheet &quot;Sheet1&quot; of active workbook<BR>
&gt; set SpecSheetEnd to (find (range &quot;1:100&quot; of worksheet &quot;=
Sheet1&quot;) what<BR>
&gt; &quot;Label&quot; after &quot;1:1&quot;)<BR>
&gt; set SpecSheetRng to &quot;A1:H88&quot;<BR>
&gt; delete range range SpecSheetRng shift shift up<BR>
&gt; end tell<BR>
&gt; end tell<BR>
&gt; end tell<BR>
&gt; end tell<BR>
&gt; <BR>
&gt; end tell<BR>
&gt; end tell<BR>
&gt; end repeat<BR>
&gt; <BR>
</FONT><BR>
</SPAN></FONT><FONT SIZE=3D"2"><FONT FACE=3D"Consolas, Courier New, Courier"><S=
PAN STYLE=3D'font-size:10pt'> --<BR>
</SPAN></FONT></FONT><FONT FACE=3D"Calibri, Verdana, Helvetica, Arial"><SPAN =
STYLE=3D'font-size:11pt'><BR>
The email below is my business email -- Please do not email me about forum =
matters unless I ask you to; or unless you intend to pay!<BR>
<BR>
</SPAN></FONT><FONT SIZE=3D"2"><FONT FACE=3D"Consolas, Courier New, Courier"><S=
PAN STYLE=3D'font-size:10pt'>John McGhie, Microsoft MVP (Word, Mac Word), Cons=
ultant Technical Writer,<BR>
McGhie Information Engineering Pty Ltd<BR>
Sydney, Australia. | Ph: +61 (0)4 1209 1410 | <a href=3D"mailto:john@mcghie.n=
ame">mailto:john@mcghie.name</a><BR>
</SPAN></FONT></FONT><FONT FACE=3D"Calibri, Verdana, Helvetica, Arial"><SPAN =
STYLE=3D'font-size:11pt'><BR>
</SPAN></FONT>
</BODY>
</HTML>


--B_3354720418_5025856--

0
John
4/21/2010 8:46:57 AM
Thanks for the reply! I'd actually worked that part out, that the find result
returns a range. What I can't do, then, is figure out how to create NewRange
out of it from A1:FindResultRange.  I want to copy/paste/delete NewRange,
then do it all over again. I'm new to AppleScript completely, although I've
had coding experience in other systems, so I'm sure it's simply a matter of
knowing the right syntax...which I can't find. If you or anybody could help
me out, I'd appreciate an actual snippet of code showing how to do this.  I
learns best from seeing stuff.

Thanks again.

LHeld wrote:
>Hello,
>
>I'm trying to search for a word on a spreadsheet, in this case the word
>"Label."  I then want to copy everything from A1 to the row above that word
>"Label" and paste it to a new spreadsheet. I've got everything worked out
>except how to use the Find Result address in a new range. I'm sure it's
>simple, so simple I can't find it in any tutorial.  Currently I have to look
>in each spreadsheet for the last row of the range I want to copy and type the
>copy range manually into the code for each of the multiple spec sheet
>spreadsheets I'm attempting to cut down into individual product spec sheets.
>Perhaps somebody could point me in the right direction?  
>
>Thanks in advance to anybody.
>
>My code, in case it helps:
>
>activate application "Microsoft Excel"
>repeat 10 times
>	tell application "Microsoft Excel"
>		set MainWkbk to active workbook
>		activate object worksheet "Sheet1"
>		set SpecSheetEnd to (find (range "1:100" of worksheet "Sheet1") what
>"Label" after "1:1")
>		set SpecSheetRng to (get address SpecSheetEnd)
>		copy range range "A1:H88"
>		set newWkbk to make new workbook
>		tell newWkbk
>			activate object workbook newWkbk
>			tell sheet "Sheet1"
>				activate object worksheet "Sheet1" of newWkbk
>				set column width of range "A:A" of sheet "Sheet1" to 12 -- characters
>(columns)
>				set column width of range "B:C" of sheet "Sheet1" to 4 -- characters
>(columns)
>				set column width of range "D:E" of sheet "Sheet1" to 12 -- characters
>(columns)
>				set column width of range "F:G" of sheet "Sheet1" to 4 -- characters
>(columns)
>				set column width of range "H:H" of sheet "Sheet1" to 14 -- characters
>(columns)
>				select sheet "Sheet1" of newWkbk
>				paste worksheet sheet "Sheet1" of newWkbk destination range "A1"
>				set StoryRow to (find (range "1:100" of worksheet "Sheet1") what "Label")
>				set row height of StoryRow to 35
>				set KeywordRow to (find (range "1:100" of worksheet "Sheet1") what "Key")
>				set row height of KeywordRow to 35
>				set IngredientRow to (find (range "1:100" of worksheet "Sheet1") what
>"Ingredient")
>				set row height of IngredientRow to 35
>				set NutritionRow to (find (range "1:100" of worksheet "Sheet1") what
>"Nutritional")
>				set row height of NutritionRow to 35
>				set WeightRow to (find (range "1:100" of worksheet "Sheet1") what
>"Weight")
>				set row height of WeightRow to 35
>				set fc to (find (range "A:B" of worksheet "Sheet1") what "Weight")
>				make new horizontal page break at worksheet "Sheet1" of newWkbk ¬
>					with properties {location:range (get address fc)}
>				set fName to string value of range "D1" & " " & string value of range
>"D3" & " " & string value of range "D4"
>				save workbook as newWkbk filename fName
>				tell newWkbk
>					activate object workbook MainWkbk
>					activate object worksheet "Sheet1" of MainWkbk
>					tell sheet "Sheet1"
>						close window 1
>					end tell
>					activate application "Microsoft Excel"
>					activate object workbook 1
>					tell workbook active workbook
>						tell sheet "Sheet1"
>							activate object worksheet "Sheet1" of active workbook
>							set SpecSheetEnd to (find (range "1:100" of worksheet "Sheet1") what
>"Label" after "1:1")
>							set SpecSheetRng to "A1:H88"
>							delete range range SpecSheetRng shift shift up
>						end tell
>					end tell
>				end tell
>			end tell
>			
>		end tell
>	end tell
>end repeat

-- 
Message posted via http://www.mackb.com

0
LHeld
4/21/2010 2:56:43 PM
Reply:

Similar Artilces:

Using Document Hyperlinks in Email Publications
I thought I had read somewhere that you could use hyperlinks to documents in your email publications (where the documents are not saved on a web server). I was under the impression that the documents sort of "upload" and give the reader the option to "open" or "save" them. Is there a trick to doing this, if it is possible at all? Thanks You could "attach" the document to your email. In the body of the email give a statement, i.e., See attached file. Before sending the email, click on the Attach icon on the tool bar at the top which will give y...

When i have to use Doc/View Architecture and Dialog-based Application??
Hi All, We can create dialog-based application in doc/view architecture also. But what is the need of going to dialog based application separately??? Thanks in advance Regards, Selva You use dialog-based apps when you need dialog-based apps. You use doc/view apps when the concept of document and view apply. There's no real mystery involved. You choose whatever appears to make sense for your application. Note that there is no such thing as a "dialog-based application in doc/view architecture". There *is* "CFormView-derived views", but a CFormView is *not* a dia...

two columns range of numbers need to list all numbers in the range
have two columns range of numbers i need to list each number in the range start end 5 9 15 19 20 29 i need for each row to show the numbers in the range 5 6 7 8 9 15 16 .. .. pls help Was this post helpful to you? Check your other post. arsovat wrote: > > have two columns range of numbers i need to list each number in the range > start end > 5 9 > 15 19 > 20 29 > i need for each row to show the numbers in the range > 5 > 6 > 7 > 8 > 9 > 15 > 16 > . > . > pls help > > Was this post he...

Lost original message when using outlook web access
I often use web access when travelling to get my work emails. When forwrdign and replying to emails, I always have the orginal email in tact and as part of the reply. However, when accessing from home on the internet, I lose the orginal email so that when I reply or forward there's nothing there. I also can't paste or copy into or from the message body. Is this problem easily fixed. Jim Assuming Outlook 2000 - though something like this will probably work for every version ... it just might not be in the same menu location. Go to Tools - Options - Preferences - Email option...

Contact uses
Am studying towards my 284 exam and am confused as i thought i understood the uses of contacts but the below has thrown me. I thought you must not use contacts for internal users as the messages bounce when setting up the contact does it matter which mail address you use "do you have to use the comany.com to list it in ad so it delivers inbound mail" answer states use two mail addresses in contact if i add 10 addresses to the contact will they all receive a copy of the message sent to brian@company.com automatically. QUESTION: your company subcontracts a consultant named bria...

Passing Pointers using PostMessage
I would like to send data accross threads using PostMessage and passing pointers to the data as parameters. I know I can do this but I am concerned with memory leaks. Am I 100% guaranteed to recieve all these messages? Is there anyway that these messages could get lost in the windows event loop without my handler function being called to clean up the memory? Thanks in advance, James Well I use this tecnique heavily in my applications and have never experienced any message loss as far as I know (as distinct from PostThreadMessage). James Lennon wrote: > I would like to send data ...

Deleting range of employees
Is there an easy way to delete many employees? Either a utility or SQL statements? If we go through the steps of removing payroll history and payroll summary for each employee one at a time, it's very time-consuming. If the employees are marked as inactive, you can use the utility to remove inactive employee records. (Tools>>Utilities>>Payroll>>Remove Inactive Records). Optionally you can also remove History for Inactive Employee Records in this same window. The 'Remove Inactive Records' will pull the employees out of the Employee Maintenance window, but l...

How to Prevent Duplicate Data from inputing using input application?
Hello microsoft.public.excel.charting my name is Zig I am trying hard to find out how I can use a input application to input data into a specified excel sheet. I have learned how to input the data into the excel sheet although I need to prevent the inputs from being duplicated. I have used a validating solver to prevent duplicate entries but it only works if you type the text into the sheet. I am unable to get the input application to follow the validation rule. Is there a way that I can use a input application to prevent duplicate entries into the excel sheets and if duplicate data is true ca...

Using excel as a data base
How to create names and addresses in EXCEL that can be used in a mail merge in Word One row per record. Each field in a separate cell/column. It's much easier to combine fields than it is to separate them correctly. You may want to read some tips for mailmerge: http://www.mvps.org/dmcritchie/excel/mailmerg.htm http://www.mvps.org/word/FAQs/MailMerge The first is from David McRitchie and the second is by Beth Melton and Dave Rado. Nan wrote: > > How to create names and addresses in EXCEL that can be used in a mail merge > in Word -- Dave Peterson ...

Outbound email blocked as SPAM when using the CRM4.0 router
I am using CRM 4.0 and noticed outbound email is blocked as SPAM when sent through the CRM router. The same email sent through Outlook is not blocked. I looked at the header of both outbound messages and noticed the CRM router email header is slightly different than what goes out through Outlook. I'm guessing it is the way the router relays the email. I have the router running on our Exchange 2007 server. I really want to use the router but can't take a cahnce on it getting blocked as SPAM. What is the solution? Have you managed to find any information on this, as we are having ...

Using Frx and email
This may be long so bear with me. I have multiple questions. I am using lotus notes for email. I found another thread that talked about instructions using lotus notes that I plan to test out. However, I had other questions. 1. I am assuming that I can select any output option when using the email function in FRx. For example, if I selected the drill down viewer, the recipient would need the viewer installed on their PC. However, if I selected formatted XLS, they could open it with their excel application. Let me know if I'm wrong on this theory. 2. My question is about cha...

Payee Matching using Memo Field?
Note sure if this is specific to BofA, or if I'm just missing something.I am using MS Money Deluxe 2004, but also had same prob with 2000 When I download ofx (problems with qif also) statements the Payee or <name> is truncated to 32 char which normally I wouldnt care since money only allows 32 char in the payee feild. Problem is my transactions in the OFX are like this: <NAME>INTERLINK NETWORK TRANS ****** O <MEMO>INTERLINK NETWORK TRANS ****** ON 07-03 CUSTOMER ******** PAYMENT TO ACME Is it possible to auto match Payees using...

Can't find AutoRecover file in path specified in Options dialog.
I had a file open in Excel 2002 in which I made some changes, and then mistakenly closed without saving. But after making those changes, and before closing, it had remained open for over an hour. I'd like to recover those changes, and the path specified in the "AutoRecover save location:" text box in the Options - Save dialog tab is: C:\Documents and Settings\MyUserName\Application Data\Microsoft\Excel\ However, I couldn't find a *.xls file in that directory. (The only thing in that folder is a file named Excel10.xlb and another folder named XLSTART). I don'...

Display Query Results on top of a Form
I have a query which runs from a control button on a form. When the query runs, the results are displayed behind the form. The user then has to minimize the form in order to see the query results. How do you set the query results to display on top of the form? You could put the following line in the code for the On Click event of the button being pushed: DoCmd.Minimize That will minimize the form and the query should be on top. -- Jerry Whittle, Microsoft Access MVP Light. Strong. Cheap. Pick two. Keith Bontrager - Bicycle Builder. "Kristin M" wrote: &...

Excel error: Permission to use object denied
I have some new computers setup with Windows XP and Office 97. When go into Excel and open a spreadsheet, I get a Microsoft Visual Basi error:Permission to use object denied. The spreadsheet will not open. The error happens with every spreadsheet I try to open on tha computer. If I copy the spreadsheet to another computer, it open without complaint. The other computer is also running XP and Excel 97 but was installed a few months ago. Any ideas -- Message posted from http://www.ExcelForum.com The following article may be of some help, althought your problem is slightly different. h...

Can Outlook 2003 be used with the old 2002 interface?
I really don't like the new interface for Outlook 2003. I guess if I used it enough I'd learn to like it, but I have about 100 users that I'd have to show how to use it. If I could use a "classic Outlook interface" like the way Windows XP Professional allows a "classic Windows Start Menu", that would be great. You know the old saying about teaching an old dog new tricks. Some people have a real hard time learning new interfaces. We've been using the same type of Outlook setup since Outlook 97 with some small changes. These new changes for Outl...

what does the outline tool icon look like and how do I find it?
I have spent hours trying to do a table of contents following the 2003 Word directions. No luck. Can anyone give me step-by-step directions. Every time I hit the ok in the table of contents box, it comes back "can't find ...." Now what? I can't find the outline icon on my toolbar. What does it look like? I am a novice, so please bear with me. See http://www.ShaunaKelly.com/word/toc/CreateATOC.html for instructions you can follow. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA http://word.mvps.org "Professo...

OFXHTTP500 error after 1 day using Money Plus
Hello, I had to update to Money Plus after my money 2005 became unsupported and was thus no longer usable. I installed Money pluss without error and used it without error for 1 day, maybe 2 days. Now tonight I've spent an hour debugging connection failures of OFXHTTP500 when tyring to pull nwe data from my bank. Long story short it appears the money file is corrupt. I tried creating a new one and it connects and downloads from the bank without issue. I have tried uninstalling and reinstalling money. I ran both a simple and standard fix on the old money file, and no errors are foun...

Excel 2007
In my Excel-report I have a textbox to write comments. In Excel 2007 the "Enter"-knob on numeric part of keyboard doesn't work when typing in the textbox, but work as normal all other places in the workbook. Is this known by others, or is it just my server? Interesting! I can confirm this is the same behaviour that I have. best wishes -- Bernard Liengme Microsoft Excel MVP http://people.stfx.ca/bliengme "Wegar" <Wegar@discussions.microsoft.com> wrote in message news:A054E635-9CB9-4B8A-AB0E-BC1CED2DA6AF@microsoft.com... > In my Excel-report I have a text...

To make fields invisible using Dexterity Utilities
Hello I know we could use Windows propoerties to make fields visible or invisible on a Window in a form. I understand we could use Dexterity Utilities to make the fields visible or invisible to user. Could anyone say how to do it Dexterity Utilities is not the correct tool to hide fields from a user. You can do this using Modifier, VBA, Field Level Security or Dexterity. Dexterity can either use triggers or you can create an alternate window. David Musgrave [MSFT] Senior Development Consultant Escalation Engineer MBS Support - Asia Pacific Microsoft Business Solutions http://www.mi...

Improve Service Calendar scheduling by using nearest location
Hello, I have different sites providing the same service, I want that from service calendar, my users could schedule a service: 1) from the nearest site 2) if no resources available on this site, use any other site with available resources. Is CRM able to do this ? How to enter rules on the service to have this kind of selection ? Thanks for help. CS ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button...

Can I make a graph using several tabs in an excel spreadsheet
This might be what you're looking for: http://peltiertech.com/Excel/ChartsHowTo/ChartFromDiffSheets.html - Jon ------- Jon Peltier, Microsoft Excel MVP Peltier Technical Services - Tutorials and Custom Solutions - http://PeltierTech.com/ 2006 Excel User Conference, 19-21 April, Atlantic City, NJ http://peltiertech.com/Excel/ExcelUserConf06.html _______ "Sheila" <Sheila@discussions.microsoft.com> wrote in message news:B348DD7D-61C5-48E8-B47B-D8ACC79E7723@microsoft.com... > ...

which fax program do I use?
I'm running windows 2000 and outlook 2000. windows comes with a fax (NT fax from memory), but it doesn't work with my version of outlook 2000 as it's "email only". a) Is there a way of changing outlook to permit the fax? or b) Is there another fax program that I could/should use? Peter Maybe the fax software that usually comes with the modem - asuming you have a dial up modem not cable. "peter" <peter.jennifer@gmail.com> wrote in message news:1166203871.236229.313840@79g2000cws.googlegroups.com... > I'm running windows 2000 and outlook 2000. w...

Finding Accounts with no related Contacts CRM 3.0
Hi, I am trying to find all accounts where there are no related contacts but cannot work out the advanced find syntax to do this. I presume I am just missing something obvious. any ideas. Thanks Justin Hi Justin, You are not missing anything. CRM does not support a NOT operator in queries. You can easily search for accounts that do have at least one contact, but the opposite does not work. The only workaround is a report or some kind of server task (service, plug-in, workflow) setting a count attribute in an account whenever a contact is assigned or removed from an account, so that y...

use front-end as a back-end temporarily
I need to do some maintenance on our Exchange back-end server. My thought was to change our front-end server to a back-end and simply move the mailboxes and public folders [small] to it so I can then take down the main back-end server for maintenance. Will this work OK? Is there a better solution that does not involve buying a new box? Is there a guide with step by step instructions? -- Sharingly yours... What maintanance do you need to do ? Easiest way would be to schedule downtime or is this not feasible ? Other option is if you are using Outlook 2003 cached mode is to have everyo...