Deleting Blank lines with VBA

Help I have a macro that runs multiple formulas.  However, when the formulas 
are
finished I am left with about 64000 blank lines.  I am unable to insert a 
row on the 
worksheets as I get a Run-Time Error 1004 (Try to locate the last Nonblank 
Cell
using CTRL-END).

Here is a same of some of the formulas  I am running ( the macro is very 
large).

ActiveWorkbook.Names.Add Name:="TrunkFormulaI", RefersToR1C1:="=Trunks!R1C27"
ActiveWorkbook.Names.Add Name:="TrunkFormulaJ", RefersToR1C1:="=Trunks!R1C28"
ActiveWorkbook.Names.Add Name:="TrunkFormulaK", RefersToR1C1:="=Trunks!R1C29"
ActiveWorkbook.Names.Add Name:="TrunkFormulaL", RefersToR1C1:="=Trunks!R1C30"
ActiveWorkbook.Names.Add Name:="TrunkFormulaM", RefersToR1C1:="=Trunks!R1C31"
ActiveWorkbook.Names.Add Name:="TrunkFormulaN", RefersToR1C1:="=Trunks!R1C32"
ActiveWorkbook.Names.Add Name:="TrunkFormulaO", RefersToR1C1:="=Trunks!R1C33"
ActiveWorkbook.Names.Add Name:="TrunkFormulaP", RefersToR1C1:="=Trunks!R1C34"
ActiveWorkbook.Names.Add Name:="TrunkFormulaQ", RefersToR1C1:="=Trunks!R1C35"
ActiveWorkbook.Names.Add Name:="TrunkFormulaR", RefersToR1C1:="=Trunks!R1C36"
ActiveWorkbook.Names.Add Name:="TrunkFormulaS", RefersToR1C1:="=Trunks!R1C37"

'INSERT ANCHOR CELL FORMULA FOR THIS SECTION TO COPY AND PASTE FORMULAS TO 
BOTTOM OF SHEET
    Range("AA1").Select
    ActiveCell.FormulaR1C1 = 
"=IF(RC[-17]>"""",IF(RC11>0,OFFSET(RC[-16],0,0),""""),"""")"
    'Defines a variable called anchor cell
    Application.Goto Reference:="TrunkFormulaI", Scroll:=False
    Selection.Copy
    AnchorCell = ActiveCell.Offset(1, 0).Address
    ActiveCell.Offset(0, -1).Select
    ActiveCell.End(xlDown).Select
    EndCell = ActiveCell.Offset(0, 1).Address
    Range(AnchorCell, EndCell).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Application.Goto Reference:="TrunkFormulaI", Scroll:=False
    Range("G:G").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    

'RUN-TIME ERROR 1004 Appears HERE

    Range("A1").EntireRow.Insert


Any help would be appreciated.

0
VexedFist (5)
4/5/2007 12:24:00 PM
excel 39879 articles. 2 followers. Follow

4 Replies
858 Views

Similar Articles

[PageSpeed] 13

Can you pick out a column that is always used when that row is used?  If you can
then maybe you can just fill the formulas through that last row.

Dim LastRow as long
with activesheet
   lastrow = .cells(.rows.count,"A").end(xlup).row 'I used column A
   with .range("AA1:aa" & lastrow)
      .formular1c1 _
         "=IF(RC[-17]>"""",IF(RC11>0,OFFSET(RC[-16],0,0),""""),"""")"
      .value = .value
   end with
end with




