filtreleme ile istenilen değerleri başka bir sayfaya aktarma?

[manisali16]

merhaba arkadaşlar.daha öncede filtreleme ile ilgili konuma yardımcı olmuştunuz yardımcı olan arkadaşlara ben bir kez daha teşekkür ederim.şimdi ki sıkıntıma gelirsem.

olayı kısaca şöyle özetleyeyim bir tane üretim tablom var.bu tablomda tarih,plaka,irsaliye no, üretici,kg vs... diye giden 11 tane sütunum var.benim için burada kilit rol oynacak sütün ÜRETİCİ.şimdi ben istiyorum ki "üretim" isimli çalışma kitabımda iki tane çalışma sayfası yer alsın(bu sayfalar artabilir). sayfalardan birinde bahsini ettiğim 11 sütundan oluşan verilerim var.ve o veriler sürekli eklenerek çığ gibi büyüyor.ikinci sayfama da istiyorum ki misal üretici adı "Ali Şahin", ben ikinci sayfada üretici diye bir alan açtım.Ali Şahin ismini ben buradaki sütuna yazdığım an da bana doğrudan Ali şahin ismine kayıtlı ilk çalışma sayfasında yer alan tüm verileri tek tek bu ikinci sayfa getirecek.

aslında daha net söylemek gerekirse ilk sayfa da var olan veriler sevk irsaliyesinde yazan verileri taşımakta.bu yüzden üretici isimleri her sevk irsaliyesinde ya var oluyor ya olmuyor ama farklı satırlarda ve tarihlerde mutlaka verileri bulunuyor.bende istiyorum ki bunu düzenli bir şekilde ikinci sayfaya aktarabileyim.ilk sayfadaki aynı alan isimleri ikinci sayfa da yer alacak ve ben üretici ismini girdiğim anda bana onun verilerini çekecek.

bilmiyorum çok mu karmaşık anlattım ama bir tane örnek dosya attım.iki çalışma sayfasından oluşan ilk çalışma sayfasını görün ve ne istediğimi belki o zaman anlatabilirim size

 

[Necdet]

Merhaba,

Aşağıdaki linkler işinizi görebilir, inceleyiniz.


Diğer Sayfaya Süzerek Veri Getirmek

Sayfalararası Veri Aktarımı

 

[manisali16]

Merhaba,

Aşağıdaki linkler işinizi görebilir, inceleyiniz.


Diğer Sayfaya Süzerek Veri Getirmek

Sayfalararası Veri Aktarımı

öncelikle size teşekkür ederim hocam.örnek olarak verdiğiniz linkler benim aradığım şeyleri içeriyor yalnız benden kaynaklanan bir sorun var ki işte burada sizin insiyatifinize kalıyor durum

olay şu ki ben exceli basit tablolar vs... oluşturmak için kullanıyorum.excelin acemilerindenim ve hayatımda hiç makrolarla çalışmadım.programlama mantığını az çok çözdüm verdiğiniz linklerdeki fakat kendime uyarlamada nasıl yapabilirim onu bilmiyorum işte :s

durumu kısaca özetlemek gerekirse ekteki örnekte 11 adet sütun var. E sütununda yer alan "Üretici" başlıklı alanda filtreleme uyguladığım anda aynı sayfada ben seçtiğim üreticiden hangi tarhilerde mal gelmiş, ne kadar gelmiş, malın cinsi, nemi vs... orada yer alan tüm sütundaki bilgileri alabiliyorum.

böyle yaptığım zaman ise sadece ortada bir görüntü oluyor uygulanabilirlik yok.ben istiyorum ki seçtiğim üretici ismine göre filtreleyip karşıma sonuçları getirdiğinde seçili olan üreticiye ait farklı satırlarda yer alan tüm bu bilgileri başka bir sayfaya aynı tablo özellikleri ile atsın.oraya attıklarını da ben kendim alıp belli formata sokup çıktısını alırım.mesele seçili olan üreticiye ait farklı satırlardaki bilgileri başka bir sayfada alt alta aynı formatta toplamak :s

çok mu karmaşık anlattım bilmiyorum ama bu hususta benim gibi acemi birine yardımcı olursanız çok çok minnettar kalırım size hocam saygılarımla

güncel yeni bir örnek attım ekte mevcut

 

[Merhum İdris SERDAR]

.

Bir de buradaki örnekleri inceleyiniz:

http://www.excel.web.tr/f119/verileri-lgili-sayfalara-formul-makro-ile-daoytylmasy-t20271.html

.

 

[manisali16]

.

Bir de buradaki örnekleri inceleyiniz:

http://www.excel.web.tr/f119/verileri-lgili-sayfalara-formul-makro-ile-daoytylmasy-t20271.html

.

çok özür dilerim verdiğiniz örnek benim istediklerimle uyumlu gibi görülüyor.incelediğimde aradığım şeyleri bana verebileceğini gördüm.

yalnız cahilliğime verin lütfen örnek dosyada açıklama sayfasına "Insert > Name > Define'dan WSN diye bir ad tanımlayıp "Refers to:"

