Sıralamada sıfırların dikkate alınmaması

[truvali27m]

Merhaba arkadaşlar sizlere bir sorum olacaktı.Ben bir sütundaki verilere göre en çok miktar ve en az miktarı buluyorum max ve min komutlarıyla.En çok miktarı bulmada sorun yok ama en az miktarda şöyle sorun çıkıyor: sütunda bulunan veriler de bir hesaplama sonucu geliyor ve bu verilerin arasında 0 rakam değeri olanlarda var.Bu şekilde olunca kod en az miktar olarak 0 kabul ediyor ve onu gösteriyor.Benim istediğim en az miktarı bulurken 0 rakamlarını dikkate almasın.If komutuyla denedim ama kod çalışmadı.Şimdiden teşekkür ederim.

 

[Vedat Özer]

Selamlar,

Örnek dosya eklerseniz kanunun mantıgı daha iyi anlaşılacaktır,

Aşagıdaki konuyu inceleyin,

Sıralama Fonksiyonu

 

[truvali27m]

Selamlar,

Örnek dosya eklerseniz kanunun mantıgı daha iyi anlaşılacaktır,

Aşagıdaki konuyu inceleyin,

Sıralama Fonksiyonu

Merhaba Vedat Bey,ilgilendiğiniz için teşekkür ederim.Dosya boyutu fazla olduğu için eklememiştim ama o hesaplamaya ait örnek bir sayfa yaptım.Sayfa 2'de verileri Sayfa1'den alıyor ve sonra da en çok miktar ile en az miktarı buluyor.Ama dediğim gibi sıfırları dikkate aldığından en az miktar 0 gözüküyor.

 

[Vedat Özer]

Selamlar,

Yeni bir madul ekleyip aşagıdaki kodları yapıştırın,

Not:Sayfa1 çalıştırın kodları diğer sayfaya gönderecek.

Option Explicit

Sub AKTAR()
    Range("A1:B1").Select
    Selection.AutoFilter
    Range("C4").Select
    Selection.AutoFilter Field:=2, Criteria1:=">0", Operator:=xlAnd
    Columns("A:B").Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A37").Select
    Sheets("Sayfa1").Select
    Selection.AutoFilter Field:=2
    Range("C3").Select
    Selection.AutoFilter
    Range("E11").Select
    Sheets("Sayfa2").Select
    Range("G1").Select
End Sub

Örnek dosyada ekledim.

 

[truvali27m]

Selamlar,

Yeni bir madul ekleyip aşagıdaki kodları yapıştırın,

Not:Sayfa1 çalıştırın kodları diğer sayfaya gönderecek.

Option Explicit

Sub AKTAR()
    Range("A1:B1").Select
    Selection.AutoFilter
    Range("C4").Select
    Selection.AutoFilter Field:=2, Criteria1:=">0", Operator:=xlAnd
    Columns("A:B").Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A37").Select
    Sheets("Sayfa1").Select
    Selection.AutoFilter Field:=2
    Range("C3").Select
    Selection.AutoFilter
    Range("E11").Select
    Sheets("Sayfa2").Select
    Range("G1").Select
End Sub

Örnek dosyada ekledim.

Tekrar Merhaba Vedat Bey,örnek dosyanıza baktım ama yine sıfırlar da dikkate alınıyor aktarma da sorun yok ama en az miktarı bulmada sorun var yine.Benim aklıma şöyle mantık gelmişti: aktarma yaptıktan sonra Sayfa2'ye if komutuyla veri bulunan satırların değeri sıfır olursa o hücreyi silecek böylece en az miktarı bulmada sorun olmayacak ama o kodu ben çalıştıramamıştım.Aşağıdaki kod gibi olabilir mi?

sub örnek
dim i as integer
for i= 1 to 12
if cells(i,"b").value=0 then
cells(i,"b").value=""
next i
end if
end sub