eğer,yatay ve düşey aramanın beraber kullanımı

akisa33 · 24 Nisan 2008

merhaba arkadaşlar,işyerinde kullanmak için tüik hayvancılık verilerinden değerleri toplamam gerekiyor,formülle yapmak istiyorum ama olmadı.
dosyayı ekte veriyorum,istenenler şunlar:
yıllara göre illerin toplam hayvan sayıları.
yapmak istediğim:
tabloda 2002-2003... yıllarına ait koyun sığır sayıları var,bu sayılarda 2-3 farklı kalemde yerli-melez gibi yazılmış.

a sütununda yıllar
b de hayvan kodu
c de hayvan türü
d de hayvan sayısı yazıyor

almak istediğim sonuç şu:

2002 yılına ait verilerden sığır (melez) ve sığır (yerli) olan hayvan sayısı toplamı
2003 yılına ait verilerden sığır (melez) ve sığır (yerli) olan hayvan sayısı toplamı
2004 yılına ait verilerden sığır (melez) ve sığır (yerli) olan hayvan sayısı toplamı
2002 yılına ait verilerden koyun(merinos) ve koyun (yerli) olan hayvan sayısı toplamı.......vs.
şeklinde.
basit bir şey ama 81 il var,her ilin yıllara göre hayvancılık sütunları farklı,örneğin 2002 de koyun merinos var,2004 de yok,sütun olarak da yer almıyor;0 değeride yok yani.2002 yılı için 15 satır veri 2003 için 10,2004 için 18 gibi.
sabit olan isimler ,onları da ara bul yaptırmak gerekiyor.
birde bu formülü kopyala yapıştır yapmam gerekiyor.

biraz uzun oldu,ilgilenen arkadaşlara teşekkürler.

İdris SERDAR · 24 Nisan 2008

Dosyannız ekte.

En uygunu Pivot Table - Özet Tablo ile yapmaktır.

..

Dosya güncellendi.

..

akisa33 · 24 Nisan 2008

teşekkürler yurttaş,bunu denedim ama sığır (kültür)+ sığır (melez) ,koyun yerli + koyun merinos toplamını otomatik alamıyorum.

İdris SERDAR · 24 Nisan 2008

akisa33' Alıntı:
teşekkürler yurttaş,bunu denedim ama sığır (kültür)+ sığır (melez) ,koyun yerli + koyun merinos toplamını otomatik alamıyorum.

Dosya güncellendi.

..

İdris SERDAR · 24 Nisan 2008

Özel Mesajla:

"sayfa birleştirme

--------------------------------------------------------------------------------

merhaba,başka bir konuda bilgi almak istiyorum:
sizin yaptığınız dosyadaki gibi sayfaları nasıl birleştirebilirim?
birde birleştirirken verileri seçerek alabilirmiyim?

teşekkürler"

sorusuna yanıt.

Aşağıdaki kodlarla bir kitaptaki sayfaları "veritabanı" sayfasında toplayabilirsiniz.

Kodlar alıntıdır.

Option Explicit

Sub CopyUsedRangeValues()
Dim sh As Worksheet
Dim DestSh As Worksheet
Dim Last As Long
If SheetExists("veritabanı") = True Then
MsgBox "The sheet Anasayfa already exist"
Exit Sub
End If
Application.ScreenUpdating = False
Set DestSh = Worksheets.Add
DestSh.Name = "veritabanı"
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> DestSh.Name Then
If sh.UsedRange.Count > 1 Then
Last = LastRow(DestSh)
With sh.UsedRange
DestSh.Cells(Last + 1, 1).Resize(.Rows.Count, _
.Columns.Count).Value = .Value
End With
End If
End If
Next
Application.ScreenUpdating = True
End Sub

Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function

Function Lastcol(sh As Worksheet)
On Error Resume Next
Lastcol = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Column
On Error GoTo 0
End Function
Function SheetExists(SName As String, _
Optional ByVal WB As Workbook) As Boolean
On Error Resume Next
If WB Is Nothing Then Set WB = ThisWorkbook
SheetExists = CBool(Len(Sheets(SName).Name))
End Function

..

akisa33 · 24 Nisan 2008

yurttas teşekkürler,yapmaya çalıştığım buydu,son bir sorunum kaldı:size gönderdiğim dosya boyutu foruma yükleme sınırını aştığı için ben illerin bir kısmını silmiştim.tüm illerin olduğu dosyaya bunu ben uygulayabilirmiyim?dosyayı size mi göndereyim?birde verilerden at,deve gibi sütunların gösterilmemesi mümkünmü?

İdris SERDAR · 24 Nisan 2008

akisa33' Alıntı:
yurttas teşekkürler,yapmaya çalıştığım buydu,son bir sorunum kaldı:size gönderdiğim dosya boyutu foruma yükleme sınırını aştığı için ben illerin bir kısmını silmiştim.tüm illerin olduğu dosyaya bunu ben uygulayabilirmiyim?dosyayı size mi göndereyim?birde verilerden at,deve gibi sütunların gösterilmemesi mümkünmü?

1. Yukarıdaki kodlarla kitapta yer alan tüm illere ait sayfaları "veritabanı" sayfasına aktarabilirsiniz.

2. Pivot Table - Özet Tablo oldukça elverişli, esnek bir yapısı vardır. Bunu öğrenin.

3. Veriler oluşunca Pivot Table - Özet Tablo'nun baktığı alanı yeniden ayarlamanız gerekir.

4. Bu Tablo üzerinde istemediklerinizi görebilir veya görmeyebilirsiniz. İster il bazında ister hayvan bazında ister yıl bazında veya hepsini neyi görmak veya görmemek istiyorsanız bu tablo ile oynayarak yapabilirsiniz. Onun için bu tabloyu biraz kurcalayın derim.

.

akisa33 · 24 Nisan 2008

tamam yurttas,uğrasıyorum tablo üzerinde.
kodu çalıştırdım,sayfaları birleştirdim,özeti de aldım ama sizinki gibi olmadı,deniyorum.yıl-cins bölümü sizinkine uymadı bir türlü.

akisa33 · 24 Nisan 2008

biraz oldu gibi,çalışıp geliştirmem lazım.

eğer,yatay ve düşey aramanın beraber kullanımı

akisa33

İdris SERDAR

Moderatör

akisa33

İdris SERDAR

Moderatör

İdris SERDAR

Moderatör

akisa33

İdris SERDAR

Moderatör

akisa33

akisa33