Koşula göre liste oluşturma

[turanb]

Şuan vaktim yok. Yukarıda bahsettiğim şekilde örneği ekleyin. Müsait olduğumda incelerim.

. . .

Sizin kodlarınızı düğme6 ve ayrıca button4 e tanımladım. Dosya ektedir.

Kolay gelsin.

 

[turanb]

Tam bende çözdüm diyecektim siz cevap için benden önce davranmışsınız.

Hüseyin hocam çok çok teşekkür ediyorum. Elinize sağlık. Çok makbul oldu.

:mutlu:

 

[Emir Hüseyin Çoban]

Ben dosya eklemedim, kontrol edin. Hata olmasin.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Turuncu alanlara başlangıç/Bitiş tarihlerini girdikten sonra.
Turuncu butonu tıklayın.

. . .

 

[Emir Hüseyin Çoban]

. . .

Clear satırının yerini değiştirin. Kırmızı ile belirttiğim aralığa alın...

    Dim SD As Worksheet: Set SD = Sheets("Veri")
    Dim SO As Worksheet: Set SO = Sheets("Karşılaştırma2")
    
 [B][COLOR="Red"]   SO.Range("B7:F" & Rows.Count).ClearContents[/COLOR][/B]
    
    Dim dic As Object, liste(), dizi()
    
    son = SD.Cells(Rows.Count, "C").End(3).Row
    liste = SD.Range("A2:G" & son).Value

. . .