Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > run time error '424' when I run this code
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 63
Default run time error '424' when I run this code
Hello:
I get run time error '424' when I run this code. Error occurs at this line
If (Error.Type(A3) = 3) Then

Could this error be fixed?

Is there any way the case of a character in a cell be checked. I want the
code use different formulas depending on the case of the character.

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If (Error.Type(A3) = 3) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


Thanks

Ravi

Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 301
Default run time error '424' when I run this code
Maybe
if Error.Type(Range("A3")) = 3 Then
....
Excel doesn't know what you mean by simply A3 -- it assumes it's a variable,
and it is empty.

"ravi" wrote in message
...
Hello:
I get run time error '424' when I run this code. Error occurs at this
line
If (Error.Type(A3) = 3) Then

Could this error be fixed?

Is there any way the case of a character in a cell be checked. I want the
code use different formulas depending on the case of the character.

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If (Error.Type(A3) = 3) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


Thanks

Ravi



Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 63
Default run time error '424' when I run this code
Gives me the same error.

Ravi

"Bob Umlas" wrote:

Maybe
if Error.Type(Range("A3")) = 3 Then
....
Excel doesn't know what you mean by simply A3 -- it assumes it's a variable,
and it is empty.

"ravi" wrote in message
...
Hello:
I get run time error '424' when I run this code. Error occurs at this
line
If (Error.Type(A3) = 3) Then

Could this error be fixed?

Is there any way the case of a character in a cell be checked. I want the
code use different formulas depending on the case of the character.

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If (Error.Type(A3) = 3) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


Thanks

Ravi




Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 27,285
Default run time error '424' when I run this code
Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If Range("A3").Value = CVErr(xlErrValue) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


--
Regards,
Tom Ogilvy

"ravi" wrote in message
...
Hello:
I get run time error '424' when I run this code. Error occurs at this
line
If (Error.Type(A3) = 3) Then

Could this error be fixed?

Is there any way the case of a character in a cell be checked. I want the
code use different formulas depending on the case of the character.

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If (Error.Type(A3) = 3) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


Thanks

Ravi



Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 63
Default run time error '424' when I run this code
Hello :

The code worked when Range("A1")="b" but when I change it to Range("A1")
="B",It give me a run time error ' 13' .Error occurs on the line

If Range("A3").Value = CVErr(xlErrValue) Then

Thanks.

Ravi




"Tom Ogilvy" wrote:

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If Range("A3").Value = CVErr(xlErrValue) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


--
Regards,
Tom Ogilvy

"ravi" wrote in message
...
Hello:
I get run time error '424' when I run this code. Error occurs at this
line
If (Error.Type(A3) = 3) Then

Could this error be fixed?

Is there any way the case of a character in a cell be checked. I want the
code use different formulas depending on the case of the character.

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If (Error.Type(A3) = 3) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


Thanks

Ravi




Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 27,285
Default run time error '424' when I run this code
Worked fine for me with both b and B in A3. xl2003. Are you using xl97.
In any event, try this revision.

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"), _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
if iserror(Range("A3").Value) then
If Range("A3").Value = CVErr(xlErrValue) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
end if
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


--
Regards,
Tom Ogilvy

"ravi" wrote in message
...
Hello :

The code worked when Range("A1")="b" but when I change it to Range("A1")
="B",It give me a run time error ' 13' .Error occurs on the line

If Range("A3").Value = CVErr(xlErrValue) Then

Thanks.

Ravi




"Tom Ogilvy" wrote:

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If Range("A3").Value = CVErr(xlErrValue) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


--
Regards,
Tom Ogilvy

"ravi" wrote in message
...
Hello:
I get run time error '424' when I run this code. Error occurs at this
line
If (Error.Type(A3) = 3) Then

Could this error be fixed?

Is there any way the case of a character in a cell be checked. I want
the
code use different formulas depending on the case of the character.

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If (Error.Type(A3) = 3) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


Thanks

Ravi






Reply With QuoteReply With Quote
  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 63
Default run time error '424' when I run this code
This code works great .Thank you. I am using Excel 2003 and Excel 2000.The
initial code did not work on either of them.

Ravi


"Tom Ogilvy" wrote:

Worked fine for me with both b and B in A3. xl2003. Are you using xl97.
In any event, try this revision.

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"), _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
if iserror(Range("A3").Value) then
If Range("A3").Value = CVErr(xlErrValue) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
end if
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


--
Regards,
Tom Ogilvy

"ravi" wrote in message
...
Hello :

The code worked when Range("A1")="b" but when I change it to Range("A1")
="B",It give me a run time error ' 13' .Error occurs on the line

If Range("A3").Value = CVErr(xlErrValue) Then

Thanks.

Ravi




"Tom Ogilvy" wrote:

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If Range("A3").Value = CVErr(xlErrValue) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


--
Regards,
Tom Ogilvy

"ravi" wrote in message
...
Hello:
I get run time error '424' when I run this code. Error occurs at this
line
If (Error.Type(A3) = 3) Then

Could this error be fixed?

Is there any way the case of a character in a cell be checked. I want
the
code use different formulas depending on the case of the character.

Sub Macro1()

Range("S9") = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Range("S10") = "abcdefghijklmnopqrstuvwxyz"
Range("A1") = "b"
Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(1, 1))
If Range("C1").Value = "" Then

Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
If (Error.Type(A3) = 3) Then
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S10,1)+96) "
End If
Range("A4") = "20"
Else
Range("A3").Formula = "=DEC2HEX(FINDB(B1,S9,1)+64) "
Range("A4").Formula = "=DEC2HEX(C1)+30"
End If
End Sub


Thanks

Ravi







Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Hybrid Mode Hybrid Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Runtime error '424': Object Required loren.pottinger Excel Discussion (Misc queries) 1 August 28th 06 09:56 PM
Run-time error '424' in VBA event handler on XL shutdown Mike Jones Excel Programming 3 May 6th 05 07:26 PM
Code Error - Run Time Error 5 (Disable Cut, Copy & Paste) Tim[_36_] Excel Programming 4 April 23rd 04 02:53 AM
Run-time error '424': Object required Phil Bewig Excel Programming 3 February 1st 04 08:38 PM
Syntax Error Runtime Error '424' Object Required sjenks183 Excel Programming 1 January 23rd 04 09:25 AM


All times are GMT +1. The time now is 12:34 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement