Yatay ve Dikey Saydırma

[ouney06]

Yapmak istediğim şey özetle şudur

BİLGİ sayfasında bulunan sipariş tarihlerini saydırarak SONUC sayfasında bulunan ilgili tarihin karşısına yazdırmak
Dikeyde yapmak istediğim şey ise şu,
Sipariş tarihi ve teslim tarihine göre teslim sayılarını tabloda ilgili yere işlemek

Örnek
01.01.2005 de 2 adet sipariş alınmıştır, Bu iki siparişin bir tanesi 05.05.2006 da diğer 06.05.2006 da teslim edilmiştir.
SONUc sayfasında Sipariş tarihi 01.05.2006 olan satırın teslim tarihi 05.06.2006 olan sütununda "1" 06.05.2006 olan sütununda "1"
yazmaktadır.

Ben döngüler kurarak Sipariş sayılarını saydırabiliyorum, fakat sipariş tarihlerinin teslim günlerini saydıramıyorum.
Bu işlemi yaptırabilecek kod konusunda yardımlarınızı bekliyorum

Saygılar

Özgür ÜNEY

 

[Ali]

Mesela AH hücrenize =BAĞ_DEĞ_SAY(C3:AG3) yazarak günlere göre sipariş sayısı toplamı işinizi görürmü

 

[ouney06]

aslında ben bir butona bağlı olarak hergün tekrar tekrar kontrol ettirip yeniden yazdırmak istiyorum, ama senin söylediğin formülü de deneyeceğim, yardımına teşekkürler. Makrolu bir çözümüne bakmam lazım

 

[AS3434]

Makrosuz formülle alternatif çözüm;

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:7d75a5bb3b]Sub tabloyaaktar()
Set s1 = Sheets("bilgi")
Set s2 = Sheets("sonuc")
s2.[c3:ag40].ClearContents
For a = 2 To s1.[a65536].End(3).Row
sat = Day(s1.Cells(a, "a")) + 2
sut = Day(s1.Cells(a, "b")) + 2
s2.Cells(sat, sut) = 1 + s2.Cells(sat, sut)
Next
End Sub
[/vb:1:7d75a5bb3b]

 

[ouney06]

leventm, dediğim gibi, ne varsa sende var. çok teşekkür ederim. eline sağlık, yalnız satırın toplamını en sonda AF sütununa yazmasını nasıl önleyebilirim?

 

[ouney06]

s2.[af3:af33].ClearContents
For i = 3 To 33
For j = 3 To 200
If s1.Cells(j, 11) = s2.Cells(i, 1) And s1.Cells(j, 19) = "30.05.2006" Then
say = say + 1
s2.Cells(i, 32) = say
End If

Next
Next

uzun bir yol oldu gerçi ama 30.05.2006 tarihine gelen istemediğim bilgileri bu şekilde temizleyebildim.

Yardımlarınıza teşekkür ederim

Saygılar