Aylara göre topla.çarpım formülü...

[Halit TÜRK]

Merhabalar...

=TOPLA.ÇARPIM(--(tarih>=D$3);--(tarih<E$3);--(model=$C4)) bu formül ile sonuç alabiliyorum.

=TOPLA.ÇARPIM(--(tarih>=D$4);--(tarih<E$4);--(özel="*"& $C12 &"*")) bu formülle ise sonuç alamıyorum. topla.çarpım formülünde içerir özelliği kullanılamıyormu.. etopla ile içerir özelliğini kullanabiliyorum ama aylara göre nasıl olur onu bilemiyorum. Yardımlarınız için teşekkürler...

 

[hamitcan]

Dosyan&#305;z&#305; ekler misiniz?

 

[msanli]

bu iş için ben de baya uğraşmıştım. ekli dosyadaki sayfa 1'e girdi yapıyorsun. sayfa ikide tarih aralığını sectiğin zaman o tarih aralığındaki verileri topluyor. sayfa 3'te ise özet bir tablo oluşturuyor. Umarım işine yarar.

 

[Halit TÜRK]

Dosya eklidir...

Yapamad&#305;&#287;&#305;m 10HaneliSeriNo sayfas&#305;nda D s&#252;tunundan ve &#231;oklu verinin i&#231;inden almak...

 

[hamitcan]

M12 =

=TOPLA.ÇARPIM(--(tarih>=M$4);--(tarih<N$4);--DEĞİL(EHATALIYSA(BUL(C12;özel))))

Not:Tarih aralığı verirken (M4 ve N4 hücrelerindeki tarih değerleri vb.), dikkat etmelisiniz. Yoksa doğru sonuç alamazsınız.

 

[Halit TÜRK]

Te&#351;ekk&#252;rler... Birde bu form&#252;l&#252; makro olarak nas&#305;l uygulayabilirim... &#199;ok form&#252;l olunca &#231;al&#305;&#351;mak zorla&#351;&#305;yor...

 

[hamitcan]

T&#252;m h&#252;crelere mi uygulamak istiyorsunuz ?

 

[Halit TÜRK]

=TOPLA.&#199;ARPIM(--(tarih>=C$4);--(tarih<D$4);--DE&#286;&#304;L(EHATALIYSA(BUL($B5;model))))
C5:N70 aral&#305;&#287;&#305;na uygulanacak...

 

[hamitcan]

U&#287;ra&#351;t&#305;m ama &#351;imdilik uyarlayamad&#305;m. &#220;zerinde biraz daha d&#252;&#351;&#252;nmem gerekiyor.

 

[Halit TÜRK]

Yine de te&#351;ekk&#252;rler...

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ? Aslında Evaluate yöntemi ile yapmaya çalıştım ama beceremedim. Belki bilen arkadaşlar çıkar. Ben de bilgi edinirsem, bu başlıkta yazarım.

Sub Makro2()
    [d5:o32] = "=SUMPRODUCT(--(tarih>=R4C[-1]),--(tarih<R4C),--NOT(ISERROR(FIND(RC3,model))))"
    [d5:o32] = [d5:o32].Value
End Sub

 

[Halit TÜRK]

Maalesef hesaplayamadan 0 yaz&#305;yor.. Bu makronun benzerini denemi&#351;tim, makro kaydet ile f2 ile h&#252;creyi aktif edip enter ile tamamlay&#305;p daha sonra &#246;zel yap&#305;&#351;t&#305;r &#246;zelli&#287;i ile kaydederek ama olmad&#305;.. Te&#351;ekk&#252;rler..

 

[Halit TÜRK]

Ge&#231;ici bir &#231;&#246;z&#252;m buldum... Evaluate y&#246;ntemine uygulayabilseydim, daha g&#252;zel olacakt&#305;...

Sub Analiz()
Application.ScreenUpdating = False
[d529] = "=SUMPRODUCT(--(tarih>=R4C),--(tarih<R4C[1]),--NOT(ISERROR(FIND(RC3,model))))"

[d529].Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = False
End Sub