Yatay ve Dikey Saydırma

Katılım
29 Nisan 2006
Mesajlar
57
Excel Vers. ve Dili
2003 Türkçe
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

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Mesela AH hücrenize =BAĞ_DEĞ_SAY(C3:AG3) yazarak günlere göre sipariş sayısı toplamı işinizi görürmü
 
Katılım
29 Nisan 2006
Mesajlar
57
Excel Vers. ve Dili
2003 Türkçe
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

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Makrosuz formülle alternatif çözüm;
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Katılım
29 Nisan 2006
Mesajlar
57
Excel Vers. ve Dili
2003 Türkçe
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?
 
Katılım
29 Nisan 2006
Mesajlar
57
Excel Vers. ve Dili
2003 Türkçe
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
 
Üst