Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]


Groups > comp.lang.basic.visual.misc > #1273

Re: Run-time error '1004': Application-defined or object-defined error

From GS <gs@somewhere.net>
Newsgroups comp.lang.basic.visual.misc
Subject Re: Run-time error '1004': Application-defined or object-defined error
Date 2012-07-10 11:42 -0400
Organization A noiseless patient Spider
Message-ID <jthiho$2u2$1@dont-email.me> (permalink)
References <5c454016-0768-4245-a2be-ddab885882cb@googlegroups.com> <jtfl1v$3eu$1@dont-email.me> <3f392bc0-ccdf-46a7-a9f6-b1bc53cac8ff@googlegroups.com>

Show all headers | View raw


Actually, you're asking in the wrong forum. This is a classic VB forum, 
NOT an Excel programming forum...

  (ie: microsoft.public.excel.programming)

..where you should provide a full explanation of what you're trying to 
accomplish.

<Otherwise>
I don't know what you mean by "when I sent it", because that code fires 
as an event that occurs whenever the user makes changes (ie: edits) to 
the cells on the worksheet.

I don't understand the syntax you're using here as it's NOT proper VBA. 
For example...

  &#39;MsgBox timeStamp.Address

..what is "&#39;" in the above line of code? I doubt this compiled as 
typed and so surely would throw an error when executed. I presume you 
are not using 'Option Explicit' at the top of your code windows. It 
also looks like you did a copy/paste of this code from a webpage.

Try this rewrite...

Private Sub Worksheet_Change(ByVal Target As Range)

  'Bail out if not the correct column (edit to suit)
  If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub

  'MsgBox Target.Address

  With Target.Offset(0, -2) '//store timestamp 2 columns to the left
    If .Value = "" Then MsgBox "Nothing in there": .Value = Now
    'MsgBox .Value
  End With

End Sub

-- 
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
    comp.lang.basic.visual.misc
    microsoft.public.vb.general.discussion

Back to comp.lang.basic.visual.misc | Previous | NextPrevious in thread | Next in thread | Find similar


Thread

Run-time error '1004': Application-defined or object-defined error slimeph@gmail.com - 2012-07-09 11:27 -0700
  Re: Run-time error '1004': Application-defined or object-defined error GS <gs@somewhere.net> - 2012-07-09 18:13 -0400
    Re: Run-time error '1004': Application-defined or object-defined error slimeph@gmail.com - 2012-07-10 05:36 -0700
      Re: Run-time error '1004': Application-defined or object-defined error GS <gs@somewhere.net> - 2012-07-10 11:42 -0400
        Re: Run-time error '1004': Application-defined or object-defined error "Auric__" <not.my.real@email.address> - 2012-07-10 17:03 +0000
          Re: Run-time error '1004': Application-defined or object-defined error GS <gs@somewhere.net> - 2012-07-10 13:27 -0400
            Re: Run-time error '1004': Application-defined or object-defined error "Auric__" <not.my.real@email.address> - 2012-07-10 18:26 +0000
              Re: Run-time error '1004': Application-defined or object-defined error GS <gs@somewhere.net> - 2012-07-10 16:28 -0400
                Re: Run-time error '1004': Application-defined or object-defined error "Auric__" <not.my.real@email.address> - 2012-07-10 23:10 +0000
                Re: Run-time error '1004': Application-defined or object-defined error GS <gs@somewhere.net> - 2012-07-10 21:21 -0400
              Re: Run-time error '1004': Application-defined or object-defined error slimeph@gmail.com - 2012-07-10 15:26 -0700
                Re: Run-time error '1004': Application-defined or object-defined error "Auric__" <not.my.real@email.address> - 2012-07-10 23:24 +0000

csiph-web