Find a text string in a column and perform action if true

dave1701 · Jul 20th 2013

I have a column that contains a text string (ex: NOTE 5). I want to search this column to see if there is a string other than "NOTE 5" (ex: NOTE 6). If there is I print notes 1-6, if not I print notes 1-5. IF "NOTE 6" is in column o (o7:o100) THAN print notes 1-6 ELSE print notes 1-5.

yegarboy · Jul 20th 2013

Re: Find a text string in a column and perform action if true

Code

Option Compare Text
Sub PrintNote()


For Each Note In ActiveSheet.Range("A1:A100").Cells
    If Note.Value = "" Then GoTo NC
        Select Case Note.Value


        Case Is <> "Note 5"
        'Print Code Here
        MsgBox "Printing Notes 1-6"
        End Select
NC:
Next Note


For Each Note2 In ActiveSheet.Range("O2:O100").Cells
    If Note2.Value = "" Then GoTo NC2
        Select Case Note2.Value


        Case Is = "Note 6"
        'Print Code Here
        MsgBox "Printing Notes 1-6"
        Case Else
        'Print Code Here
        MsgBox "Printing Notes 1-5"
        End Select
NC2:
Next Note2




End Sub

Display More

dave1701 · Jul 20th 2013

Re: Find a text string in a column and perform action if true

To be honest, my VB isn't very good. This looks great but how do I put this in as Excel file?

Find a text string in a column and perform action if true

Participate now!

Share