Hi guys,
thank you very much for your help.
You solved my problem and thank you for different posibilities from
which I can learn.
Best regards,
seba
On 10 nov., 18:21, Sam Mathai Chacko samde...@gmail.com wrote:
Two options try
If Not IsEmpty(Range(A1)) Then
try this...
If range(A1).value = Then
Exit Sub
Else
Range(B5).Value = 8
End If
End Sub
regards,
Mrinal
On Thu, Nov 10, 2011 at 9:18 PM, Seba sebastjan.hri...@gmail.com wrote:
Hi,
I am testing this fairly simple code for some other purposes but I
always get the value 8 regardless of value
you forgot RANGE but to make sure try
If len(application.trim(range(A1)))1 Then
Don Guillett
SalesAid Software
dguille...@gmail.com
-Original Message-
From: Seba
Sent: Thursday, November 10, 2011 9:48 AM
To: MS EXCEL AND VBA MACROS
Subject: $$Excel-Macros$$ excel vba If
Hi Seba, You are missing a small thing.. I have made the required correction in
your code. Sub testPogoja()
If IsEmpty(Range(A1)) Then
Exit Sub
Else
Range(B5).Value = 8
End If
End Sub
Best Regards,Kaushal Kumar
Date: Thu, 10 Nov 2011 07:48:10 -0800
Subject: $$Excel-Macros$$ excel vba If
Two options try
If Not IsEmpty(Range(A1)) Then
Range(B5).Value = 8
Else
Exit Sub
End If
*OR*
If Len(Trim(Range(A1))) Then
Range(B5).Value = 8
Else
Exit Sub
End If
Regards
Sam Mathai Chacko
On Thu, Nov 10, 2011 at 10:13 PM,