Auto copy record filter result

[Tezzin]

Hi.

So i have made some macros to filter out different faults to show me how many faults there is.
Is there a way to auto copy the amount result to a new cell in a new sheet?

adding 2 pictures of my macro. and the result i want to copy to a new cell.
So every time i press 1 of these buttons i want it to copy the search amount result to a new cell.

sorry for bad English.

 

[Yongle]

Use this method
Place values v and x in the cell

    Dim v As Long, x As Long, msg As String

    With ActiveSheet.AutoFilter.Range.Resize(, 1)
        v = .SpecialCells(xlCellTypeVisible).Count - 1
        x = .Count - 1
    End With
    msg = v & " of " & x & " records found"
    MsgBox msg, , ""

 

[Tezzin]

thank you, as the example above shows the result is 191.But is it possible for it to auto copy paste that value "191" to a different sheet?

 

[Tezzin]

View attachment 17463

Use this method
Place values v and x in the cell

    Dim v As Long, x As Long, msg As String

    With ActiveSheet.AutoFilter.Range.Resize(, 1)
        v = .SpecialCells(xlCellTypeVisible).Count - 1
        x = .Count - 1
    End With
    msg = v & " of " & x & " records found"
    MsgBox msg, , ""

thank you, as the example above shows the result is 191.But is it possible for it to auto copy paste that value "191" to a different sheet?

 

[Yongle]

Sheets("Different Sheet").Range("A1") = ActiveSheet.AutoFilter.Range.Resize(, 1).SpecialCells(xlCellTypeVisible).Count - 1