diye bir yazı var.anlamadığım nokta da tam burası Türkçe karşılıklarla ne yapacağımı anlatmanızı istersem ayıp etmiş olmam umarım office 2007 kullanıyorum bu arada.

ilginiz ve sabrınız için teşekkür ederim ayrıca

 

[Merhum İdris SERDAR]

çok özür dilerim verdiğiniz örnek benim istediklerimle uyumlu gibi görülüyor.incelediğimde aradığım şeyleri bana verebileceğini gördüm.

yalnız cahilliğime verin lütfen örnek dosyada açıklama sayfasına "Insert > Name > Define'dan WSN diye bir ad tanımlayıp "Refers to:"

diye bir yazı var.anlamadığım nokta da tam burası Türkçe karşılıklarla ne yapacağımı anlatmanızı istersem ayıp etmiş olmam umarım office 2007 kullanıyorum bu arada.

ilginiz ve sabrınız için teşekkür ederim ayrıca

2003 için:

Insert / Name / Define
Ekle / Ad / Tanımla

Refers to:
Başvuru yeri:


Excel 2007 ve 2010 için:

Name Manager'e bakın.

Türkçesi Ad yöneticisi olabilir mi?

.

 

[Necdet]

Merhaba,

Aşağıdaki kodların dosyanıza uyarlanmış halini inceleyiniz.
Önce ilgili firmayı süzdüreceksiniz, sonra butona basacaksınız.

Sub Suz_Aktar()
 
    Dim i   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("örnek")
    Set s2 = Sheets("gelen data")
    
    s1.Select
    
    If s1.AutoFilterMode = False Then
        MsgBox "Süzme İşlemini Gerçekleştirmemişsiniz...", vbCritical, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
        Exit Sub
    End If
    
    i = s2.Cells(Rows.Count, "A").End(3).Row + 1
    s2.Range("A" & i & ":K" & i).ClearContents
    
    Range("A3").CurrentRegion.Copy s2.Range("A4")
    
    s2.Rows("4:6").Delete
    
End Sub

 

[manisali16]

Merhaba,

Aşağıdaki kodların dosyanıza uyarlanmış halini inceleyiniz.
Önce ilgili firmayı süzdüreceksiniz, sonra butona basacaksınız.

verdiğiniz ekte dosya için çok teşekkür ederim tam işimi gören bir makro.size zahmet verdim hakkınızı helal edin

şu aşamada sorunsuz bir şekilde kullanabiliyorum.sadece meraktan sormak istediğim bir sorum var.makro yerine bu işi formülle halletmenin yöntemini de belirtmişsiniz o konunuzda.bu alanları kapsayan ve sağlıklı çalışan bir formül yazmak mümkün mü acaba )


ilginiz ve yardımınız için bir kez daha teşekkür ederim

 

[Necdet]

.makro yerine bu işi formülle halletmenin yöntemini de belirtmişsiniz o konunuzda.bu alanları kapsayan ve sağlıklı çalışan bir formül yazmak mümkün mü acaba )

ilginiz ve yardımınız için bir kez daha teşekkür ederim

Bunu yapacak formülü yazacak bilgiye sahip değilim

 

[manisali16]

Bunu yapacak formülü yazacak bilgiye sahip değilim

yine de ilgi ve alakanız için teşekkür ederim.göndermiş olduğunuz makro işimizi fazlasıyla görücektir.zamanınızı fazlasıyla çaldım sanırım arada sırada başınızı ağrıtabilirim belki şimdide kusura bakmayın iyi günler iyi çalışmalar dilerim

 

[kemal turan]

Necdet bey,
İşletmelerde çalışıpta excel kullanan binlerce kişinin ihtiyacını görecek örnek bir çalışma.
Ellerinize sağlık.

 

[snntnl]

Filitrelenen Değerleri Başka Sayfada Hesaplama

Selam arkadaşlar benimde şöyle bir sorunum var. Şimdi ekde yolladığım dosyada Üretim Takip adlı sayfada makine kodu olarak listeyi süzdüğümde bir sonraki sayfada o makine(örnek:1-001-140) kesime harcanan toplam süreyi imalat montaja harcanan süreyi hesaplanmış olarak görmek istiyorum yardımlarınızı bekliyorum

 

[cems]

1-005-110 09-00 montaj temizlik-toplama
1-005-110 09-00 montaj klavuz çekme-Büküm
1-005-110 09-00 montaj pnomatik bağlantı

Bazı makina kodlarınızda birden fazla işlem var ama özet sayfanızda tek işlem hücresi var. Bu durumda ne olması gerekiyor?

Ayrıca yeni bir başlık altında sorunuzu yayınlarsanız cevap olasılığı çok daha yüksek olur.

 

[cems]

