Tevziata Göre Toplamını Almak

[ormann]

İyi günler ekli örnek dosyada B3:B50 hücre aralığında ağaçların dip numaraları var .C3:C50 arasında ağaçların cinsi ve D350 arasında ise ağaçların toplam m3 leri var.Benim yapmak istediğim G5 hücresine ağaçların başlangıç dip numarasını ;H5 hücresine ağaçların bitiş dip numarası ;I5 hücresinden ise ağacın cinsini seçtiğimizde J5 hücresine G5 ile H5 hücresi arasındaki seçilen ağaç cinslerinin M3 toplamını J5 hücresine ;I5 hücresini boş bıraktığımızda ise tüm ağaç cinslerinin toplam m3 ünü aldirabilir miyiz ?.Yardımlarınızı bekliyorum.Saygılar
http://dosya.co/3h0qnt31ydic/tevziat.xls.html

 

[çıtır]

Dosyanız;
http://s9.dosya.tc/server2/xy5ksx/Agac.rar.html

 

[ormann]

Ofis 2003 versiyonunda çalışmadı

 

[ormann]

Sayın Çıtır 2003 te çalışmadı.Siz Başlangıç-Bitiş tarih kısımlarına formül koymuşsunuz.Buradaki başlangıç ve bitişlerini istediğimiz şekilde değiştirme yapabileceğiz.Mesela
Başlangıç-Btişi:8-20
Başlangıç Bitişi:28-50
Gibi

 

[PLİNT]

Sayın Çıtır 2003 te çalışmadı.Siz Başlangıç-Bitiş tarih kısımlarına formül koymuşsunuz.Buradaki başlangıç ve bitişlerini istediğimiz şekilde değiştirme yapabileceğiz.Mesela
Başlangıç-Btişi:8-20
Başlangıç Bitişi:28-50
Gibi

Merhaba
Aşağıdaki gibi deneyin.
http://s9.dosya.tc/server2/yij8hv/tevziat.zip.html

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$5" Then Exit Sub
x = Cells(Rows.Count, "B").End(3).Row
If Target.Value = "" Then [J5] = Application.Sum(Range("D3:D" & x)): [G5:H5] = "": Exit Sub
[J5] = WorksheetFunction.SumIf(Range("C3:C" & x), [I5].Text, Range("D3:D" & x))
On Error Resume Next
[G5] = Cells(Range("C1:C" & x).Find([I5], , , , , xlNext).Row, "B")
[H5] = Cells(Range("C1:C" & x).Find([I5], , , , , xlPrevious).Row, "B")
If Err > 0 Then [G5:H5] = "": Err = 0
End Sub[/SIZE]