23.mesajdaki örnek için mi diyorsunuz
				
				
			
			
			
			
	@benbendedeilem
			
				
	
			
			
			
			
			
			
		(27/03/2020, 13:20)feraz yazdı: Başka bir poblem var.
kes = Split(Replace(rs(index), " ", ""), ",") burdaki replace yi meyveler arasında yani Limonun sağında yada solunda boşluk varsa tam sonuç vermiyordu onun için replace ekledim.
Kuru üzüm gibi arada boşluk olunca Kuruüzüm olarak sonuç veriyor.
kes = Split(Trim(rs(index)), ",") böyle trim yaptım oda olmuor neden çözmemiz gerek.
If rs.RecordCount > 0 Then
        Do While Not rs.EOF
            kes = Split(rs(index), ",")
            For k = LBound(kes) To UBound(kes)
                scr(Trim(kes(k))) = scr(Trim(kes(k))) + 1
            Next
            rs.MoveNext
        Loop
    End If
				
				
			(27/03/2020, 12:35)accessman yazdı: hatalı sonuç değil ama şimdi eklediğim örnekte 3. kayıta ekleyip sildiğim limon hesap dışı kalması gerekmiyor muExtra filtreli içinmi olacak
başlama 01.02.2020 bitiş 29.02.2020 firma A için 3. Kayıttaki meyveler "Extra filtreli" de hesaplanmalı mı hesaplanmamalı mı
(27/03/2020, 13:47)feraz yazdı:evet(27/03/2020, 12:35)accessman yazdı: hatalı sonuç değil ama şimdi eklediğim örnekte 3. kayıta ekleyip sildiğim limon hesap dışı kalması gerekmiyor muExtra filtreli içinmi olacak
başlama 01.02.2020 bitiş 29.02.2020 firma A için 3. Kayıttaki meyveler "Extra filtreli" de hesaplanmalı mı hesaplanmamalı mı