|
How to add condition to coding?
Does anyone have any suggestions on how to add condition into coding?
I would like to add the condition, please see [] If wkbk Is Nothing [and myCell.Offset(0, 2).Value is not equal today] Then Thanks in advance for any suggestions Eric ====================================== Original Coding ====================================== If wkbk Is Nothing Then myCell.Offset(0, 1).Value = "Failed to open!" Else wkbk.Close savechanges:=True myCell.Offset(0, 1).Value = "ok" |
How to add condition to coding?
If wkbk Is Nothing And myCell.Offset(0, 2).Value < DateSerial(Year(Now),
Month(Now), Day(Now)) Then HIH U¿ytkownik "Eric" napisa³ w wiadomo¶ci ... Does anyone have any suggestions on how to add condition into coding? I would like to add the condition, please see [] If wkbk Is Nothing [and myCell.Offset(0, 2).Value is not equal today] Then Thanks in advance for any suggestions Eric ====================================== Original Coding ====================================== If wkbk Is Nothing Then myCell.Offset(0, 1).Value = "Failed to open!" Else wkbk.Close savechanges:=True myCell.Offset(0, 1).Value = "ok" |
How to add condition to coding?
Thank you very much for suggestions
I get an error, which is related to missing some variable setting or With's variable. Do you have any suggestions on how to fix it? Thank you very much for any suggestions Eric "Jarek Kujawa" wrote: If wkbk Is Nothing And myCell.Offset(0, 2).Value < DateSerial(Year(Now), Month(Now), Day(Now)) Then HIH U¿ytkownik "Eric" napisa³ w wiadomo¶ci ... Does anyone have any suggestions on how to add condition into coding? I would like to add the condition, please see [] If wkbk Is Nothing [and myCell.Offset(0, 2).Value is not equal today] Then Thanks in advance for any suggestions Eric ====================================== Original Coding ====================================== If wkbk Is Nothing Then myCell.Offset(0, 1).Value = "Failed to open!" Else wkbk.Close savechanges:=True myCell.Offset(0, 1).Value = "ok" |
How to add condition to coding?
Please paste your code so as to recreate the issue..
If this post helps click Yes -------------- Jacob Skaria "Eric" wrote: Thank you very much for suggestions I get an error, which is related to missing some variable setting or With's variable. Do you have any suggestions on how to fix it? Thank you very much for any suggestions Eric "Jarek Kujawa" wrote: If wkbk Is Nothing And myCell.Offset(0, 2).Value < DateSerial(Year(Now), Month(Now), Day(Now)) Then HIH U¿ytkownik "Eric" napisa³ w wiadomo¶ci ... Does anyone have any suggestions on how to add condition into coding? I would like to add the condition, please see [] If wkbk Is Nothing [and myCell.Offset(0, 2).Value is not equal today] Then Thanks in advance for any suggestions Eric ====================================== Original Coding ====================================== If wkbk Is Nothing Then myCell.Offset(0, 1).Value = "Failed to open!" Else wkbk.Close savechanges:=True myCell.Offset(0, 1).Value = "ok" |
How to add condition to coding?
Please see the following coding
Does anyone have any suggestions? Thank everyone very much for any suggestions Eric Option Explicit Sub Updating_Lists() Dim myRng As Range Dim myCell As Range Dim wkbk As Workbook With Worksheets("Table").Range("C3") .NumberFormat = "hh:mm AM/PM" .Value = Now End With With Worksheets("Lists") 'still starting in row 2! Set myRng = .Range("a2", .Cells(.Rows.Count, "A").End(xlUp)) End With For Each myCell In myRng.Cells Set wkbk = Nothing On Error Resume Next On Error GoTo 0 myCell.Offset(0, 1).Value = "" Next myCell For Each myCell In myRng.Cells Set wkbk = Nothing On Error Resume Next Set wkbk = Workbooks.Open(Filename:=myCell.Value, UpdateLinks:=3) On Error GoTo 0 <<< Add the condition here If wkbk Is Nothing Then <<< Add the condition here myCell.Offset(0, 1).Value = "Failed to open!" Else wkbk.Close savechanges:=True myCell.Offset(0, 1).Value = "ok" With myCell.Offset(0, 2) .NumberFormat = "mm/dd/yyyy" .Value = Date End With With myCell.Offset(0, 3) .NumberFormat = "hh:mm:ss" .Value = Time End With End If Next myCell With Worksheets("Table").Range("E3") .NumberFormat = "hh:mm AM/PM" .Value = Now End With 'better to include an extension Workbooks("Update Up.xls").Close savechanges:=True End Sub "Jacob Skaria" wrote: Please paste your code so as to recreate the issue.. If this post helps click Yes -------------- Jacob Skaria "Eric" wrote: Thank you very much for suggestions I get an error, which is related to missing some variable setting or With's variable. Do you have any suggestions on how to fix it? Thank you very much for any suggestions Eric "Jarek Kujawa" wrote: If wkbk Is Nothing And myCell.Offset(0, 2).Value < DateSerial(Year(Now), Month(Now), Day(Now)) Then HIH U¿ytkownik "Eric" napisa³ w wiadomo¶ci ... Does anyone have any suggestions on how to add condition into coding? I would like to add the condition, please see [] If wkbk Is Nothing [and myCell.Offset(0, 2).Value is not equal today] Then Thanks in advance for any suggestions Eric ====================================== Original Coding ====================================== If wkbk Is Nothing Then myCell.Offset(0, 1).Value = "Failed to open!" Else wkbk.Close savechanges:=True myCell.Offset(0, 1).Value = "ok" |
How to add condition to coding?
Dear Eric
If wkbk Is Nothing And CDate(myCell.Offset(0, 2).value) < Date Then If this post helps click Yes -------------- Jacob Skaria "Eric" wrote: Please see the following coding Does anyone have any suggestions? Thank everyone very much for any suggestions Eric Option Explicit Sub Updating_Lists() Dim myRng As Range Dim myCell As Range Dim wkbk As Workbook With Worksheets("Table").Range("C3") .NumberFormat = "hh:mm AM/PM" .Value = Now End With With Worksheets("Lists") 'still starting in row 2! Set myRng = .Range("a2", .Cells(.Rows.Count, "A").End(xlUp)) End With For Each myCell In myRng.Cells Set wkbk = Nothing On Error Resume Next On Error GoTo 0 myCell.Offset(0, 1).Value = "" Next myCell For Each myCell In myRng.Cells Set wkbk = Nothing On Error Resume Next Set wkbk = Workbooks.Open(Filename:=myCell.Value, UpdateLinks:=3) On Error GoTo 0 <<< Add the condition here If wkbk Is Nothing Then <<< Add the condition here myCell.Offset(0, 1).Value = "Failed to open!" Else wkbk.Close savechanges:=True myCell.Offset(0, 1).Value = "ok" With myCell.Offset(0, 2) .NumberFormat = "mm/dd/yyyy" .Value = Date End With With myCell.Offset(0, 3) .NumberFormat = "hh:mm:ss" .Value = Time End With End If Next myCell With Worksheets("Table").Range("E3") .NumberFormat = "hh:mm AM/PM" .Value = Now End With 'better to include an extension Workbooks("Update Up.xls").Close savechanges:=True End Sub "Jacob Skaria" wrote: Please paste your code so as to recreate the issue.. If this post helps click Yes -------------- Jacob Skaria "Eric" wrote: Thank you very much for suggestions I get an error, which is related to missing some variable setting or With's variable. Do you have any suggestions on how to fix it? Thank you very much for any suggestions Eric "Jarek Kujawa" wrote: If wkbk Is Nothing And myCell.Offset(0, 2).Value < DateSerial(Year(Now), Month(Now), Day(Now)) Then HIH U¿ytkownik "Eric" napisa³ w wiadomo¶ci ... Does anyone have any suggestions on how to add condition into coding? I would like to add the condition, please see [] If wkbk Is Nothing [and myCell.Offset(0, 2).Value is not equal today] Then Thanks in advance for any suggestions Eric ====================================== Original Coding ====================================== If wkbk Is Nothing Then myCell.Offset(0, 1).Value = "Failed to open!" Else wkbk.Close savechanges:=True myCell.Offset(0, 1).Value = "ok" |
| All times are GMT +1. The time now is 01:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com