Filtre kullanarak yapıyorum satır ve sutun taramayı macro hazırlayabilirmiyiz acaba?

[desperado17]

Arkadaslar iş yerinde işlerimi kolaylaştırmak için yardım istiyorum bi el atarsanız sevinirim

Ekteki dosyada Tüm modeller adlı sayfada üstte kırmızı ile işaretlediğim 51912328 modeldeki kaynaklar aşağıda 1 ile gösterilmiştir. 1 ile gösterilen satırın sonuna doğtu toplam kesit die bişey var onu tarayacak yan sayfada yani modeller yazan sayfaya dizecek. 2 tane örnek elle yaptım umarım yardımcı olabilirsiniz. Kod olarak yaparsanız başka sayfalara nasıl uygulayacagım onu da yazarsanız sevinirim.Şimdiden teşekkurler. (Anlatması zor ama umarım yapması zor degildir.

Yanlıs yere açmışım adminim kaldırmıs Kusura bakmayın umarım burası dogrudur.

 

[hımmmmmmmm]

ÇALIŞMA EKDE..modeller sayfasındaki butonu tıkla

Private Sub CommandButton1_Click()
Sheets("Modeller").Range("B3:AZ65000").ClearContents
For I = 1 To 36
S = 0
   For K = 15 To 81
      OKU = Sheets("Tüm_Proje").Cells(K, I + 2).Value
      If Trim(OKU) <> "" Then
         S = S + 1
         Sheets("Modeller").Cells(S + 2, I + 1).Value = Sheets("Tüm_Proje").Cells(K, "AP").Value
      End If
   Next K
Next I

End Sub