VexedFist wrote:
> 
> Help I have a macro that runs multiple formulas.  However, when the formulas
> are
> finished I am left with about 64000 blank lines.  I am unable to insert a
> row on the
> worksheets as I get a Run-Time Error 1004 (Try to locate the last Nonblank
> Cell
> using CTRL-END).
> 
> Here is a same of some of the formulas  I am running ( the macro is very
> large).
> 
> ActiveWorkbook.Names.Add Name:="TrunkFormulaI", RefersToR1C1:="=Trunks!R1C27"
> ActiveWorkbook.Names.Add Name:="TrunkFormulaJ", RefersToR1C1:="=Trunks!R1C28"
> ActiveWorkbook.Names.Add Name:="TrunkFormulaK", RefersToR1C1:="=Trunks!R1C29"
> ActiveWorkbook.Names.Add Name:="TrunkFormulaL", RefersToR1C1:="=Trunks!R1C30"
> ActiveWorkbook.Names.Add Name:="TrunkFormulaM", RefersToR1C1:="=Trunks!R1C31"
> ActiveWorkbook.Names.Add Name:="TrunkFormulaN", RefersToR1C1:="=Trunks!R1C32"
> ActiveWorkbook.Names.Add Name:="TrunkFormulaO", RefersToR1C1:="=Trunks!R1C33"
> ActiveWorkbook.Names.Add Name:="TrunkFormulaP", RefersToR1C1:="=Trunks!R1C34"
> ActiveWorkbook.Names.Add Name:="TrunkFormulaQ", RefersToR1C1:="=Trunks!R1C35"
> ActiveWorkbook.Names.Add Name:="TrunkFormulaR", RefersToR1C1:="=Trunks!R1C36"
> ActiveWorkbook.Names.Add Name:="TrunkFormulaS", RefersToR1C1:="=Trunks!R1C37"
> 
> 'INSERT ANCHOR CELL FORMULA FOR THIS SECTION TO COPY AND PASTE FORMULAS TO
> BOTTOM OF SHEET
>     Range("AA1").Select
>     ActiveCell.FormulaR1C1 =
> "=IF(RC[-17]>"""",IF(RC11>0,OFFSET(RC[-16],0,0),""""),"""")"
>     'Defines a variable called anchor cell
>     Application.Goto Reference:="TrunkFormulaI", Scroll:=False
>     Selection.Copy
>     AnchorCell = ActiveCell.Offset(1, 0).Address
>     ActiveCell.Offset(0, -1).Select
>     ActiveCell.End(xlDown).Select
>     EndCell = ActiveCell.Offset(0, 1).Address
>     Range(AnchorCell, EndCell).Select
>     ActiveSheet.Paste
>     Application.CutCopyMode = False
>     Application.Goto Reference:="TrunkFormulaI", Scroll:=False
>     Range("G:G").Select
>     Selection.Copy
>     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
>         False, Transpose:=False
>     Application.CutCopyMode = False
> 
> 
> 'RUN-TIME ERROR 1004 Appears HERE
> 
>     Range("A1").EntireRow.Insert
> 
> Any help would be appreciated.

-- 

Dave Peterson
0
petersod (12004)
4/5/2007 12:35:12 PM
Dave,

When I run this I get:

Run-Time Error 438

Object doens't support this Property or Method??



"Dave Peterson" wrote:

> Can you pick out a column that is always used when that row is used?  If you can
> then maybe you can just fill the formulas through that last row.
> 
> Dim LastRow as long
> with activesheet
>    lastrow = .cells(.rows.count,"A").end(xlup).row 'I used column A
>    with .range("AA1:aa" & lastrow)
>       .formular1c1 _
>          "=IF(RC[-17]>"""",IF(RC11>0,OFFSET(RC[-16],0,0),""""),"""")"
>       .value = .value
>    end with
> end with
> 
> 
> 
> 
> VexedFist wrote:
> > 
> > Help I have a macro that runs multiple formulas.  However, when the formulas
> > are
> > finished I am left with about 64000 blank lines.  I am unable to insert a
> > row on the
> > worksheets as I get a Run-Time Error 1004 (Try to locate the last Nonblank
> > Cell
> > using CTRL-END).
> > 
> > Here is a same of some of the formulas  I am running ( the macro is very
> > large).
> > 
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaI", RefersToR1C1:="=Trunks!R1C27"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaJ", RefersToR1C1:="=Trunks!R1C28"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaK", RefersToR1C1:="=Trunks!R1C29"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaL", RefersToR1C1:="=Trunks!R1C30"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaM", RefersToR1C1:="=Trunks!R1C31"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaN", RefersToR1C1:="=Trunks!R1C32"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaO", RefersToR1C1:="=Trunks!R1C33"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaP", RefersToR1C1:="=Trunks!R1C34"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaQ", RefersToR1C1:="=Trunks!R1C35"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaR", RefersToR1C1:="=Trunks!R1C36"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaS", RefersToR1C1:="=Trunks!R1C37"
> > 
> > 'INSERT ANCHOR CELL FORMULA FOR THIS SECTION TO COPY AND PASTE FORMULAS TO
> > BOTTOM OF SHEET
> >     Range("AA1").Select
> >     ActiveCell.FormulaR1C1 =
> > "=IF(RC[-17]>"""",IF(RC11>0,OFFSET(RC[-16],0,0),""""),"""")"
> >     'Defines a variable called anchor cell
> >     Application.Goto Reference:="TrunkFormulaI", Scroll:=False
> >     Selection.Copy
> >     AnchorCell = ActiveCell.Offset(1, 0).Address
> >     ActiveCell.Offset(0, -1).Select
> >     ActiveCell.End(xlDown).Select
> >     EndCell = ActiveCell.Offset(0, 1).Address
> >     Range(AnchorCell, EndCell).Select
> >     ActiveSheet.Paste
> >     Application.CutCopyMode = False
> >     Application.Goto Reference:="TrunkFormulaI", Scroll:=False
> >     Range("G:G").Select
> >     Selection.Copy
> >     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
> >         False, Transpose:=False
> >     Application.CutCopyMode = False
> > 
> > 
> > 'RUN-TIME ERROR 1004 Appears HERE
> > 
> >     Range("A1").EntireRow.Insert
> > 
> > Any help would be appreciated.
> 
> -- 
> 
> Dave Peterson
> 
0
VexedFist (5)
4/5/2007 3:06:07 PM
Dave,

When I run this i get:

Run-Time Error 438

Object doesn't support this Property or Method!!



"Dave Peterson" wrote:

> Can you pick out a column that is always used when that row is used?  If you can
> then maybe you can just fill the formulas through that last row.
> 
> Dim LastRow as long
> with activesheet
>    lastrow = .cells(.rows.count,"A").end(xlup).row 'I used column A
>    with .range("AA1:aa" & lastrow)
>       .formular1c1 _
>          "=IF(RC[-17]>"""",IF(RC11>0,OFFSET(RC[-16],0,0),""""),"""")"
>       .value = .value
>    end with
> end with
> 
> 
> 
> 
> VexedFist wrote:
> > 
> > Help I have a macro that runs multiple formulas.  However, when the formulas
> > are
> > finished I am left with about 64000 blank lines.  I am unable to insert a
> > row on the
> > worksheets as I get a Run-Time Error 1004 (Try to locate the last Nonblank
> > Cell
> > using CTRL-END).
> > 
> > Here is a same of some of the formulas  I am running ( the macro is very
> > large).
> > 
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaI", RefersToR1C1:="=Trunks!R1C27"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaJ", RefersToR1C1:="=Trunks!R1C28"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaK", RefersToR1C1:="=Trunks!R1C29"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaL", RefersToR1C1:="=Trunks!R1C30"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaM", RefersToR1C1:="=Trunks!R1C31"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaN", RefersToR1C1:="=Trunks!R1C32"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaO", RefersToR1C1:="=Trunks!R1C33"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaP", RefersToR1C1:="=Trunks!R1C34"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaQ", RefersToR1C1:="=Trunks!R1C35"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaR", RefersToR1C1:="=Trunks!R1C36"
> > ActiveWorkbook.Names.Add Name:="TrunkFormulaS", RefersToR1C1:="=Trunks!R1C37"
> > 
> > 'INSERT ANCHOR CELL FORMULA FOR THIS SECTION TO COPY AND PASTE FORMULAS TO
> > BOTTOM OF SHEET
> >     Range("AA1").Select
> >     ActiveCell.FormulaR1C1 =
> > "=IF(RC[-17]>"""",IF(RC11>0,OFFSET(RC[-16],0,0),""""),"""")"
> >     'Defines a variable called anchor cell
> >     Application.Goto Reference:="TrunkFormulaI", Scroll:=False
> >     Selection.Copy
> >     AnchorCell = ActiveCell.Offset(1, 0).Address
> >     ActiveCell.Offset(0, -1).Select
> >     ActiveCell.End(xlDown).Select
> >     EndCell = ActiveCell.Offset(0, 1).Address
> >     Range(AnchorCell, EndCell).Select
> >     ActiveSheet.Paste
> >     Application.CutCopyMode = False
> >     Application.Goto Reference:="TrunkFormulaI", Scroll:=False
> >     Range("G:G").Select
> >     Selection.Copy
> >     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
> >         False, Transpose:=False
> >     Application.CutCopyMode = False
> > 
> > 
> > 'RUN-TIME ERROR 1004 Appears HERE
> > 
> >     Range("A1").EntireRow.Insert
> > 
> > Any help would be appreciated.
> 
> -- 
> 
> Dave Peterson
> 
0
VexedFist (5)
4/5/2007 3:08:03 PM
There was a typo.  I dropped an equal sign:

      .formular1c1 _
        = "=IF(RC[-17]>"""",IF(RC11>0,OFFSET(RC[-16],0,0),""""),"""")"



