How to run a macro, if the value in a cell matches with a set of values in other sheet?

hello,

i have a cell A6 which contains a date and on another sheet there are list of non working days. If the date in the cell A6 matches with the non working days list, i want to perfom some action and if it is a working day i want to perform fifferent action. I have tried the following but it is not functioning.

Sub textauto()
Dim ws1 As Worksheet:   Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:   Set ws2 = Sheets("Sheet2")
Dim ws3 As Worksheet:   Set ws3 = Sheets("Sheet3")


If ws1.Range("A6").Value = ws3.Range("D12:D28").Value Then
         If ws2.Range("D1").Value = "" Then
         ws2.Range("D1").Value = "Please assign the documents after three days"
         Else
         ws2.Range("D1").Value = ws2.Range("D1").Value & vbLf & vbLf & "Please assign the documents after three days"
        End If
Else
        If ws2.Range("D1").Value = "" Then
        ws2.Range("D1").Value = "Please assign the documents immediately"
        Else
       ws2.Range("D1").Value = ws2.Range("D1").Value & vbLf & vbLf & "Please assign the documents immediately"
        Else
       End If
End If
End Sub

Hi, laxminarayana,

please take your time for a read of the forum rules:

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)



Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Ciao,
Holger

Hi, laxminarayana,

thanks. Please check if WorksheetFunction,Countif will work for you:

Sub textauto()
Dim ws1 As Worksheet:   Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet:   Set ws2 = Sheets("Sheet2")
Dim ws3 As Worksheet:   Set ws3 = Sheets("Sheet3")

With ws2.Range("D1")
  If WorksheetFunction.CountIf(ws3.Range("D12:D28"), ws1.Range("A6").Value) > 0 Then
    If .Value = "" Then
      .Value = "Please assign the documents after three days"
    Else
      .Value = .Value & vbLf & vbLf & "Please assign the documents after three days"
    End If
  Else
    If .Value = "" Then
      .Value = "Please assign the documents immediately"
    Else
      .Value = .Value & vbLf & vbLf & "Please assign the documents immediately"
    End If
  End If
End With

Set ws3 = Nothing
Set ws2 = Nothing
Set ws1 = Nothing

End Sub

Ciao,
Holger