İşimi kolaylaştıracak bir fonksyon arıyorum...

[Atoll]

Merhaba Arkadaşlar...

Başlıkta yazdığım gibi bir fonksyon arıyorum...

ilişkiyede bir örnek koydum...

Değişik tip kablolar var... ben sadece tiplerini başka bir tabloya yazılmasını istiyorum...
Bunu filtrasyon fonksyonla yapabiliyorum ama çok zamanımı alıyor...
Tek tek yapmak zorunda kalıyorum...
Dikkatsiz olunca bazılarını atlayabiliyorum...

Bilmiyorum isteğimi anlatabildim mi ?
Eke koyduğum tabloya bakasanız eğer belki daha iyi anlayabilirsiniz...

Bu tablo elbette basitleştirilmiş versiyondur...
Böyle sayfalarca oluyor ve bu günler sürebiliyor...
Dolaysıyla konsantre olmadığında hatalar oluşabiliyor...

Lütfen yardımcı olursanız sevinirim...

Saygılar
Ata

 

[uzmanamele]

Merhaba

Buraya Bakınız.
ÖZET TABLOLAR (PİVOT TABLE)

 

[Atoll]

Sayın Uzmanamele,
Verdiğiniz link çok yararlı bilgiler içeriyor ve Sayın Yurtaşı iyi bir çalışma yapmış. Kendilerini buradan tebrik ediyorum ve teşekkür ediyorum...

Çok detaylı çalışığ incelemem gerekiyor. Çok ileri seviyedeki Excel kulanıcılara mahsus...
Şuan beni aşıyor...

Muhtemelen benim ihtiyacımı karşılayan fonksyonlar mevcuttur ama ben kaçırmış olabilirim...


Daha kolay anlaşılan ve ihtiyacımı karşılayan bir fonksyon yada anlatım daha tavsiye edebilirmisiniz...
Yada verdiğim dosyaya bir çalışma yapıp ben onu incelesem, sanki daha kolayıma gelecek...

 

[uzmanamele]

Sayın Uzmanamele,
Verdiğiniz link çok yararlı bilgiler içeriyor ve Sayın Yurtaşı iyi bir çalışma yapmış. Kendilerini buradan tebrik ediyorum ve teşekkür ediyorum...

Çok detaylı çalışığ incelemem gerekiyor. Çok ileri seviyedeki Excel kulanıcılara mahsus...
Şuan beni aşıyor...

Muhtemelen benim ihtiyacımı karşılayan fonksyonlar mevcuttur ama ben kaçırmış olabilirim...


Daha kolay anlaşılan ve ihtiyacımı karşılayan bir fonksyon yada anlatım daha tavsiye edebilirmisiniz...
Yada verdiğim dosyaya bir çalışma yapıp ben onu incelesem, sanki daha kolayıma gelecek...

Merhaba
Fonksiyonla elbette yapılır, ancak bu işi özet tablonun işidir.
Eki ve önerdiğim linki inceleyin.

 

[Atoll]

Teşekkür ediyorum..
İnceliyorum...

 

[tahsinanarat]

Benzersiz verileriniz Sheet2 e aktarılıyor

Sub OzetAl()
    Dim d As Object, a1, deg, i As Long
    Set d = CreateObject("Scripting.Dictionary")
 
    Application.ScreenUpdating = False
    
    Sheets("Sheet2").Select
    Range("A2:C" & Rows.Count).ClearContents
      Sheets("Sheet1").Select
  
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
       deg = Cells(i, "A") & "|" & Cells(i, "B") & "|" & Cells(i, "c")
       If Not d.exists(deg) Then
           d.Add deg, Nothing
       End If
    Next i
    a1 = d.keys
    Sheets("Sheet2").Select
    For i = 0 To d.Count - 1
        Cells(i + 2, "A") = Split(a1(i), "|")(0)
        Cells(i + 2, "B") = Split(a1(i), "|")(1)
        Cells(i + 2, "C") = Split(a1(i), "|")(2)
   Next i
    Set d = Nothing
    Application.ScreenUpdating = True
