Posts by fifijazz

I'm not sure. Where is the sort done? Is it in the query the form is based on, or is this a user sort?

Here you go. If you want to immediately open the new file in Excel, change the "False" to "True".

DoCmd.OutputTo acForm, "subBody", "MicrosoftExcelBiff8(*.xls)", "c:\testit.xls", False, "", 0

Sorry, I don't understand your question. Would you try again please?

Sorry. In Excel, go to Tools>Customize, Options tab, check "Always show full menus"

I can't stand those menus, either. How to get rid of them depends on the version of Windows you are running, I think. Try this:
From the Start Menu, go to Settings>Taskbar & Start Menu. Uncheck the "Use Personalized Menus" box.

HTH

Tools>Options Go to the View tab and check the status bar box.

What you want to set is the MatchEntry property. Set the property to 2 if you don't want any sort of matching done.

try this:

For lngSourceRow = lngStartRow To lngEndRow
         ' Keep user informed
        Application.StatusBar = "Processing row " & lngSourceRow
         ' Compare codes
        If Worksheets("SPORTELLI").Range("A1:A" & lngTargetRow).Find _
        (Worksheets("ANAGRAFE").Range("G" & lngSourceRow)) Is Nothing Then
                If Left(Worksheets("ANAGRAFE").Range("G" & lngSourceRow), 2) = "45" _
                Or Left(Worksheets("ANAGRAFE").Range("G" & lngSourceRow), 2) = "65" Then
            ' Next free row
                    lngTargetRow = lngTargetRow + 1
         ' Copy cells
                Worksheets("ANAGRAFE").Range("G" & lngSourceRow).Copy _
                Worksheets("SPORTELLI").Range("A" & lngTargetRow)
            End If
       End If
Next lngSourceRow

If I am understanding correctly what you are looking for, you can modify this:
If Worksheets("SPORTELLI").Range("A1:A" & lngTargetRow).Find _
(Worksheets("ANAGRAFE").Range("G" & lngSourceRow)) Is Nothing Then

to this:
If Worksheets("SPORTELLI").Range("A1:A" & lngTargetRow).Find _
(Worksheets("ANAGRAFE").Range("G" & lngSourceRow)) Is Nothing _
And Left(Worksheets("ANAGRAFE").Range("G" & lngSourceRow), 2) <> "95" Then

If there are many conditions you want to apply then you may want to use a SELECT CASE structure.

HTH

You can't directly reference cells in another worksheet when using a formula for conditional formatting. You could create a formula making one cell (say, $AA$1) on the datasheet equal to the value of the validation cell, then reference $AA$1. Or perhaps (untested) you can reference the validation cell if you name it and refer to it by it's range name.

I saw solutions yesterday on the Word list to a similar problem. Perhaps one of these will work for yours as well:

Suggestion1 was: "The easiest way is to make each 'link' a small VBScript to launch the document locally."

suggestion2 was: "If your client wants this set as a policy, I'd recommend you ask them to
administer this at a workstation level by correctly setting up their File
Type association options.

Depending on your operating system, you can toggle whether or not it is
displayed in a browser by selecting "Tools | Folder Options... | File
Types". Locate the "DOC" extension file type and click the Advanced button,
then uncheck the "Browse in same window" option.

This setting can more simply be distributed as a registry change by setting
the following:
[HKEY_CLASSES_ROOT\Word.Document.8]
@="Microsoft Word Document"
"BrowserFlags"=dword:00000008

As I mentioned before, this is operating system (and Word version)
dependent. I think for Windows NT, for example, the registry change is
slightly different. If a different version of Word is installed you may have
to modify the reference to the Word.Document class (ie. "Word.Document.x"
rather than "Word.Document.8" as I have in my example."

Check out Custom Views in help. You could use these to display/print a customized report for each division.

Regards