Diana Alexis Pastorini Alarcón

Private Sub buscar_m_Click() Range("g5").Select f = 5 a = 0 Do While Cells(f, 1) <> "" If numero_m = Selection.Offset(0, 6) Then a = a + 1 GoTo salto Else a = a End If salto: Range("a3").Select f = f + 1 Loop MsgBox a & " veces facturada." End Sub

Estoy haciendo un formulario, que basado en unabase de datos me pide un numero, necesito una macro que me cuente y almacene el dato de en que filas. Por ejemplo el 185 se repite 3 veces en la fila 3, 7, 10