[Yardım]  Cumartesi olanları grupla

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Cumartesi olanları grupla

İleti#1)  Bedrettin DEMİRCİ » 28 Haz 2019 13:20

Merhaba
Sadece Cumartesi olanları gruplandırmam lazım

E sütunundan
Cumartesi olanları grup ismi olacak şekilde
F sütunu alt grop ve
N sütunu is o günün toplamı olacak

Yardımcı olurmusunuz ?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cumartesi olanları grupla

İleti#2)  Bedrettin DEMİRCİ » 28 Haz 2019 15:12

Formül olarak veya vba olarak olabilir

=1 Kriter E sütunu (Tarih) ; 2 Kriter F sütunu (İsim) ; 3 Kriter N sütunu (Tutar) = Sonuç o gün o isim kaç tl

=1 Kriter E sütunu (Tarih) ; 2 Kriter F sütunu (İsim) ; 3 Kriter D sütunu (iSİM) = Sonuç o gün o isim kaçtane
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cumartesi olanları grupla

İleti#3)  tasad » 28 Haz 2019 16:20

Kod: Tümünü seç
Sub Topla()
Dim con As Object, rs As Object, s As String
Range("Q2:z100000").ClearContents
Set con = CreateObject("adodb.Connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

s = "select f5,f6, sum(f14) FROM [Sayfa1$a2:n] "
s = s & vbLf & " where format(f5,'dddd')='Cumartesi'"
s = s & vbLf & " group by f5,f6"
rs.Open s, con, 1, 1
Range("Q2").CopyFromRecordset rs
rs.Close
con.Close
Set rs = Nothing: Set con = Nothing: s = vbNullString
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 599
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Cumartesi olanları grupla

İleti#4)  Bedrettin DEMİRCİ » 28 Haz 2019 16:45

Çok güzel . şkşk tam istediğim gibi
birde adetlerini yazabilir mi ?
o gün o kişi kaç adet olduğunu da tesbit edebilirmiyiz
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cumartesi olanları grupla

İleti#5)  tasad » 28 Haz 2019 17:22

Kod: Tümünü seç
Sub say()
Dim con As Object, rs As Object, s As String
Range("t2:z100000").ClearContents
Set con = CreateObject("adodb.Connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

s = "select f5,f6,count(f5) FROM [Sayfa1$a2:n] "
s = s & vbLf & " where format(f5,'dddd')='Cumartesi'"
s = s & vbLf & " group by f5,f6"
rs.Open s, con, 1, 1
Range("t2").CopyFromRecordset rs
rs.Close
con.Close
Set rs = Nothing: Set con = Nothing: s = vbNullString
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 599
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Cumartesi olanları grupla

İleti#6)  Bedrettin DEMİRCİ » 29 Haz 2019 08:39

Teşekkür ederim .. her iki kodda çalışıyor elinize sağlık şkşk

Bir konu var
Toplamlarda sorun yok ama adetlerde bilinmesi gereken bir konu var
Sayı dediğim o günkü fatura adedi
D sütununda Cari ismi var , cari ismini saydığımız zaman sonuç yanlış oluyor
Mesela aşağıda üç cari ismi var ama 7 sayıyor

MENPET PETROL TURİZM İŞL.GIDA SAN. VE TİC.AŞ
MENPET PETROL TURİZM İŞL.GIDA SAN. VE TİC.AŞ
DOĞU GIDA İLETİŞİM. İNŞ. LTD. ŞTİ.
DOĞU GIDA İLETİŞİM. İNŞ. LTD. ŞTİ.
DOĞU GIDA İLETİŞİM. İNŞ. LTD. ŞTİ.
SERCAN KINACI - KINACIOĞLU KURUYEMİŞ
SERCAN KINACI - KINACIOĞLU KURUYEMİŞ

Doğrusu şu olur: B sütununu sayacak ama tekli liste olarak sayacak
aşağıda 7 satır var ama 3 fatura no var
doğrusu 3 olacak şekilde makro olması lazım

500000000299296
500000000299296
500000000299297
500000000299297
500000000299297
500000000299298
500000000299298
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cumartesi olanları grupla

İleti#7)  tasad » 30 Haz 2019 08:58

Dosya ekte.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 599
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Cumartesi olanları grupla

İleti#8)  Bedrettin DEMİRCİ » 01 Tem 2019 08:34

Teşekkür ederim --)(
elinize sağlık..
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe