şartlı listeleme

[Erdem Akdemir]

arkadaşlar merhaba

ekteki tabloda şart'a bağlı listeleme ile ilgili bir soru var ve yardımlarınızı bekliyorum

iyi çalışmalar

 

[usubaykan]

Merhaba;

Aşağıdaki kodu incelermisiniz.

Option Explicit
Sub Kapandı()
Dim U As Long, Son_Satır As Long, Son_Satır_2 As Long
    Son_Satır = [F65536].End(3).Row
    Son_Satır_2 = [G65536].End(3).Row
    
    For U = 1 To [A65536].End(3).Row
    If Cells(U, "B") <> "kapandı" Then
    Cells(Son_Satır, "F") = Cells(U, "A")
    Son_Satır = Son_Satır + 1
    Else
    Cells(Son_Satır_2, "G") = Cells(U, "A")
    Son_Satır_2 = Son_Satır_2 + 1
    End If
    Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ŞARTLI_LİSTELE()
    Dim X As Long, Satır_F As Long, Satır_G As Long
    
    Range("F:G").ClearContents
    
    For X = 1 To Range("A65536").End(3).Row
        If UCase(Replace(Cells(X, "B"), "ı", "I")) <> "KAPANDI" Then
            Satır_F = Satır_F + 1
            Cells(Satır_F, "F") = Cells(X, "A")
        Else
            Satır_G = Satır_G + 1
            Cells(Satır_G, "G") = Cells(X, "A")
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Erdem Akdemir]

ilgilenen herkese teşekkür ederim, sorunum çözüldü

 

[Korhan Ayhan]

Selamlar,

Aslında sorunuzun dizi formülle çözümüde var. Fakat siz makro bölümüne sorduğunuz için bende çözümü bu yönde vermiştim.

Formül kullanmak isterseniz aşağıdaki formülleri deneyiniz.

F1 hücresine; (CTRL+SHIFT+ENTER)

=EĞER(SATIRSAY(B$1:B1)>TOPLA.ÇARPIM(($B$1:$B$1000<>"")*(B$1:B$1000<>"KAPANDI"));"";İNDİS(A$1:A$1000;KÜÇÜK(EĞER(B$1:B$1000<>"KAPANDI";SATIR(B$1:B$1000));SATIRSAY(B$1:B1))))

G1 hücresine; (CTRL+SHIFT+ENTER)

=EĞER(SATIRSAY(B$1:B1)>TOPLA.ÇARPIM(($B$1:$B$1000<>"")*(B$1:B$1000="KAPANDI"));"";İNDİS(A$1:A$1000;KÜÇÜK(EĞER(B$1:B$1000="KAPANDI";SATIR(B$1:B$1000));SATIRSAY(B$1:B1))))

 

[Erdem Akdemir]

korhan bey idölümsünüz