hi all, i need to make this work..
if condition "true",
then launch an exe file on disk and write 0 (zero) in a B1 cell..
ty if u can help me

hmm forgot the notify of replies !

"N+" wrote:

hi all, i need to make this work..
if condition "true",
then launch an exe file on disk and write 0 (zero) in a B1 cell..
ty if u can help me

If myCondition = True Then
ActiveSheet.Range("B1") = "0"
ChDrive "A"
Call myFile.exe
End If

Use string zero so it will display.

"N+" wrote:

hmm forgot the notify of replies !

"N+" wrote:

hi all, i need to make this work..
if condition "true",
then launch an exe file on disk and write 0 (zero) in a B1 cell..
ty if u can help me

Despite having not too much to go on, this may get you going in the right
direction.

Sub ordinate()
If 1 = 1 Then 'set you own condition here
Shell "Notepad.exe"
Range("B1").Value = 0
Else
'and now for something diferent
End If

End Sub


Mike

"N+" wrote:

hi all, i need to make this work..
if condition "true",
then launch an exe file on disk and write 0 (zero) in a B1 cell..
ty if u can help me

Sub demo()
Dim WhatIsTruth As Boolean
WhatIsTruth = True
If WhatIsTruth Then
x = Shell("cmd.exe /c C:\Userguide.exe", 1)
Range("B1").Value = 0
End If
End Sub
--
Gary''s Student - gsnu200768


"N+" wrote:

hi all, i need to make this work..
if condition "true",
then launch an exe file on disk and write 0 (zero) in a B1 cell..
ty if u can help me

i can't start it now , thanks for help, i will try both as soon as possible
the condition is a generic ..if A1 = TRUE

so it should sound like this..

Sub demo()
Dim A1 As Boolean
A1 = True
If A1 Then..

...end sub


"Gary''s Student" wrote:

Sub demo()
Dim WhatIsTruth As Boolean
WhatIsTruth = True
If WhatIsTruth Then
x = Shell("cmd.exe /c C:\Userguide.exe", 1)
Range("B1").Value = 0
End If
End Sub
--
Gary''s Student - gsnu200768


"N+" wrote:

hi all, i need to make this work..
if condition "true",
then launch an exe file on disk and write 0 (zero) in a B1 cell..
ty if u can help me