filtrelenmiş Hücrede Veri doldurma Sorunu

[jeoferkan]

Hani herkes tarafından bilinir ya bir hücreye a1 yazarsınız ikinci hücreye a2 yazarsınız ve hücreleri aaşağıya doğru cekerseniz a3,a4,a5... diye devam eder.

Şmdi sorun tam olarak bu benim satırımdaki hücrelerde a1,a2,a3,b1,b2,b3 gibi numaralar var simdi ben bu satırı filitrelesem ve sadece a harfının bulunduğu numaraları gostertsem sonrasında a1,a2,a3 e aşağı doğru kaydırsam ve a4,a5... gibi artmasını beklesem cokta fazla birsey iştemiş olmam değilmi? Tam olarak sorun bu filtrelenmiş satırda hücreleri secip aşağıya doğru kaydırıp artmasını beklemek... örnek bir sheet ekliyorum. Yardımcı olursanız memnun olurum...

 

[uzmanamele]

Merhaba

Bu kodu deneyiniz.

Sub FiltreyiDoldur()
ssat = Range("c65536").End(3).Row
 Range("c65536").End(xlUp).Select
    Selection.AutoFill Destination:=Range(Cells(ssat, "c"), Cells([COLOR="Red"]15[/COLOR], "c")), Type:=xlFillDefault
End Sub

15. satıra kadar doldurur, burayı değiştiriniz.