End Sub

 

[tahsinanarat]

Örneğinizdeki gibi sıralamayı elde etmek istiyorsanız

Sub OzetAl()
    Dim d As Object, a1, deg, i As Long
    Set d = CreateObject("Scripting.Dictionary")
 
    Application.ScreenUpdating = False
    
    Sheets("Sheet2").Select
    Range("A2:C" & Rows.Count).ClearContents
      Sheets("Sheet1").Select
  
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
       deg = Cells(i, "A") & "|" & Cells(i, "B") & "|" & Cells(i, "c")
       If Not d.exists(deg) Then
           d.Add deg, Nothing
       End If
    Next i
    a1 = d.keys
    Sheets("Sheet2").Select
    For i = 0 To d.Count - 1
        Cells(i + 2, "A") = Split(a1(i), "|")(0)
        Cells(i + 2, "B") = Split(a1(i), "|")(1)
        Cells(i + 2, "C") = Split(a1(i), "|")(2)
   Next i
    Set d = Nothing
    Application.ScreenUpdating = True
[A2:C65536].Sort Key1:=[A2], Key2:=[C2], Key3:=[B2]
End Sub

 

[Atoll]

Merhaba
Fonksiyonla elbette yapılır, ancak bu işi özet tablonun işidir.
Eki ve önerdiğim linki inceleyin.

Drop Data items here
ve
Drop Column fields here

Böyle bir yazı çıkıyor...


Bu yazılar ne işe yarıyor ve belirli yer kaplıyor... onları nasıl yok edebilirim ?
Ayrıca "Data Area" add ettikten sonra yukarıdaki yazı gidiyor ama yan kolona toplamın gösteriyor... Bu da silinmiyor...

 

[Atoll]

...
...

Tahsin Bey, çok teşekkür ederim ama "Makro" codlarına girmek istemiyorum...
Benim normal tablom daha uzun ve daha komplike...

Makro codları şimdi benim orjinal listeme uyarlaması beni çok yorar...
Makro kodlara hakim olmak lazım...
Bende o tecrübe yok...

Ama emeğiniz ve ilginiz için size yinede teşekkür ederim...


Saygımla
Ata

 

[tahsinanarat]

Haklısınız, biraz zahmetli iş, kodları kopyala, modüle yapıştır bunu bir butona ata sonra tıkla, bencede biraz yorucu

 

[Atoll]

Haklısınız, biraz zahmetli iş, kodları kopyala, modüle yapıştır bunu bir butona ata sonra tıkla, bencede biraz yorucu

Hayır yanlış anladınız...
Nasıl anlatim...

Örneğe sundum basit bir tablodu...
Orjinal tablom daha uzun ve kolanları öyle birbirine bitişik değiller...
Ayrıca bir kaç ilave kolonları daha var...

Sizin kodları kullanabilmem için anlamam lazım...
Malesef anlamıyorum...

 

[tahsinanarat]

Sn. Atoll, almak istediğiniz özet tabloyu aynı sayfayamı alacaksınız, yoksa farklı bir sayfaya mı alacaksınız. Bunlara bir açıklık getirin, eğer aynı sayfa ise hangi sutundan başlayacak.

 

[Necdet]

Merhaba,

Basit bir yol önereyim. Biraz Fonksiyon biraz emek gücü

D2

=TOPLA.ÇARPIM(($A$2:A2=A2)*($B$2:B2=B2)*($C$2:C2=C2))

Fonksiyonu aşağıya doğru kopyalayın.

D sütununda 1 hariç diğerlerin süzdürerek silin.

 

[Atoll]

Pivot Table fonksyonu bi şekilde ihtiyacımı karşıladı gibi gözüküyor...
Biraz uğraştırdı ama fena olmadı...

Herkese teşekkür ederim...
Sağlıkça kalın...
Ata..