Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code macro with condition?
If specific file is currently opened, then not processing following coding,
else process them. Does anyone have any suggestions on how to code it in macro? Thanks in advance for any suggestions Eric Sub RunOrNot 'Is specific file opened? if not, then process following coding Coding 'End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code macro with condition?
fName = "SomeFile.xls" '<<< The file you want to check
For Each wb In Application.Workbooks If wb.Name = fName Then Exit Sub Else "Run the code End If Next "Eric" wrote in message ... If specific file is currently opened, then not processing following coding, else process them. Does anyone have any suggestions on how to code it in macro? Thanks in advance for any suggestions Eric Sub RunOrNot 'Is specific file opened? if not, then process following coding Coding 'End If End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code macro with condition?
Use a function as below...
Sub Macro() If IsWorkbookOpen("Book1") = False Then 'Place your code below End If End Sub Function IsWorkbookOpen(strWorkbook) As Boolean Dim wb As Workbook On Error Resume Next Set wb = Workbooks(strWorkbook) If Not wb Is Nothing Then IsWorkbookOpen = True End Function -- Jacob (MVP - Excel) "Eric" wrote: If specific file is currently opened, then not processing following coding, else process them. Does anyone have any suggestions on how to code it in macro? Thanks in advance for any suggestions Eric Sub RunOrNot 'Is specific file opened? if not, then process following coding Coding 'End If End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code macro with condition?
It does not work, the opened file is still being opened as read only.
Does anyone have any suggestions? Thanks in advance for any suggestions Eric Dim WkbkName As String WkbkName = "D:\file1.xls" If IsWorkbookOpen(WkbkName) = False Then 'Place your code below End IF "Jacob Skaria" wrote: Use a function as below... Sub Macro() If IsWorkbookOpen("Book1") = False Then 'Place your code below End If End Sub Function IsWorkbookOpen(strWorkbook) As Boolean Dim wb As Workbook On Error Resume Next Set wb = Workbooks(strWorkbook) If Not wb Is Nothing Then IsWorkbookOpen = True End Function -- Jacob (MVP - Excel) "Eric" wrote: If specific file is currently opened, then not processing following coding, else process them. Does anyone have any suggestions on how to code it in macro? Thanks in advance for any suggestions Eric Sub RunOrNot 'Is specific file opened? if not, then process following coding Coding 'End If End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code macro with condition?
Is there any code to check whether the file is opened or not?
Thanks in advance for any suggestions Eric "JLGWhiz" wrote: fName = "SomeFile.xls" '<<< The file you want to check For Each wb In Application.Workbooks If wb.Name = fName Then Exit Sub Else "Run the code End If Next "Eric" wrote in message ... If specific file is currently opened, then not processing following coding, else process them. Does anyone have any suggestions on how to code it in macro? Thanks in advance for any suggestions Eric Sub RunOrNot 'Is specific file opened? if not, then process following coding Coding 'End If End Sub . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code condition | Excel Programming | |||
code to check condition for each row | Excel Discussion (Misc queries) | |||
How to code macro with if condition? | Excel Programming | |||
Condition Formatting in code. How? | Excel Programming | |||
Condition Formatting in code. How? | Excel Programming |