ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   VBA Quick Question (https://www.excelbanter.com/excel-programming/425603-vba-quick-question.html)

Gerard Sanchez

VBA Quick Question
 
Hi,

I was wondering instead of

If Range("F65") 0 Then Range so and so .printount

I was wondering if there's any way I can get this line to apply strictly to
numeric results, because currently code sees the text results also as
greater than zero ( 0 ) ??



Jacob Skaria

VBA Quick Question
 
Dear Gerard

You can try this. Post back incase of any queries..

If Cint("0" & Range("F65")) 0

If this post helps click Yes
---------------
Jacob Skaria

filo666

VBA Quick Question
 

If Isnumeric(Range("F65"))=true and Range("F65") 0 then blablablablalba

"Gerard Sanchez" wrote:

Hi,

I was wondering instead of

If Range("F65") 0 Then Range so and so .printount

I was wondering if there's any way I can get this line to apply strictly to
numeric results, because currently code sees the text results also as
greater than zero ( 0 ) ??




Gerard Sanchez

VBA Quick Question
 
Hi Jpcob,

I got a syntax error??


"Jacob Skaria" wrote in message
...
Dear Gerard

You can try this. Post back incase of any queries..

If Cint("0" & Range("F65")) 0

If this post helps click Yes
---------------
Jacob Skaria




Gerard Sanchez

VBA Quick Question
 
This is the code I am working with

If Range ("F65") 0 And _
Range("G59") < "SELECT CUSTOMER" And _
Range("F64") < "SELECT USER" And _
WorksheetFunction.CountA(Range("C61"), _
Range("C62"), Range("F61"), Range("F62"), _
Range("I61"), Range("I62")) = 1 Then

Range("A18:I69").PrintOut Copies:=1

Else

The Problem is that when F65 = "NOT BALANCED !" I don't want it to print.
Currently it does.

When I replaced first line to this

If CInt("0" & Range("F65")) 0 And _
Range("G59") < "SELECT CUSTOMER" And _
Range("F64") < "SELECT USER" And _
WorksheetFunction.CountA(Range("C61"), _
Range("C62"), Range("F61"), Range("F62"), _
Range("I61"), Range("I62")) = 1 Then

Range("A18:I69").PrintOut Copies:=1

I got a Type Mismatched Error. The whole code is highlighted


"Jacob Skaria" wrote in message
...
Dear Gerard

You can try this. Post back incase of any queries..

If Cint("0" & Range("F65")) 0

If this post helps click Yes
---------------
Jacob Skaria




Gerard Sanchez

VBA Quick Question
 
This did the trick!

Thanks :)


"filo666" wrote in message
...

If Isnumeric(Range("F65"))=true and Range("F65") 0 then blablablablalba

"Gerard Sanchez" wrote:

Hi,

I was wondering instead of

If Range("F65") 0 Then Range so and so .printount

I was wondering if there's any way I can get this line to apply strictly
to
numeric results, because currently code sees the text results also as
greater than zero ( 0 ) ??






Jacob Skaria

VBA Quick Question
 
Sorry Gerard. I didnt notice the text part..As the other post says you will
need to use IsNumeric function....Cheers

"Gerard Sanchez" wrote:

This is the code I am working with

If Range ("F65") 0 And _
Range("G59") < "SELECT CUSTOMER" And _
Range("F64") < "SELECT USER" And _
WorksheetFunction.CountA(Range("C61"), _
Range("C62"), Range("F61"), Range("F62"), _
Range("I61"), Range("I62")) = 1 Then

Range("A18:I69").PrintOut Copies:=1

Else

The Problem is that when F65 = "NOT BALANCED !" I don't want it to print.
Currently it does.

When I replaced first line to this

If CInt("0" & Range("F65")) 0 And _
Range("G59") < "SELECT CUSTOMER" And _
Range("F64") < "SELECT USER" And _
WorksheetFunction.CountA(Range("C61"), _
Range("C62"), Range("F61"), Range("F62"), _
Range("I61"), Range("I62")) = 1 Then

Range("A18:I69").PrintOut Copies:=1

I got a Type Mismatched Error. The whole code is highlighted


"Jacob Skaria" wrote in message
...
Dear Gerard

You can try this. Post back incase of any queries..

If Cint("0" & Range("F65")) 0

If this post helps click Yes
---------------
Jacob Skaria





Gerard Sanchez

VBA Quick Question
 

That's okay.

Cheers!


"Jacob Skaria" wrote in message
...
Sorry Gerard. I didnt notice the text part..As the other post says you
will
need to use IsNumeric function....Cheers

"Gerard Sanchez" wrote:

This is the code I am working with

If Range ("F65") 0 And _
Range("G59") < "SELECT CUSTOMER" And _
Range("F64") < "SELECT USER" And _
WorksheetFunction.CountA(Range("C61"), _
Range("C62"), Range("F61"), Range("F62"), _
Range("I61"), Range("I62")) = 1 Then

Range("A18:I69").PrintOut Copies:=1

Else

The Problem is that when F65 = "NOT BALANCED !" I don't want it to
print.
Currently it does.

When I replaced first line to this

If CInt("0" & Range("F65")) 0 And _
Range("G59") < "SELECT CUSTOMER" And _
Range("F64") < "SELECT USER" And _
WorksheetFunction.CountA(Range("C61"), _
Range("C62"), Range("F61"), Range("F62"), _
Range("I61"), Range("I62")) = 1 Then

Range("A18:I69").PrintOut Copies:=1

I got a Type Mismatched Error. The whole code is highlighted


"Jacob Skaria" wrote in message
...
Dear Gerard

You can try this. Post back incase of any queries..

If Cint("0" & Range("F65")) 0

If this post helps click Yes
---------------
Jacob Skaria







Gord Dibben

VBA Quick Question
 
Gerard

Before using isnumeric see this thread.

You could be surprised.

http://tinyurl.com/9to4ka


Gord Dibben MS Excel MVP

On Mon, 16 Mar 2009 00:07:09 -0700, "Gerard Sanchez"
wrote:

This did the trick!

Thanks :)


"filo666" wrote in message
...

If Isnumeric(Range("F65"))=true and Range("F65") 0 then blablablablalba

"Gerard Sanchez" wrote:

Hi,

I was wondering instead of

If Range("F65") 0 Then Range so and so .printount

I was wondering if there's any way I can get this line to apply strictly
to
numeric results, because currently code sees the text results also as
greater than zero ( 0 ) ??







All times are GMT +1. The time now is 12:03 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com