Soru Sadece filtrede makro uygulama

[destiny184]

Excel dosyasında atıyorum Bi sütunda domates elma armut var. Uyguladığım kod(sütunda metin sayı var karışık. sadece sayıları yazıyor yan satıra) sadece armutlarda çalışmasını istiyorum. Filtre koyup yaptığımda çalışıyor fakat filtreyi kaldırdığımda tüm sütunda uygulanmış gözüküyor kodu. Varmıdır bir çözümü sadece armutta çalışsın.

 

[muysun35]

örnek dosya ekler misiniz?

 

[destiny184]

Sayıları alınan kod bu bunun 7. G sütunda sadece armutlarda çalışmasını istiyorum.

Sub sayılari_al()

Dim nums As String

For i = 1 To Cells(65536, 1).End(xlUp).Row

    For j = 1 To Len(Cells(i, 8))

        If IsNumeric(Mid(Cells(i, 8), j, 1)) = True Then

            nums = nums & Mid(Cells(i, 8), j, 1)

        End If

   Next j

   Cells(i, 10) = nums

   nums = ""

Next i

 MsgBox ("İşlem tamam!")

End Sub