VexedFist wrote:
> 
> Dave,
> 
> When I run this i get:
> 
> Run-Time Error 438
> 
> Object doesn't support this Property or Method!!
> 
> "Dave Peterson" wrote:
> 
> > Can you pick out a column that is always used when that row is used?  If you can
> > then maybe you can just fill the formulas through that last row.
> >
> > Dim LastRow as long
> > with activesheet
> >    lastrow = .cells(.rows.count,"A").end(xlup).row 'I used column A
> >    with .range("AA1:aa" & lastrow)
> >       .formular1c1 _
> >          "=IF(RC[-17]>"""",IF(RC11>0,OFFSET(RC[-16],0,0),""""),"""")"
> >       .value = .value
> >    end with
> > end with
> >
> >
> >
> >
> > VexedFist wrote:
> > >
> > > Help I have a macro that runs multiple formulas.  However, when the formulas
> > > are
> > > finished I am left with about 64000 blank lines.  I am unable to insert a
> > > row on the
> > > worksheets as I get a Run-Time Error 1004 (Try to locate the last Nonblank
> > > Cell
> > > using CTRL-END).
> > >
> > > Here is a same of some of the formulas  I am running ( the macro is very
> > > large).
> > >
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaI", RefersToR1C1:="=Trunks!R1C27"
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaJ", RefersToR1C1:="=Trunks!R1C28"
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaK", RefersToR1C1:="=Trunks!R1C29"
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaL", RefersToR1C1:="=Trunks!R1C30"
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaM", RefersToR1C1:="=Trunks!R1C31"
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaN", RefersToR1C1:="=Trunks!R1C32"
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaO", RefersToR1C1:="=Trunks!R1C33"
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaP", RefersToR1C1:="=Trunks!R1C34"
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaQ", RefersToR1C1:="=Trunks!R1C35"
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaR", RefersToR1C1:="=Trunks!R1C36"
> > > ActiveWorkbook.Names.Add Name:="TrunkFormulaS", RefersToR1C1:="=Trunks!R1C37"
> > >
> > > 'INSERT ANCHOR CELL FORMULA FOR THIS SECTION TO COPY AND PASTE FORMULAS TO
> > > BOTTOM OF SHEET
> > >     Range("AA1").Select
> > >     ActiveCell.FormulaR1C1 =
> > > "=IF(RC[-17]>"""",IF(RC11>0,OFFSET(RC[-16],0,0),""""),"""")"
> > >     'Defines a variable called anchor cell
> > >     Application.Goto Reference:="TrunkFormulaI", Scroll:=False
> > >     Selection.Copy
> > >     AnchorCell = ActiveCell.Offset(1, 0).Address
> > >     ActiveCell.Offset(0, -1).Select
> > >     ActiveCell.End(xlDown).Select
> > >     EndCell = ActiveCell.Offset(0, 1).Address
> > >     Range(AnchorCell, EndCell).Select
> > >     ActiveSheet.Paste
> > >     Application.CutCopyMode = False
> > >     Application.Goto Reference:="TrunkFormulaI", Scroll:=False
> > >     Range("G:G").Select
> > >     Selection.Copy
> > >     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
> > >         False, Transpose:=False
> > >     Application.CutCopyMode = False
> > >
> > >
> > > 'RUN-TIME ERROR 1004 Appears HERE
> > >
> > >     Range("A1").EntireRow.Insert
> > >
> > > Any help would be appreciated.
> >
> > --
> >
> > Dave Peterson
> >