Dosyanız ekte 3 makina kodu için Vba da aktarma kodları hazır, diğer makina kodları için devam edebileceğiniz açıklamalar dosya üstündedir.
Yanlız daha önce de uyardığım gibi ; bir makina kodunda birden fazla işlem olanlar var ve ilk işlemi+zamanı alacağından hatalı sonuçlanmaya açıktır. Lütfen birden fazla işlemde ne olacağına dair bir mantık bildirin.

 

[snntnl]

Ben herhangi bir makine kodunu süzdüğümde 2. sayfada sadece o makine koduna ait bilgiyi görmek istiyorum. Mesela 1-001-140 nolu makineyi 1. sayfada süzdüm ikinci sayfada A1 de 1-001-140 yazıcak B1 de örnek kesim C1 de toplam süresi B2 de montaj C2 de toplam süresi

 

[faraklitantere]

benimde aynı sorunum var. şöyle bir fark var. ben her filtrelediğim değerden kaçtane varsa o değerin ve bilgilerin olduğu tabloyu filtrelenmiş halde yeni bir sayfaya kopyalamak istiyorum. mahalle adına göre yapacağım. yaklaşık 300 tane mahalle var. her mahalleyi filtreleyip bilgilerini yeni bir sayfaya veya excel dosyasına kaydetmek istiyorum. yani ana veri tablosunu mahalleye göre kaç mahalle varsa o kadar parçaya ayırmak istiyorum

 

[Ömer BARAN]

Merhaba,

Aşağıdaki kodların dosyanıza uyarlanmış halini inceleyiniz.
Önce ilgili firmayı süzdüreceksiniz, sonra butona basacaksınız.

Sub Suz_Aktar()
 
    Dim i   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("örnek")
    Set s2 = Sheets("gelen data")
    
    s1.Select
    
    If s1.AutoFilterMode = False Then
        MsgBox "Süzme İşlemini Gerçekleştirmemişsiniz...", vbCritical, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
        Exit Sub
    End If
    
    i = s2.Cells(Rows.Count, "A").End(3).Row + 1
    s2.Range("A" & i & ":K" & i).ClearContents
    
    Range("A3").CurrentRegion.Copy s2.Range("A4")
    
    s2.Rows("4:6").Delete
    
End Sub

Merhabalar Sayın AYHAN,
bu konudaki 7 no'lu mesajınızda yer alan yukarıdaki kod ve örnek dosya ile ilgili iki sorun var, nasıl çözmek lazım acaba?

Birincisi, ilk adımda örneğin J sütununu AACCEL olarak südükten sonra düğmeye tıklayınca (süz sonrası kalan veri satır adeti:26) veriler diğer sayfaya aktarılıyor, ikinci adımda aynı sütunu bu kez HELEN olarak süzünce kalan satır adeti 11, düğmeye tıklandığında önceki 26 kaydın ilk 11'inin üstüne yeni süzülenler yazılırken, bir önceki süzden kalan 12-26'ncı satırlardaki veriler duruyor.

Çözümü için ne yapmak lazım acaba?

İkincisi, klavyeden Ctrl+End tuşlarına basınca, mevcut son satıra değil, daha evvel kullanılmış olan satırlar da doluymuş gibi daha aşağılarda bir satıra gidiliyor.

Bunun çözümü için ne yapılmalı acaba?

 

[Korhan Ayhan]

Kodu yazan Necdet beydir.

Sanırım isimler karıştı...

Kodu aşağıdaki gibi düzelip deneyiniz.

Sub Suz_Aktar()

    Dim i   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("örnek")
    Set s2 = Sheets("gelen data")
    
    s1.Select
    
    If s1.AutoFilterMode = False Then
        MsgBox "Süzme İşlemini Gerçekleştirmemişsiniz...", vbCritical, "N. YEŞERTENER --> www.excel.web.tr"
        Exit Sub
    End If
    
    i = s2.Cells(Rows.Count, "A").End(3).Row + 1
[COLOR="Red"]    s2.Range("A4:K" & i).ClearContents
[/COLOR]    
    Range("A3").CurrentRegion.Copy s2.Range("A4")
    
    s2.Rows("4:6").Delete
    
End Sub

 

[Ömer BARAN]

Kodu yazan Necdet beydir.

Sanırım isimler karıştı...

Kodu aşağıdaki gibi düzelip deneyiniz.

Sub Suz_Aktar()

    i = s2.Cells(Rows.Count, "A").End(3).Row + 1
[COLOR="Red"]    s2.Range("A4:K" & i).ClearContents
[/COLOR]    
    Range("A3").CurrentRegion.Copy s2.Range("A4")
    
    s2.Rows("4:6").Delete
    
End Sub

Evet öyle olmuş, isminizin boyut ve rengi dolayısıyla karıştırdım galiba, biraz da uykum geldi sanırım. Sabah 09:30'dan bu yana neredeyse aralıksız bilgisayar başındaydım. Düzeltme için teşekküler. Sadece biçimler silinmiyor durumda ama böyle de iş görecektir. Sağlıcakla.

 

[Korhan Ayhan]

Satırları silen bölümü aşağıdaki gibi değiştirip deneyin.

s2.Range("A4:K" & i).Clear