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ı