koşul belirtilmiş olan satırlar haricinde kalan satırları silme

[kurthan]

arkadaşlar merhaba,
aşağıda sorduğum soruya yanıt alamadım ama
sanırım bunu ceplayan birisi olur
dosya ektedir.

 

[hamitcan]

Kod, önce koşula uyanları süzer, sonra başka bir sayfaya aktarır.

Sub sil()
    ActiveSheet.Range("$A$6:$AB$65536").AutoFilter Field:=28, Criteria1:="<-15", _
        Operator:=xlOr, Criteria2:=">15"
        Cells.SpecialCells(xlCellTypeVisible).Select
    
    Selection.Copy
    Worksheets.Add
    ActiveSheet.Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

 

[kurthan]

Hamit Hocam istediğim gibi olmuş
fakat ben AB sütunu için değil de bu işlemi x , z yani oran sütünlarında yapmak istersem kod nasıl bir şekil alır
her ayın raporunu ayrı ayrı yapıyorum mesela ocak ayını yaptıktan sonra
subat ayı gelecek ay yapmam lazım

 

[hamitcan]

    ActiveSheet.Range("$A$6:$AB$65536").AutoFilter Field:=[color=red][B]28[/B][/color], Criteria1:="<-15", _
        Operator:=xlOr, Criteria2:=">15"

Kırmızı ile belirttiğim kısmı x sütunu için: 24, z sütunu için: 26şeklinde değiştirerek sonuca ulaşabilirsiniz.

 

[kurthan]

hamit hocam çok tşk.ler öncelikle

peki her defasında oran olan sütunlara göre yaptık bu işlem yaptığımız sutunu tekrar seçip -15 den küçük olan rakamları kalın mavi , 15 den büyük olan rakamlar için kalın kırmızı bir kod yazmak istesek nasıl yaparız?

 

[hamitcan]

15 den küçük olan rakamları kalın mavi , 15 den büyük olan rakamlar için kalın kırmızı bir kod yazmak istesek nasıl yaparız?

Kod yazmaya gerek yok. Hangi sütunlarda bu işlemi yapmak istiyorsanız, o sütunları seçin ve koşullu biçimlendirmeden şekillendirin.

 

[kurthan]

Hamit hocam o şekilde yapıyorum ben sayfayı kod ile düzenlemişken ikinci bir işlem yapmayayım diye kod ile yapıla biliyorsa tekrar uğraşmama gerek kalmasın diye sormuştum
kod yazamıyosak sorun değil o şekilde de yapabilirim

 

[hamitcan]

Bu şekilde yaparsanız daha kolay olur bence.

 

[kurthan]

çok tşk.ler ilginize
kolaygelsin