if - then actions

  • Thread starter Thread starter N+
  • Start date Start date
N

N+

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
 
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
 
If myCondition = True Then
ActiveSheet.Range("B1") = "0"
ChDrive "A"
Call myFile.exe
End If

Use string zero so it will display.
 
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
 
Back
Top