+ / - 5 ve sıfır olan satırları silidirme.

[Galus]

Bir sütundaki 0 , 1 , 2 , 3 , 4 , 5 , -1 , -2 , -3 , -4 , -5 degerlerinin bulunduğu satırları otomatik olarak sildirebir miyiz?

Saygılarımla..

 

[Orion1]

Merhaba.
Sayın Galus ,Aşağıdaki kodları boş bir modüle kopyalayıo denermisiniz?

Sub satir_sil()
Sheets("Sayfa1").Select
If MsgBox("Kriterlere uyan satırlar silinecek.Silmek istiyormusunuz", vbYesNo) = vbNo Then Exit Sub
For i = Cells(65536, "F").End(xlUp).Row To 1 Step -1
    If Cells(i, "F").Value <> "" And Cells(i, "F").Value >= -5 And Cells(i, "F").Value <= 5 Then
        Rows(i).Delete
    End If
Next i
MsgBox "İLGİLİ SATIRLAR SİLİNDİ..!!", vbOKOnly + vbInformation
End Sub

 

[Galus]

Hocam,

Saygılarımı arz ederim. Çok teşekkürler...

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle ekleyiniz.

Public Sub Satır_Sil()
Application.ScreenUpdating = False
For i = [f65536].End(3).Row To 1 Step -1
    If Cells(i, "F") >= -5 And Cells(i, "F") <= 5 Then Rows(i).Delete
Next i
End Sub

 

[Orion1]

Hocam,

Saygılarımı arz ederim. Çok teşekkürler...

Rica ederim.
Saygılar benden.

 

[Necdet]

Biz kodları yazıp gönderene kadar (mesajı açmak 3 dakikamı alıyor ) çözüm ve teşekkürler yazılmış bile oluyor

Bu yavaşlık sizde de var mı?

 

[Galus]

Sayın Necdet_Yesertener,

Malum telekom grevde; internette haliyle yavaşladı. Sizin de ilgi desteğinize teşekkürler.
Cenab-ı Allah tüm yardımsever güzel insanların ecrini arttırsın.

Saygılarımla..

 

[Necdet]

Bende size teşekkür ederim Sayın Galus.

 

[Orion1]

Biz kodları yazıp gönderene kadar (mesajı açmak 3 dakikamı alıyor ) çözüm ve teşekkürler yazılmış bile oluyor

Bu yavaşlık sizde de var mı?

Sayın hocam ,Simgeler azaltılınca açılma bir miktar hızlandı.Dağa önce açılması dağa uzun oluyordu.
Saygılar.

 

[AS3434]

Sayın Necdet bey siz yine mesajı açıp cevap yazabiliyorsunuz.

Bir mesajı açıp dosyaya bakmak derken bakıyorum 10 tane daha yeni mesaj gelmiş. ( "Kim ? kim olacak Pele" gibi oldu)

Dosya indirme ortalama 3 kb/sn. ile yapıyor bu aralar.

 

[Orion1]

Acaba Mesaj simgelerinide azaltmak ,dağada Hızlandırırmı?

 

[Ferhat Pazarçevirdi]

Necdet hocam, Ankara'daki fiberoptik kabloları fazla kesmişler sanırım İzmir'de çok iyi olmasa da dediğiniz gibi bir durum yok.

 

[Necdet]

Sayın fpc,

en iyisi öölece bakmak, gerçekten çok sinir oluyor insan, mesajı okumak bir dert, varsa diyeceğimiz birşey onu yazıp göndermek bir dert

 

[Levent Menteşoğlu]

Arkadaşlar sorun internet bağlantısı kaynaklıdır. Bende son 10-15 gündür sorun yaşıyorum. Demekki özelleştirme her zaman verimli olmuyor.