-- 

Dave Peterson
0
petersod (12004)
4/5/2007 5:49:42 PM
Reply:

Similar Artilces:

How to delete or permantly change logo in personal settings
When I was just learnng how to do publisher I created a logo and Iwant to change it in the permanant settings for the personal information. I cannot delete it or edit it. Also on the other 3 settings for secondary, home etc. it does not alowany logo at all. Anyone know? Locate the following files and delete them: Primary Business - biz1logo.jsp Secondary Business - biz2logo.jsp Other Organization - Orglogo.jsp Home/Family - Perslogo.jsp -- Brian Kvalheim Microsoft Publisher MVP http://www.publishermvps.com This posting is provided "AS IS" with no warranties, and confers no ...

lines in the corners
How do I get rid of lines that appear in the corner of the page when I print? In the print dialogue, Advanced Print Settings, Page settings tab, clear crop marks. -- Mary Sauer MSFT MVP http://office.microsoft.com/ http://msauer.mvps.org/ news://msnews.microsoft.com "ComputerQuestion" <ComputerQuestion@discussions.microsoft.com> wrote in message news:62D4A5FC-678D-4DC7-81CE-529543E164CB@microsoft.com... > How do I get rid of lines that appear in the corner of the page when I print? ...

VBA coding
Hi everyone I am very new to vba coding. Though time to time I record macros. Some I want to edit my macro but I don't the vba codes. It there a place where all the codes/coomanda are stored. thanks Nadeem Hi the easiest way to access your macros to edit them is to choose tools / macro / macros, click on the macro you want to edit and press the EDIT button - you'll be taken directly to the appropriate code. (to get back to the workbook you can either close the code window, using the top X or use ALT & F11 to switch back and forth between the VBE Window & the workbo...

Delete partial string
Hello! I have a column with strin in cells 26-02-2004 09:27 jhfkfhg fhgfjfg 26-02-2004 10:28 ewqteter rerewewtrre I know delete date/hour group with Replace, but I need inverse. Preserv date/hour group and delete only alfanumeric string. Is possible in Excel? Thanks in advance. an Hi one way (if your data is always structured as below) - add a helper column (lets say B) - insert the following formula in B1 (if column A stores your data): =LEFT(A1,FIND(":",A1)+2) copy down - now you can copy this row and insert it again with 'Paste Special - Values' -- Regards Frank K...

deleted document
I have deleted an important document and need to retrieve it. The document deleted was on our server and I don't know how to find it and restore it. Contact your IT staff and ask them to restore it from the last backup. But try to find out what share it was on (and folder and filename). It might mean a quicker response. dcalhoun wrote: > > I have deleted an important document and need to retrieve it. The document > deleted was on our server and I don't know how to find it and restore it. -- Dave Peterson Hope your network administrator does regular backups (like da...

Outlook message bodies Blank
When I open my email in outlook the body is empty. I seem to remember somethig about my AVG doing something. Any Ideas how to fix this? Thanks Disable the email scanning feature in your anti-virus software. (For example, in AVG, uncheck certify under the email scanning settings.) You'll still be protected by its other features and by Outlook's own security, and new messages shouldn't lose their bodies. Messages you've already received, though, can't be repaired. Hal -- Hal Hostetler, CPBE -- hhh@kvoa.com Senior Engineer/MIS -- MS MVP-Print/Imaging -- WA7BGX http://w...

Line-break in a cell without ALT-ENTER?
Is there a way to do this? I would like to make it so when the user hits "ENTER", it doesn't go to the next cell. I want it to just make a line-break in the cell. ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~ View and post usenet messages directly from http://www.ExcelForum.com/ You could use a couple of macros, but before you do that, how would you really hit the enter key? I think I wouldn't really do this, but if had to, I'd remap the enter key from the numeric keyboard only. Then I could still use the QWER...

Getting back a deleted test frame after saving the changes
My son just deleted a text frame with all his work and started a new text frame and then when asked if he wanted to save his work he clicked yes. Is there any way to retrieve that missing text frame when it won't allow you to undo? On Sat, 27 Aug 2005 16:04:01 +0100, Denise wrote (in article <09056FDE-03FC-4988-8AB0-D1EA0896BFC7@microsoft.com>): > My son just deleted a text frame with all his work and started a new text > frame and then when asked if he wanted to save his work he clicked yes. Is > there any way to retrieve that missing text frame when it won't a...

Deleting Blank lines with VBA
Help I have a macro that runs multiple formulas. However, when the formulas are finished I am left with about 64000 blank lines. I am unable to insert a row on the worksheets as I get a Run-Time Error 1004 (Try to locate the last Nonblank Cell using CTRL-END). Here is a same of some of the formulas I am running ( the macro is very large). ActiveWorkbook.Names.Add Name:="TrunkFormulaI", RefersToR1C1:="=Trunks!R1C27" ActiveWorkbook.Names.Add Name:="TrunkFormulaJ", RefersToR1C1:="=Trunks!R1C28" ActiveWorkbook.Names.Add Name:="TrunkFormulaK&qu...

Deleting a excel file
Thanks for reading. I'm on a network at work, no signing in needed on the computer. Is there a way I can make a Excel file or folder and have where others can't delete it? I know how to protect it where the file can't be changed, but sometimes someone will delete it. I know this is the Windows 2000 security question but hope to fine the answer here, I'm lost. Thanks Much Bob Talk to your IT staff. Ask them to give you a share or folder on that network that only you (and a trusted co-worker) have write access to. But make...

Investment Account Summaries are always blank
I am a brand new user to Money 2006. After the very first time I set up my Ameritrade brokerage account, it neatly listed my positions in the account summary (after clicking on the account from the account list). Unfortunately, that was the only time my holdings were displayed in the summary. Now the summary is always blank, and I have to click on Investing Tools --> Portfolio Manager to see the positions. I have no idea what's wrong. I even setup a manual (non-linked) investment account and it does the same thing, it wont display my holdings in the account summary. I have ...

Still recieving e-mail for deleted users
We are receiving e-mails for users that were been deleted from our server years ago. Does anyone know how to block these e-mails. We have a SPAM program that allows you to blacklist but it does not stop the messages from coming through. Create ea distribution list containing no members, but which has all the long-gone users' smtp addresses. This is called a blackhole DL. Exchange will accept the mail but silently drop it - no NDRs, no storage. -- hth, SusanV "RB" <pr@epley-pr.com> wrote in message news:574a01c40071$05a154a0$a501280a@phx.gbl... > We are receiving...

ACCESS 2000 is deleting records
Just yesterday I converted an Access 97 database to Access 2000. Have a large problem I need help with. After converting the DB I "split it" in order to use it as a backend, same way it was in Access97. After converting the database to Access2k we began to have a problem with Access2k deleting records. it deleted a total of 4 out of 62 records. the records are not together ( record #289365 then 289048 then 289128 then 289178 then this morning 289405) these record are auto-numbered incerement of one. They were entered by different people so I know its not just an operator probl...

In-Line Graphics in Pub2002
I have a group of several objects that I want to float with text. The option to do this is grayed out when the objects are grouped, I have to ungroup the objects and float them separately. Is there any way around this? Thx Hi SLS (anonymous@discussions.microsoft.com), in the newsgroups you posted: || I have a group of several objects that I want to float || with text. The option to do this is grayed out when the || objects are grouped, I have to ungroup the objects and || float them separately. Is there any way around this? You could group the objects, Right Click on the group of ob...

How do I add an indicator line to a Gantt chart in excel?
I have created a Gantt chart in Excel. I would like to indicate a specific date - most of the time today's date - by a vertical line showing how many days have passed and how many yet to go for specific tasks. I have attempted to create an 'XY graph' on top of the bar/Gantt chart, but the two do not seem to be compatible. Hi, See my examples of various ways of adding a datum line to a chart. I'm pretty sure one of the techniques should work for you. http://www.andypope.info/charts/averageline.htm Cheers Andy Steve wrote: > I have created a Gantt chart in Excel. I...

A SQL error has occurred. Going off line with Outlook CRM 4.
I have seen this in multiple workstations. Running the diagnostics, does not report any errors, however removing the temprary data under advenced fixes the problem by deleting the content of the off line database. The problem with this fix is that it may take up to 12 hours for some of our overseas employees to do their initial off line. When is SP1 due? ...

VBA -- protecting my sheet
Is there a way to use VBA to automatically lock (protect) my sheet every 2 hours? Only certain employees are allowed to modify it, and they are forgetting to lock it at the end of their shift. So far I have come up with this: Sub ProtectSheet() ActiveSheet.Protect (password) End Sub Can anyone point me towards a source of info on how to do this at 2 hour intervals? Thanks in advance... Josh, Use the OnTime method of the Application object. See www.cpearson.com/excel/ontime.htm for more details. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC...

Can't Delete Rules
I have a user with some rules but the rules can't be deleted. I got two error message and one is "The rules on this machine do not match the rules on your exchange server" and ask "Which rules do you want to keep" Client, Server, Cancel. I can delete Client rules and also Server rules, but they are all back once I restart Outlook. The other error message is "one or more rules could not be uploaded to Exchange server and have been deactivated." Is there any way I can remove all of the rules? Thanks for your comments in advance. Start-> Ru...

Office X 'clean' reinstall: delete all old files?
I'm about to try installing the latest bug-fix collection, sorry. "security update" for Office X, 10.1.6. I'm hoping it might reduce the frequency of Word's charming crashes. Who knows, I might get lucky and it'll even fix the completely messed up 'contact' feature in Word that is grayed out most of the time, but when it decides to work, will only list the 'A's' from my address book. Just useless. Anyway, back to the plot: since my Office X is so bent out of shape, I figure I'll do a 'clean install' from the original disk first, then...

VBA Help in Access 2007
When looking through the Help engine, either local or online, I get blank pages when I look at many detail pages in the Help file. For example, when looking at most all web pages in ADO (Section I: ActiveX Data Objects (ADO), there's one title line and no detail. Is that planned behavior (no data) or is there some setting or site to find information? I'm specifically looking for handling records in a table (read, process, summarize). Thanks Terryomsn =?Utf-8?B?VGVycnk=?= <Terry@discussions.microsoft.com> wrote in news:04199121-0746-4A15-B201-03F13827D29C@microso...

delete dupl from 1 table that match table 2
I have 2 tables joined by an acct # but diff data in the 2 other columns. I want to delete the row of information from table A that have a matching acct # in table b. ie: appl acct # amount (table a) appl acct # amount (table b) b 1234 $1.00 b 1234 $5.00 c 111 $1.00 c 12345 $5.00 c 1001 $2.00 c 1001 $3.00 want to delete rows from table a. for accts #1234 & #1001 DELETE [Table A].[Acct #] ...

Form Opening with Blank Column(s)
I have created a couple applications that are working well on our remote access server, Access 2003. However, when I have people put the application on there standard desktop on the network, one or more columns appear blank when the form is opened in Access 2003. Any ideas why the data retrieval or function would change between our server addition of Access vs client workstations? -- Message posted via http://www.accessmonster.com I have one user in my organization that is experiencing this problem also. The problem started the week of the 25th of February. The user could not give me a ...

space between lines to be one
Re: Outlook 2003 I use Outlook to process my e-mail. How would I make the space between lines to be one (1)? Sometimes the space between lines is two (2), especially between paragraphs. Thank you, Barry Karas "Barry Karas" <barrykaras1234@comcast.net> wrote in message news:EZidnXsnw4464xHbnZ2dnUVZ_rqhnZ2d@comcast.com... > Re: Outlook 2003 > > I use Outlook to process my e-mail. How would I make the space between > lines to be one (1)? > > Sometimes the space between lines is two (2), especially between > paragraphs. > > Thank you, > >...

deleted or filed emails keep reappearing into inbox
Hello, I have a user that when ever he deletes an email or even if he files an email and moves it to a folder, a few days later that email keeps coming back to his inbox. He is using Outlook2007, is connected to Exchange 2007 and he's also a blackberry user on BES 5.0. I have tried the following: - recreating his profile in Outllook , -checked on his blackberry to make sure Mailbox wins on conflicts,- - he has no rules in Outtlook -turn on/off the Cashed mode Any ideas? ...

Excel VBA Controls
Since appling Service Pack 3 for Office XP, exisitng spreadsheets and templates do not display Command Buttons or Check Box controls. The controls are there but are not visible. I didn't have that problem after SP3. As a shot in the dark, you might make sure that "hide all" is not selected for Objects under Tools, Options, View. -- Jim Rech Excel MVP "Iain Black" <anonymous@discussions.microsoft.com> wrote in message news:16d9c01c44873$cd307380$a401280a@phx.gbl... | Since appling Service Pack 3 for Office XP, exisitng | spreadsheets and templates do not d...