Tabloda, Sayı Biçimindeki Sıfırdan Büyük Verileri Almak

[1Al2Ver]

Merhaba,

İçinde sayı, tire, metin, aylar ve isimler bulunduran bir tablodan,

Açılır Kutu'dan seçilen ay'a göre ;

Eğer isminin ve ilgili ay'ın karşılığında, sadece sayı ve sıfırdan büyük olanlar varsa (sıfır, tire ve KD hariç) ;

Yeni bir tabloya listelensin istiyorum,

Teşekkür ederim.

 

[excel41]

Anladığım kadarı ile yapmaya çalıştım istediğiniz böyle birşey mi ?

O ve R sütunlarında dizi formülü kullanıldı

 

[Ömer]

Merhaba,

Benim anladığım;

Q4

=EĞER(R4="";"";SATIRSAY($Q$4:Q4))

R4 (dizi formülü)

=EĞERHATA(İNDİS($B$3:$B$43;KÜÇÜK(EĞER(ESAYIYSA(KAYDIR($C$3;;KAÇINCI($R$1;$C$2:$N$2;0)-1;41))
;EĞER(KAYDIR($C$3;;KAÇINCI($R$1;$C$2:$N$2;0)-1;41)>0;SATIR($B$3:$B$43)-SATIR($B$3)+1));SATIRSAY(R$4:R4)));"")

S4 (dizi formülü)

=EĞERHATA(İNDİS(KAYDIR($C$3;;KAÇINCI($R$1;$C$2:$N$2;0)-1;41);KÜÇÜK(EĞER(ESAYIYSA(KAYDIR($C$3;;KAÇINCI($R$1;$C$2:$N$2;0)-1;41))
;EĞER(KAYDIR($C$3;;KAÇINCI($R$1;$C$2:$N$2;0)-1;41)>0;SATIR($B$3:$B$43)-SATIR($B$3)+1));SATIRSAY(S$4:S4)));"")

 

[1Al2Ver]

Sayın excel41 merhaba,

Öncelikle duyarlığınız için teşekkür ederim,

Aradığım çözüm bu şekilde değildi, zahmetiniz de ayrıca teşekkür ederim.

Saygılarımla.

 

[1Al2Ver]

Sayın Ömer merhaba,

Size de duyarlığınız için teşekkür ederim,

Önerilen formüller sorunuma çözüm oldular, sağ olun.

Saygılarımla.

 

[assenucler]

Emek ve katkı veren tüm üstat ve dostlara teşekkürler. Sayın Ömer'in Q sütununa uygulanan formülü aşağı doğru sürükleyince, sıralamaya girmeyen hücrelerde oluşan hatası nasıl önlenir?

 

[Korhan Ayhan]

EĞERHATA fonksiyonunu kullanabilirsiniz.

 

[çıtır]

Konu çözülmüş ama bir alternatif çözümde ben iletiyim.
Q4 Hücresine kopyalayınız.Aşağı doğru çoğaltınız.

=EĞER(TOPLA.ÇARPIM(($R4:$R4<>"")*($R$4:$R4<>0))>0;MAK($Q$3:$Q3)+1;"")

R4 Hücresine kopyalayınız.S4 Hücresine kadar sağa ve aşşağı doğru çoğaltınız.

=EĞERHATA(İNDİS($B$1:$N$43;TOPLAMA(15;6;(SATIR($A$3:$A$43)/(ESAYIYSA(KAYDIR($B$3;;KAÇINCI($R$1;$C$2:$N$2;0);41))*KAYDIR($B$3;;KAÇINCI($R$1;$C$2:$N$2;0);41)>0));SATIR($A1));EĞER(SÜTUN()=18;1;KAÇINCI($R$1;$B$2:$N$2;0)));"")

 

[Ziynettin]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "R1" Then
    ay = Target.Text
    a = Range("B3:N" & Cells(Rows.Count, 1).End(3).Row).Value
    
    Range("Q4:S" & Rows.Count) = ""
    On Error Resume Next
    Err = 0
    sut = Application.Match(ay, [C2:N2], 0) + 1
    If Err = 0 Then
        ReDim b(1 To UBound(a), 1 To 3)
        For i = 2 To UBound(a)
            If IsNumeric(a(i, sut)) And a(i, sut) <> 0 Then
                say = say + 1
                b(say, 1) = say
                b(say, 2) = a(i, 1)
                b(say, 3) = a(i, sut)
            End If
        Next i
        If say > 0 Then
            [Q4].Resize(say, 3) = b
            MsgBox "İşlem tamam.", vbInformation
        Else
            MsgBox "Listenecek sonuç yok.", vbCritical
        End If
    Else
        MsgBox "Ay seçimi bulunamadı.", vbExclamation
    End If
    End If
End Sub

 

[assenucler]

Teşekkürler üstadım.

Hayırlı akşamlar ve saygılar.

 

[1Al2Ver]

Sayın çıtır merhaba,

Alternatif çözüm için teşekkür ederim,

Saygılarımla.

 

[1Al2Ver]

Sayın Ziynettin merhaba,

Çözüm için teşekkür ederim, makro ile hızlı bir sonuç olmuş, sağ olun.

Saygılarımla.

 

[çıtır]

Sayın çıtır merhaba,

Alternatif çözüm için teşekkür ederim,

Saygılarımla.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.Bilmukabele.

 

[assenucler]

Emek ve katkı veren tüm üstat ve dostlara teşekkürler.