Hücredeki Belirli Kritere Göre Süzme İşlemi Yapma

[mustafa1205]

Ekte bulunan örneğimde de açıklama mevcuttur. Hücre içerisinde bulunan "yazdırılan sayfa sayısı: 1" ve daha yuksek olan hücreleri nasıl süzme işlemi yapabilirim. Çünkü hücrede başka kelimelerde mevcut.

 

[Husgvarna]

Ekte bulunan örneğimde de açıklama mevcuttur. Hücre içerisinde bulunan "yazdırılan sayfa sayısı: 1" ve daha yuksek olan hücreleri nasıl süzme işlemi yapabilirim. Çünkü hücrede başka kelimelerde mevcut.

Merhaba.
Yani rakamlardan önce mutlaka ":" bulunuyor mu ?

 

[mustafa1205]

Evet bulunuyor. Bilgisayardaki serverdan aldığım için bu standart.Sadece rakamlar değişiyor

 

[Husgvarna]

Evet bulunuyor. Bilgisayardaki serverdan aldığım için bu standart.Sadece rakamlar değişiyor

Değişen rakamlarsa; aşağıdaki dosyayı denermisiniz ?

 

[mustafa1205]

Sayın Husgvarna elinize sağlık mükemmel olmuş. Tam istediğim gibi.Ancak şöyle bir sıkıntım oldu.Malum asıl dosya boyutu epey büyük olduğu için ben kodlar üzerinden giderek kendime uyarlayabilirim zannettim. Ancak kodları tam kendime uyarlayamadım.Eğer imkanınız olursa ben dosyayı tekrar ekliyorum.Düzenleme babında ona göre kodları uygulama imkanınız olabilir mi? Çok teşekkür ediyorum.

 

[Necdet]

Sayın Husgvarna elinize sağlık mükemmel olmuş. Tam istediğim gibi.Ancak şöyle bir sıkıntım oldu.Malum asıl dosya boyutu epey büyük olduğu için ben kodlar üzerinden giderek kendime uyarlayabilirim zannettim. Ancak kodları tam kendime uyarlayamadım.Eğer imkanınız olursa ben dosyayı tekrar ekliyorum.Düzenleme babında ona göre kodları uygulama imkanınız olabilir mi? Çok teşekkür ediyorum.

Merhaba,

Sayfa2 deki veriler silinecek mi yoksa sonuna mı aktarılacak bilemediğim için herhangi bir kontrol yapmadım.

Süz yaparak aktardığım için (ki bu daha hızlı çalışır) bilgilerin başında Başlık Satırı olmalı.

Private Sub CommandButton1_Click()
    
    ActiveSheet.Range("$A$1:$I$28").AutoFilter Field:=9, Criteria1:="<>*: 0"
    Range("A1").CurrentRegion.Copy Sheets("Sayfa2").Range("A1")
    Selection.AutoFilter
    Sheets("Sayfa2").Select
    
End Sub

 

[mustafa1205]

Hocam Elinize sağlık tam istediğim gibi olmuş.Diğer sayfadaki eski bilgileri silip yapacak ama sorun değil ben o kısmın kodlarını eklerim problem olmaz.Dener denemez size dönerim hocam