VBA Coding Help - Incorporate Text Boxes based on results

[surkdidat]

Hi, yet again!

I have used the "Record Macro" function, to record some very basic VBA Coding.

What I would like, after the filter has run, is to display a text box based on two scenarios

1. If only "blanks" to display a text box, and say "There are no results found. Please press OK to reset the search." This will then remove the filter, and then return to cell A3

2. If there are any results, display a text box and say "There are x results" (x being the number of rows with a result).

As a secondary question, are there any good online (Free or very cheap) places to start learning how to physically code in VBA at all please?

Thanks in advance!

Sub Macro1()
'
' Macro1 Macro
'

    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.AutoFilter
    Selection.AutoFilter
  
    ActiveSheet.Range("$A$2:$E$3480").AutoFilter Field:=5, Criteria1:="<>"
End Sub

 

[DanteAmor]

Try this:

Sub Macro1()
  With Range("A2:E" & Range("A" & Rows.Count).End(3).Row)
    .AutoFilter Field:=5, Criteria1:="<>"
    If Range("A" & Rows.Count).End(3).Row = 2 Then
      MsgBox "There are no results found"
      ActiveSheet.ShowAllData
      Range("A3").Select
    Else
      MsgBox "There are " & .Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 & " results "
    End If
  End With
End Sub

---
The best place to learn VBA is this forum.
---

 

[surkdidat]

Lovely - appreciate your help

Try this:

Sub Macro1()
  With Range("A2:E" & Range("A" & Rows.Count).End(3).Row)
    .AutoFilter Field:=5, Criteria1:="<>"
    If Range("A" & Rows.Count).End(3).Row = 2 Then
      MsgBox "There are no results found"
      ActiveSheet.ShowAllData
      Range("A3").Select
    Else
      MsgBox "There are " & .Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 & " results "
    End If
  End With
End Sub

---
The best place to learn VBA is this forum.
---

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.