Skip to main content

AccessTr.neT


Kod ile özet tablo

Kod ile özet tablo

Çözüldü #1
Sn Üstadlar ekteki Excel programında Kesin sayfasından Güncelle butonu ile SK10, SK12 , SK16..... sayfalarına otomatik olarak veri aktarıyorum. Bu verilere dayanarak özet tablo yapıyorum. (Örnek Ö_SK10 )

1-Sorun şu direkt olarak SK10, SK12... tablolarına gerek kalmadan Kesin sayfasından kod ile aynı kriterlerle özet tablo yapabilir miyiz? Bir örneğini yaparsanız ben diğerlerini eklerim.

2-Aynı satırda en fazla kaç kriter kullanabiliriz. Ben şu anda 2 kriter kullanabildim.

Şimdiden ilgilenecek herkese teşekkürler.

.rar TTFozet.rar (Dosya Boyutu: 711,59 KB | İndirme Sayısı: 28)
Cevapla
Çözüldü #2
Sn derebeyi,

Konuyu biraz açarmısınız.VBA kodları kullanarak sonuca gidilebilir.İstediklerim.

1.Ana tablo yanı veri tablosu olsun,
2.Sonuç tablosu olsun
3.Sonuca ulaşmada aranan kriterler olsun

Bu üç maddeyi bildirirseniz sonuca gidecek Vba kodunu yazayım.

İyi çalışmalar...

Please return your positive or negative ...
Cevapla
Çözüldü #3
Sn Horozufuk ilginiz için teşekkürler...

Örnek eklentide;
1-Ana tablo ....Kesin sayfası

2-Sonuç tablosu... O_SK10 sayfası

3-Kriteler için ayrı ayrı özetsayfası olacak
Ebat <12 olanlar ;Not diğer sayfalar için =12; =16 ; >16 ( 4 tane sayfa olacak SK10; SK12 ;SK16 ve SK40)
Ür.Yeri SK ;

Ür.Yeri GK için ebat kriterine gerek yok sadece GK olanlar

Sıralama

Tarih.... azalan
Resim no ....artan

Daha detaylı açıklama gerekirse; ancak akşam yapabilirim.

Kolay gelsin.





Son Düzenleme: 24/09/2010, 14:08, Düzenleyen: derebeyi.
Cevapla
Çözüldü #4
Sn:derebeyi
Rapor sayfası oluşturarak yada sayfalarınız sabit ise Rapor yerine kendi sayfa adını yazarak kodu kendinize göre düzenleyiniz.

Private Sub CommandButton1_Click()
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheets("Kesin")
Set sh2 = Sheets("Rapor")
sh2.Range("A3:H65536").ClearContents
sh1.Range("A1").AutoFilter
sh1.Range("A1").AutoFilter Field:=1, Criteria1:=">1", Operator:=xlAnd, Criteria2:="<12"
sh1.Range("A1").AutoFilter Field:=2, Criteria1:="SK", Operator:=xlAnd
sh1.Range("A1").CurrentRegion.Copy sh2.Range("A1")
sh1.Range("A1").AutoFilter
End Sub
Cevapla
Çözüldü #5
Sn Olcay Bey ilginiz için teşekkürler. Sizin yazdığınız kodlar çalışıyor. Fakat; benim istediğim özet tablo veya rapor. O_SK10 sayfasındaki gibi. Özet sayfasına bakarsanız, önce Ebadına göre, sonra resim no suna göre satırlar , tarihlere göre de sütunlar oluşuyor. Özet tablo sihirbazı ile kolaylıkla yapabiliyorum. Ancak istediğim SK10, SK12, SK16, SK40, GK... Sayfaları yerine O_SK10 daki gibi özet tabloları tek tuşla oluşturup güncelleyebilmek istiyorum. Örneği incelerseniz GÜNCELLE butonu ile bütün bu sayfalar güncellenmektedir.

Teşekkürler...
Son Düzenleme: 24/09/2010, 23:31, Düzenleyen: derebeyi.
Cevapla
Çözüldü #6
Sn derebeyi,

Ekteki örneği incelermisiniz.

Güncelle komutunu çalıştırmadan önce Ö_SK11 sayfasına bakınız.

Güncelle komutundan sonra Ö_SK11 sayfası dolacaktır. Biçimlendirmelerle uğraşmadım sanırım siz halledersiniz.
.rar TTFozet.rar (Dosya Boyutu: 719,15 KB | İndirme Sayısı: 26)
Please return your positive or negative ...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task